white_gold 0.0.1

data/lib/white_gold/dsl/signal/signal.rb

@@ -0,0 +1,44 @@
+require_relative '../../abi/extern_object'
+
+module Tgui
+  class Signal < ExternObject
+
+    def initialize pointer, widget
+      super(pointer:, autofree: false)
+      @widget = widget
+    end
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [0]) do
+        @widget.page.upon! @widget do
+          b.(@widget)
+        end
+      end
+    end
+
+    def connect &b
+      block_caller = self.block_caller &b
+      id = _abi_connect(block_caller)
+      @@callback_storage[id] = block_caller
+      return id
+    end
+
+    def disconnect id
+      success = _abi_disconnect(id)
+      @@callback_storage.delete(id) if success
+      return success
+    end
+
+    abi_attr :enabled?
+
+    def suppress
+      enabled_before = enabled?
+      self.enabled = false
+      if block_given?
+        yield
+        self.enabled = true
+      end
+    end
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_animation_type.rb

@@ -0,0 +1,16 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalAnimationType < Signal
+
+    def block_caller
+      block_caller = Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT]) do |animation_type|
+        at = @widget.abi_unpack AnimationType, animation_type
+        @widget.page.upon! @widget do
+          b.(at, @widget)
+        end
+      end
+    end
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_bool.rb

@@ -0,0 +1,16 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalBoolean < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT]) do |int|
+        b = @widget.abi_unpack Boolean, int
+        @widget.page.upon! @widget do
+          b.(b, @widget)
+        end
+      end
+    end
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_color.rb

@@ -0,0 +1,16 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalColor < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |ptr|
+        c = @widget.abi_unpack Color, ptr
+        @widget.page.upon! @widget do
+          b.(c, @widget)
+        end
+      end
+    end
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_float.rb

@@ -0,0 +1,16 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalFloat < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_FLOAT]) do |float|
+        f = @widget.abi_unpack_float float
+        @widget.page.upon! @widget do
+          b.(f, @widget)
+        end
+      end
+    end
+
+  end
+end

data/lib/white_gold/dsl/signal/signal_int.rb

@@ -0,0 +1,16 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalInt < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |int|
+        i = @widget.abi_unpack_integer int
+        @widget.page.upon! @widget do
+          b.(i, @widget)
+        end
+      end
+    end
+
+  end
+end

data/lib/white_gold/dsl/signal/signal_item.rb

@@ -0,0 +1,6 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalItem < Signal
+  end
+end

data/lib/white_gold/dsl/signal/signal_item_hierarchy.rb

@@ -0,0 +1,9 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalItemHierarchy < Signal
+    
+    abi_static :fetch_path
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_panel_list_box_item.rb

@@ -0,0 +1,7 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalPanelListBoxItem < Signal
+    #implemented in PanelListBox
+  end
+end

data/lib/white_gold/dsl/signal/signal_pointer.rb

@@ -0,0 +1,15 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalPointer < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |pointer|
+        @widget.page.upon! @widget do
+          b.(pointer, @widget)
+        end
+      end
+    end
+
+  end
+end

data/lib/white_gold/dsl/signal/signal_range.rb

@@ -0,0 +1,15 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalRange < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_FLOAT, Fiddle::TYPE_FLOAT]) do |min, max|
+        @widget.page.upon! @widget do
+          b.(min..max, @widget)
+        end
+      end
+    end
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_show_effect.rb

@@ -0,0 +1,17 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalShowEffect < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT, Fiddle::TYPE_INT]) do |show_effect_type, shown|
+        effect_type = @widget.abi_unpack ShowEffectType, show_effect_type
+        shown = @widget.abi_unpack Boolean, shown
+        @widget.page.upon! @widget do
+          b.(effect_type, shown, @widget)
+        end
+      end
+    end
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_string.rb

@@ -0,0 +1,16 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalString < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |str|
+        string = @widget.abi_unpack_string(str)
+        @widget.page.upon! @widget do
+          b.(string, @widget)
+        end
+      end
+    end
+    
+  end
+end

data/lib/white_gold/dsl/signal/signal_typed_int_bool_ptr.rb

