white_gold 0.0.2 → 0.0.3

data/lib/white_gold/dsl/widget.rb

@@ -1,5 +1,5 @@
 require_relative '../abi/extern_object'
-require_relative '../convention/bang_nested_caller'
+require_relative '../convention/bang_nest'
 require_relative '../convention/unit'
 require_relative '../convention/widget_like'
 require_relative '../convention/api_child'
@@ -15,7 +15,7 @@ require_relative 'tool_tip'
 
 module Tgui
   class Widget < ExternObject
-    include BangNestedCaller
+    include BangNest
     extend BangDef
 
     class Theme < ThemeComponent
@@ -29,10 +29,6 @@ module Tgui
 
     attr_accessor :page
 
-    def window
-      page.window
-    end
-
     abi_attr :text_size, Integer
     abi_attr :enabled?
 
@@ -40,16 +36,10 @@ module Tgui
       self.enabled = !disabled
     end
 
-    def theme_comp
-      :widget
-    end
-
     def! :renderer do |seed = VOID, **na, &b|
       seed = page.custom_renderers[self] if seed == VOID
       if !na.empty? || b
-        upon! page.theme do
-          seed = custom! self.class::Theme, seed, **na, &b
-        end
+        seed = page.theme.custom! self.class::Theme, seed, **na, &b
         page.custom_renderers[self] = seed
       elsif !seed
         page.custom_renderers.delete self
@@ -99,6 +89,9 @@ module Tgui
       size[0]
     end
 
+    abi_enum "AutoLayout", :disabled, :top, :left, :right, :bottom, :leftmost, :rightmost, :fill
+
+    abi_attr :auto_layout, AutoLayout
     abi_def :can_gain_focus?, :can_gain_focus, nil => Boolean
     abi_def :container?, nil => Boolean
 
@@ -106,7 +99,7 @@ module Tgui
       if block_given?
         tooltip = ToolTip.new
         tooltip.page = page
-        upon! tooltip, **na, &b
+        tooltip.send! **na, &b
         _abi_set_tool_tip tooltip.widget if tooltip.widget
       else
         widget = _abi_get_tool_tip
@@ -155,12 +148,12 @@ module Tgui
       end
     end
 
-    def pack_animation_time o
+    def self_pack_animation_time o
       o ? o.to_i : 1000
     end
 
-    abi_def :move, :move_with_animation, ["SizeLayout", :pack_animation_time] => nil
-    abi_def :resize, :resize_with_animation, ["PositionLayout", :pack_animation_time] => nil
+    abi_def :move, :move_with_animation, ["SizeLayout", :self_pack_animation_time] => nil
+    abi_def :resize, :resize_with_animation, ["PositionLayout", :self_pack_animation_time] => nil
 
     abi_enum "AnimationType", :move, :resize, :opacity
 
@@ -168,6 +161,50 @@ module Tgui
     abi_def :front, :move_to_
     abi_def :back, :move_to_
 
+    class Navigation < WidgetLike
+
+      def left=(widget)
+        host._abi_set_navigation host.abi_pack(Widget, widget), host.abi_pack_integer(0)
+      end
+
+      def left
+        abi_unpack(Widget, host._abi_get_navigation(host.abi_pack_integer(0)))
+      end
+
+      def right=(widget)
+        host._abi_set_navigation host.abi_pack(Widget, widget), host.abi_pack_integer(1)
+      end
+
+      def right
+        host.abi_unpack(Widget, host._abi_get_navigation(host.abi_pack_integer(1)))
+      end
+
+      def up=(widget)
+        host._abi_set_navigation host.abi_pack(Widget, widget), host.abi_pack_integer(2)
+      end
+
+      def up
+        host.abi_unpack(Widget, host._abi_get_navigation(host.abi_pack_integer(2)))
+      end
+
+      def down=(widget)
+        host._abi_set_navigation host.abi_pack(Widget, widget), host.abi_pack_integer(3)
+      end
+
+      def down
+        host.abi_unpack(Widget, host._abi_get_navigation(host.abi_pack_integer(3)))
+      end
+
+    end
+
+    def! :navigation do |**na, &b|
+      navigation.send! **na, &b
+    end
+
+    def navigation
+      Navigation.new self, nil
+    end
+
     abi_enum "KeyCode", nil, :a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k, 
       :l, :m, :n, :o, :p, :q, :r, :s, :t, :u, :v, :w, :x, :y, :z,
       :num0, :num1, :num2, :num3, :num4, :num5, :num6, :num7, :num8, :num9,
@@ -221,15 +258,9 @@ module Tgui
 
     def! :robot do |**na, &b|
       robot = Robot.new self
-      upon! robot, **na, &b if block_given?
+      robot.send! **na, &b if block_given?
       robot
     end
-    
-    def flags=(flags)
-      flags.each do |f|
-        send("#{f}=", true)
-      end
-    end
 
     def self.api_attr name, &init
       define_method "#{name}=" do |value|
@@ -243,33 +274,35 @@ module Tgui
       end
     end
 
-
-    def respond_to? name
-      super || bang_respond_to?(name)
-    end
-
-    def method_missing name, *a, **na, &b
-      if name.end_with? "!"
-        bang_method_missing name, *a, **na, &b
-      else super
-      end
-    end
-
     def self_cast_up widget, type = nil, equip: true
       return nil if widget.null?
       type = abi_unpack_string(Widget.get_type widget) if !type
       casted = Tgui.const_get(type).new pointer: widget
-      equip_child_widget casted if equip
+      self_equip_child_widget casted if equip
       casted
     end
 
+    abi_packer Widget do |o|
+      o = o.first if o.is_a? Array
+      case o
+      when Widget
+        o
+      else
+        raise "Unable to make Widget from #{o}(#{o.class})"
+      end
+    end
+
+    abi_unpacker Widget do |o|
+      self_cast_up o
+    end
+
     abi_static :get_type
     abi_static :get_unshared
 
     class << self
       include ApiChild
 
-      def self_renderer widget, renderer
+      def self_renderer widget, renderer = nil
         case renderer
         when Module
           renderer.name.split("::").last