@@ -0,0 +1,15 @@
+require_relative 'signal'
+require_relative '../../convention/bool_property'
+
+module Tgui
+  class SignalTypedIntBoolPtr < Signal
+    def connect &b
+      block_caller = Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT, Fiddle::TYPE_VOIDP]) do |index, ptr|
+        b.(index, BoolProperty.new(ptr))
+      end
+      id = _abi_connect(@pointer, block_caller)
+      @@callback_storage[id] = block_caller
+      return id
+    end
+  end
+end

data/lib/white_gold/dsl/signal/signal_typed_size_t.rb

@@ -0,0 +1,6 @@
+require_relative 'signal_int'
+
+module Tgui
+  class SignalTypedSizeT < SignalInt
+  end
+end

data/lib/white_gold/dsl/signal/signal_u_int.rb

@@ -0,0 +1,16 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalUInt < Signal
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT]) do |uint|
+        int = @widget.abi_unpack Integer, uint
+        @widget.page.upon! @widget do
+          b.(int, @widget)
+        end
+      end
+    end
+
+  end
+end

data/lib/white_gold/dsl/signal/signal_vector2f.rb

@@ -0,0 +1,14 @@
+require_relative 'signal'
+
+module Tgui
+  class SignalVector2f < Signal
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |ptr|
+        vector = @widget.abi_unpack Vector2f, ptr
+        @widget.page.upon! @widget do
+          b.(vector, @widget)
+        end
+      end
+    end
+  end
+end

data/lib/white_gold/dsl/slider.rb

@@ -0,0 +1,26 @@
+require_relative 'widget'
+require_relative 'signal/signal_float'
+
+module Tgui
+  class Slider < Widget
+
+    abi_attr :min, Float, :minimum
+    abi_attr :max, Float, :maximum
+    abi_attr :value, Float
+    abi_attr :step, Float
+    abi_attr :vertical?, Boolean, :vertical_scroll
+
+    def horizontal=(horizontal)
+      self.vertical = !horizontal
+    end
+
+    def horizontal?
+      !vertical?
+    end
+
+    abi_attr :inverted?, Boolean, :inverted_direction
+    abi_attr :scrollable?, Boolean, :change_value_on_scroll
+    abi_signal :on_value_change, SignalFloat
+    
+  end
+end

data/lib/white_gold/dsl/spin_button.rb

@@ -0,0 +1,24 @@
+require_relative 'clickable_widget'
+require_relative 'signal/signal_float'
+
+module Tgui
+  class SpinButton < ClickableWidget
+
+    abi_attr :min, Float, :minimum
+    abi_attr :max, Float, :maximum
+    abi_attr :value, Float
+    abi_attr :step, Float
+    abi_attr :vertical?, Boolean, :vertical_scroll
+
+    def horizontal=(horizontal)
+      self.vertical = !horizontal
+    end
+
+    def horizontal?
+      !vertical?
+    end
+
+    abi_signal :on_value_change, SignalFloat
+
+  end
+end

data/lib/white_gold/dsl/spin_control.rb

@@ -0,0 +1,15 @@
+require_relative 'subwidget_container'
+
+module Tgui
+  class SpinControl < SubwidgetContainer
+
+    abi_attr :min, Float, :minimum
+    abi_attr :max, Float, :maximum
+    abi_attr :value, Float
+    abi_attr :step, Float
+    abi_attr :decimals, Integer, :decimal_places
+    abi_attr :wide_arrows?
+    abi_signal :on_value_change, SignalFloat
+    
+  end
+end

data/lib/white_gold/dsl/subwidget_container.rb

@@ -0,0 +1,9 @@
+require_relative 'widget'
+
+module Tgui
+  class SubwidgetContainer < Widget
+
+    abi_def :container, :get_, nil => Widget
+    
+  end
+end

data/lib/white_gold/dsl/tab_container.rb

@@ -0,0 +1,121 @@
+require_relative 'container'
+require_relative 'tabs'
+
+module Tgui
+  class TabContainer < Container
+
+    class Tabs < Tgui::Tabs
+      def initialize tabs_container, pointer
+        super(pointer:)
+        @tabs_container = tabs_container
+      end
+
+      abi_enum "TabAlign", :top, :bottom
+
+
+      def alignment=(alignment)
+        @tabs_container._abi_set_tab_alignment @tabs_container.abi_pack(TabAlign, alignment)
+      end
+      
+      def alignment
+        @tabs_container.abi_unpack(TabAlign, @tabs_container._abi_get_tab_alignment)
+      end
+
+      def fixed_size=(size)
+        @tabs_container._abi_set_fixed_size @tabs_container.abi_pack_float(size)
+      end
+
+      def fixed_size
+        @tabs_container.abi_unpack_float(@tabs_container._abi_get_fixed_size)
+      end
+
+      def height=(height)
+        @tabs_container._abi_set_tabs_height @tabs_container.abi_pack("Layout", h)
+      end
+    end
+
+    class TabPanel < Panel
+
+      def initialize tab_container, index, panel_pointer
+        super(pointer: panel_pointer)
+        @tab_container = tab_container
+        @index = index
+      end
+
+      def text=(text)
+        @tab_container.change_tab_text @index, @tab_container.abi_pack_string(text)
+      end
+
+      def text
+        @tab_container.abi_unpack_string(@tab_container.tab_text @index)
+      end
+    end
+
+    def objects
+      tabs.objects
+    end
+
+    def format=(format)
+      tabs.format = format
+    end
+
+    def format
+      tabs.format
+    end
+
+    def! :tab do |object, index: nil, **na, &b|
+      text = object.then(&format)
+      if !index
+        panel_pointer = _abi_add_tab abi_pack_string(text), abi_pack_boolean(false)
+        index = _abi_get_index panel_pointer
+      else
+        index = abi_pack_integer index
+        panel_pointer = _abi_insert_tab index, abi_pack_string(text), abi_pack_boolean(false)
+      end
+      objects.insert index, object
+      tab_panel = TabPanel.new self, index, panel_pointer
+      tab_panel.page = page
+      upon! tab_panel, **na, &b
+    end
+    
+    def [](object)
+      index = objects.index object
+      if index
+        panel_pointer = _abi_get_panel
+        TabPanel.new(self, index, panel_pointer).tap do |tp|
+          tp.page = page
+        end
+      else 
+        nil
+      end
+    end
+
+    def! :tabs do |**na, &b|
+      tabs = Tabs.new self, _abi_get_tabs
+      tabs.page = page
+      upon! tabs, **na, &b
+    end
+
+    def remove object
+      index = objects.index object
+      if index && _abi_remove_tab(index)
+        objects.delete_at index
+      end
+    end
+
+    def selected=(selected)
+      index = objects.index selected
+      if index
+        _abi_select index
+      end
+    end
+
+    def selected
+      index = _abi_get_selected_index
+      index >= 0 ? objects[index] : nil
+    end
+
+    abi_signal :on_selection_change, Signal
+    
+  end
+end

data/lib/white_gold/dsl/tabs.rb

@@ -0,0 +1,91 @@
+require_relative 'widget'
+require_relative '../convention/widget_like'
+require_relative 'signal/signal'
+
+module Tgui
+  class Tabs < Widget
+
+    class Tab < WidgetLike
+
+      abi_def :text=, :change_text, id: 0, String => nil
+      abi_def :text, :get_, id: 0, nil => String
+      abi_attr :visible?, Boolean, :tab_, id: 0
+      abi_attr :enabled?, Boolean, :tab_, id: 0
+
+    end
+
+    api_attr :objects do
+      []
+    end
+    api_attr :format do
+      :to_s
+    end
+
+    abi_attr :auto_size?
+    abi_def :deselect
+    abi_def :tab_height=, :set_, Float => nil
+    abi_attr :max_tab_width, Float, :maximum_tab_width
+    abi_attr :min_tab_width, Float, :minimum_tab_width
+
+    def! :tab do |object, index: nil, **na, &b|
+      text = object.then(&format)
+      if !index
+        index = _abi_add abi_pack_string(text), abi_pack_boolean(false)
+      else
+        index = abi_pack_integer(index)
+        _abi_insert index, abi_pack_string(text), abi_pack_boolean(false)
+      end
+      objects.insert index, object
+      tab = Tab.new self, index
+      upon! tab, **na, &b
+    end
+
+    def remove object
+      index = objects.index object
+      if index && abi_unpack_bool(_abi_remove(index))
+        objects.delete_at index
+      end
+    end
+
+    def remove_all
+      _abi_remove_all
+      self.objects = []
+    end
+
+    def selected=(selected)
+      index = objects.index selected
+      if index
+        _abi_select index
+      end
+    end
+
+    def selected
+      index = abi_unpack_integer _abi_get_selected_index
+      index >= 0 ? objects[index] : nil
+    end
+
+    def [](object)
+      index = objects.index object
+      index ? Tab.new(self, index) : nil
+    end
+
+    def items
+      objects
+    end
+
+    class SignalTabSelect < Signal
+
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [0]) do
+          @widget.page.upon! @widget do
+            b.(@widget.selected, @widget)
+          end
+        end
+      end
+
+    end
+
+    abi_signal :on_tab_select, SignalTabSelect
+    
+  end
+end

data/lib/white_gold/dsl/text_area.rb

@@ -0,0 +1,34 @@
+require_relative 'widget'
+require_relative 'scrollbar'
+require_relative 'signal/signal'
+require_relative 'signal/signal_string'
+
+module Tgui
+  class TextArea < Widget
+
+    abi_attr :text, String
+    abi_def :add_text, String => nil
+    abi_attr :default_text, String
+    abi_def :selected_text=, :set_, Range => nil
+    abi_def :selected_text, :get_, nil => String
+    abi_def :selection_start, :get_, nil => Integer
+    abi_def :selection_end, :get_, nil => Integer
+    abi_def :text_limit, :maximum_characters, nil => Integer
+    abi_attr :tab_string, String
+    abi_attr :caret_position, Integer
+    abi_def :caret_line, nil => Integer
+    abi_def :caret_column, nil => Integer
+    abi_attr :read_only?
+    abi_enum Scrollbar::Policy
+    abi_attr :vertical_scrollbar_policy, Scrollbar::Policy
+    abi_attr :horizontal_scrollbar_policy, Scrollbar::Policy
+    abi_attr :vertical_scrollbar_value, Integer
+    abi_attr :horizontal_scrollbar_value, Integer
+    abi_def :lines_count, nil => Integer
+    abi_def :monospace_boost=, :set_monospace_font_optimization, Boolean => nil
+    abi_signal :on_text_change, SignalString
+    abi_signal :on_selection_change, Signal
+    abi_signal :on_caret_change, Signal, :on_caret_position_change
+
+  end
+end

data/lib/white_gold/dsl/texture.rb

@@ -0,0 +1,53 @@
+require_relative '../abi/extern_object'
+require_relative 'color'
+
+module Tgui
+  class Texture < ExternObject
+    def self.from *arg
+      case arg.size
+      when 1
+        a = arg.first
+        case a
+        when Texture
+          return a
+        when String
+          id = Util.expand_path a
+          prx = pry = prw = prh = mpx = mpy = mpw = mph = 0
+          smooth = Texture.default_smooth
+        else raise "Unsupported argument #{arg}"
+        end
+      when 2..10
+        id = Util.expand_path arg[0]
+        prx = arg[1] || 0
+        pry = arg[2] || 0
+        prw = arg[3] || 0
+        prh = arg[4] || 0
+        mpx = arg[5] || 0
+        mpy = arg[6] || 0
+        mpw = arg[7] || 0
+        mph = arg[8] || 0
+        smooth = arg[9] || Texture.default_smooth
+      else raise "Unsupported argument #{arg}"
+      end
+      Texture.new id, prx, pry, prw, prh, mpx, mpy, mpw, mph, smooth
+    end
+
+    abi_def :id, :get_, nil => String
+    abi_def :image_size, :get_, nil => Vector2u
+    abi_def :part_rect, :get_, nil => UIntRect
+    abi_def :smooth?, nil => Boolean
+    abi_attr :color, Color
+
+    def to_theme
+      "#{id} Part(#{part_rect.join(",")})"
+    end
+
+    def self.default_smooth=(smooth)
+      _abi_set_default_smooth smooth
+    end
+
+    def self.default_smooth
+      _abi_get_default_smooth
+    end
+  end
+end

data/lib/white_gold/dsl/theme/boolean_attribute.rb

@@ -0,0 +1,13 @@
+class BooleanAttribute
+  def initialize name, value
+    @name = name
+    @value = value[0]
+  end
+
+  attr :name
+  attr :value
+
+  def to_theme
+    "#{name} = #{value};"
+  end
+end