white_gold 0.0.1

data/lib/white_gold/dsl/menu_bar.rb

@@ -0,0 +1,252 @@
+require_relative 'widget'
+require_relative '../convention/widget_like'
+require_relative 'signal/signal_item_hierarchy'
+
+module Tgui
+  class MenuBar < Widget
+
+    class ItemPressSignal
+      def initialize menu_bar, path
+        @menu_bar = menu_bar
+        @path = path
+      end
+
+      def connect &b
+        on_press = Fiddle::Closure::BlockCaller.new(0, [0]) do
+          @menu_bar.page.upon! @menu_bar do
+            b.(@path.last, @path, @menu_bar)
+          end
+        end
+
+        return @menu_bar.self_path_block @path do
+          id = @menu_bar._abi_connect_menu_item _1, _2, on_press
+          MenuBar.callback_storage[id] = on_press
+          id
+        end
+      end
+  
+      def disconnect id
+        @menu_bar.on_menu_item_click.disconnect id
+      end
+    end
+
+    class SignalItemHierarchy < Tgui::SignalItemHierarchy
+
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |vector|
+          path = []
+          loader = Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |str|
+            path << @widget.abi_unpack_string(str)
+          end
+          SignalItemHierarchy.fetch_path vector, loader
+          object_path = @widget.self_object_path path
+          @widget.page.upon! @widget do
+            b.(object_path.last, object_path, @widget)
+          end
+        end
+      end
+    end
+
+    class TreeNode
+      def initialize text
+        @text = text
+        @nodes = {}
+      end
+
+      attr_accessor :text
+      attr :nodes
+
+      def [](*path, grow: false)
+        if grow
+          path.reduce(self){|node, o| node.nodes[o] ||= TreeNode.new(nil) }
+        else
+          path.reduce(self){|node, o| node&.nodes[o] }
+        end
+      end
+
+      def cut *path, last
+        self[*path].nodes.delete last
+      end
+
+      def cut_branches *path
+        self[*path].nodes = {}
+      end
+
+      def path_str_to_object *path
+        object_path = []
+        path.reduce self do |node, str|
+          o, node = *node.nodes.find{|k, v| v.text == str }
+          object_path << o
+          node
+        end
+        object_path
+      end
+
+      def path_object_to_str *path
+        str_path = []
+        path.reduce self do |node, o|
+          node[o].tap{ str_path << _1.text }
+        end
+        str_path
+      end
+    end
+
+    api_attr :self_tree do
+      TreeNode.new nil
+    end
+    api_attr :format do
+      :to_s
+    end
+
+    class MenuItem < WidgetLike
+      def! :item do |object, **na, &b|
+        item_path = [*path, object]
+        host.self_tree[*item_path, grow: true].text = object.then(&host.format)
+        host.self_path_block item_path do
+          host._abi_add_menu_item _1, _2
+        end
+        item = Item.new host, item_path
+        upon! item, **na, &b
+      end
+
+      def! :separator do
+        item! "-"
+      end
+      
+      def on_press(&b)
+        signal = ItemPressSignal.new host, path
+        block_given? ? signal.connect(&b) : signal
+      end
+
+      def on_press=(b)
+        on_press &b
+      end
+
+      def remove_subitems
+        host.self_path_block path do
+          host._abi_remove_sub_menu_item _1, _2
+          host.self_tree.cut_branches *_3
+        end
+      end
+
+      def text=(text)
+        host.self_path_block path do
+          host._abi_change_menu_item _1, _2, text
+          host.self_tree[*path].text = text
+        end
+      end
+
+      def text
+        host.self_tree[*path].text
+      end
+
+      def [](*path)
+        Item.new(host, self.path + path)
+      end
+    end
+
+    class Menu < MenuItem
+
+      alias_method :id, :text
+
+      abi_attr :enabled?, Boolean, :menu_enabled, id: 0
+      abi_def :remove, :remove_menu, id: 0
+
+      def path
+        [@id]
+      end
+    end
+
+    class Item < MenuItem
+      def initialize menu_bar, path
+        super(menu_bar, path.freeze)
+      end
+
+
+      def enabled=(enabled)
+        host.self_path_block path do
+          host._abi_set_menu_item_enabled _1, _2, enabled
+        end   
+      end
+
+      def enabled?
+        host.self_path_block path do
+          host._abi_get_menu_item_enabled _1, _2
+        end
+      end
+
+      def remove
+        host.self_path_block path do
+          host._abi_remove_menu_item _1, _2
+          host.self_tree.cut *_3
+        end
+      end
+
+      def path
+        @id
+      end
+    end
+
+    def! :item do |object, **na, &b|
+      text = object.then(&format)
+      self_tree[object, grow: true].text = text
+      _abi_add_menu abi_pack_string(text)
+      item = Menu.new self, object
+      upon! item, **na, &b
+    end
+
+    def items=(items)
+      self_make_items items
+    end
+
+    def items
+      self_collect_items(self_tree)
+    end
+
+    def [](*path)
+      case path.size
+      when 0 then self
+      when 1 then Menu.new(self, path[0])
+      else Item.new(self, path)
+      end
+    end
+
+    abi_attr :min_item_width, Integer, :minimum_sub_menu_width
+    abi_attr :direction_inverted?, Boolean, :inverted_menu_direction
+    abi_def :close, :close_menu
+    abi_def :remove_all
+
+    def remove *path
+      self[*path].remove
+    end
+
+    abi_signal :on_item_click, SignalItemHierarchy, :on_menu_item_click
+
+    def self_path_block path, &b
+      path = self_tree.path_object_to_str *path
+      b.(*abi_pack(String.., *path), path)
+    end
+
+    def self_object_path path
+      self_tree.path_str_to_object *path
+    end
+
+    def self_collect_items tree_node
+      tree_node.nodes.map{|k, v| [k, self_collect_items(v)]}.to_h
+    end
+
+    def self_make_items items, path = []
+      items.each do |k, v|
+        item = self[*path].item k
+        case v
+        when Hash
+          self_make_items v, [*path, k]
+        when Proc
+          item.on_press &v
+        when String
+          item.text = v
+        end
+      end
+    end
+  end
+end

data/lib/white_gold/dsl/message_box.rb

@@ -0,0 +1,90 @@
+require_relative 'button'
+require_relative 'signal/signal_string'
+require_relative '../convention/widget_like'
+
+module Tgui
+  class MessageBox < ChildWindow
+
+    api_attr :format do
+      :to_s
+    end
+
+    abi_enum "Alignment", :left, :center, :right
+    abi_attr :button_alignment, Alignment
+    abi_attr :label_alignment, Alignment
+    abi_attr :text, String
+
+    def initialized
+      on_button_press do |button, widget|
+        self_buttons[button]&.press_signal_execute
+      end
+    end
+
+    class Button < WidgetLike
+      def initialize host, id
+        super
+        @on_press_callbacks = []
+      end
+
+      def on_press=(on_press)
+        @on_press_callbacks << on_press.to_proc
+      end
+
+      def press_signal_execute
+        host.page.upon! host do
+          @on_press_callbacks.each do |c|
+            c.(id, self, host)
+          end
+        end
+      end
+    end
+
+    def! :button do |object = VOID, text: nil, **na, &b|
+      object = self.self_next_button_id = self_next_button_id.next if object == VOID
+      text ||= object.then(&format)
+      raise "Button with given text exists (#{text})" if self_buttons[text]
+      _abi_add_button abi_pack_string(text)
+      button = Button.new self, object
+      self_buttons[text] = button
+      upon! button, **na, &b
+    end
+
+    def [](object)
+      self_buttons.values.find{ _1.id == object }
+    end
+
+    def remove_buttons
+      self.buttons = {}
+    end
+
+    def buttons=(buttons)
+      self.self_buttons = {}
+      names = buttons.map do |object, on_press|
+        text = object.then(&format)
+        raise "Button with given text exists (#{text})" if self_buttons[text]
+        button = Button.new self, object
+        button.on_press = on_press
+        self_buttons[text] = button
+        text
+      end
+      self_change_buttons names
+    end
+
+    def buttons
+      self_buttons.values.map{ _1.id }
+    end
+
+    abi_signal :on_button_press, SignalString
+
+    #internal
+
+    abi_def :self_change_buttons, :change_buttons, String.. => nil
+
+    api_attr :self_buttons do
+      {}
+    end
+    api_attr :self_next_button_id do
+      "Button-0"
+    end
+  end
+end

data/lib/white_gold/dsl/outline.rb

@@ -0,0 +1,52 @@
+require_relative '../abi/extern_object'
+
+module Tgui
+  class Outline < ExternObject
+
+    def self.from *arg
+      case arg.size
+      when 1
+        a = arg.first
+        case a
+        when Outline
+          return a
+        when String, Numeric
+          o = arg * 4
+        else raise "Unsupported argument #{arg}"
+        end
+      when 2
+        o = [arg[0], arg[0], arg[1], arg[1]]
+      when 3
+        o = [arg[0], arg[1], arg[2], arg[2]]
+      when 4
+        o = arg
+      else raise "Unsupported argument #{arg}"
+      end
+      o = o.map do |v|
+        case v
+        when Numeric then Unit.nominate(v)
+        when String then v
+        else raise "Unsupported arguments #{arg}"
+        end
+      end
+      Outline.new *o
+    end
+
+    abi_def :left, :get_, nil => Float
+    abi_def :right, :get_, nil => Float
+    abi_def :top, :get_, nil => Float
+    abi_def :bottom, :get_, nil => Float
+
+    def to_a
+      [left, right, top, bottom]
+    end
+
+    def to_s
+      "(#{to_a.join(", ")})"
+    end
+
+    def inspect
+      to_s
+    end
+  end
+end

data/lib/white_gold/dsl/panel.rb

@@ -0,0 +1,16 @@
+require_relative 'group'
+require_relative 'signal/signal_vector2f'
+
+module Tgui
+  class Panel < Group
+
+    abi_signal :on_mouse_press, SignalVector2f
+    abi_signal :on_mouse_release, SignalVector2f
+    abi_signal :on_click, SignalVector2f
+    abi_signal :on_double_click, SignalVector2f
+    abi_signal :on_right_mouse_press, SignalVector2f
+    abi_signal :on_right_mouse_release, SignalVector2f
+    abi_signal :on_right_click, SignalVector2f
+    
+  end
+end

data/lib/white_gold/dsl/panel_list_box.rb

@@ -0,0 +1,83 @@
+require_relative 'scrollable_panel'
+require_relative '../convention/widget_like'
+require_relative 'signal/signal_panel_list_box_item'
+
+module Tgui
+  class PanelListBox < ScrollablePanel
+
+    class SignalPanelListBoxItem < Tgui::SignalPanelListBoxItem
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |id|
+          @widget.page.upon! @widget do
+            b.(@widget.self_objects.key(@widget.abi_unpack_string(id)), @widget)
+          end
+        end
+      end
+    end
+
+    @@auto_item_id = "@/"
+
+    def! :item do |object, index: -1, **na, &b|
+      @@auto_item_id = id = @@auto_item_id.next
+      panel = Panel.new pointer: _abi_add_item(id, abi_pack_integer(index))
+      panel.page = page
+      self_objects[object] = id
+      upon! panel, **na, &b
+    end
+
+    def [](object)
+      Panel.new(pointer: _abi_get_item_by_id(self_objects[object])).tap do |panel|
+        panel.page = page
+      end
+    end
+
+    abi_def :item_width, :get_items_width, nil => Float
+    abi_packer "NominatedFloat" do |value|
+      case value
+      when Numeric then Unit.nominate value
+      else value
+      end
+    end
+    abi_unpacker "NominatedFloat" do |o|
+      abi_unpack_float o
+    end
+    abi_attr :item_height, "NominatedFloat", :items_height
+
+    def selected=(object)
+      _abi_set_selected_item_by_id self_objects[object]
+    end
+
+    def selected
+      id = abi_unpack_string(_abi_get_selected_item_id)
+      id == "" ? nil : self_objects.key(id)
+    end
+
+    abi_def :deselect, :deselect_item
+
+    def remove object
+      _abi_remove_item_by_id self_objects[object]
+      self_objects.delete object
+    end
+
+    def remove_all
+      _abi_remove_all_items
+      self_objects.clear
+    end
+
+    abi_attr :max_items, Integer, :maximum_items
+
+    abi_signal :on_item_select, SignalPanelListBoxItem
+
+    def! :template do |**na, &b|
+      panel = Panel.new(pointer: _abi_get_panel_template)
+      panel.page = page
+      upon! panel, **na, &b
+    end
+
+    # internal
+
+    api_attr :self_objects do
+      {}
+    end
+  end
+end

data/lib/white_gold/dsl/picture.rb

@@ -0,0 +1,12 @@
+require_relative 'clickable_widget'
+require_relative 'signal/signal_vector2f'
+
+module Tgui
+  class Picture < ClickableWidget
+
+    abi_def :ignore_mouse, :ignore_mouse_events, Boolean => nil
+    abi_def :ignore_mouse?, :is_ignoring_mouse_events, nil => Boolean
+    abi_signal :on_double_click, SignalVector2f
+    
+  end
+end

data/lib/white_gold/dsl/progress_bar.rb

@@ -0,0 +1,19 @@
+require_relative 'clickable_widget'
+require_relative 'signal/signal'
+require_relative 'signal/signal_u_int'
+
+module Tgui
+  class ProgressBar < ClickableWidget
+
+    abi_enum "FillDirection", :left_to_right, :right_to_left, :top_to_bottom, :bottom_to_top
+    abi_attr :min, Float, :minimum
+    abi_attr :max, Float, :maximum
+    abi_attr :value, Float
+    abi_attr :increment, Float, :increment_value
+    abi_attr :text, String
+    abi_attr :fill_direction, FillDirection
+    abi_signal :on_value_change, SignalUInt
+    abi_signal :on_full, Signal
+
+  end
+end

data/lib/white_gold/dsl/radio_button.rb

@@ -0,0 +1,18 @@
+require_relative 'clickable_widget'
+require_relative 'signal/signal_bool'
+
+module Tgui
+  class RadioButton < ClickableWidget
+    
+    abi_attr :checked?
+    abi_attr :text, String
+    abi_attr :text_clickable?
+    abi_signal :on_check, Signal
+    abi_signal :on_uncheck, Signal
+    abi_signal :on_change, SignalBoolean
+    api_attr :object do
+      nil
+    end
+    
+  end
+end

data/lib/white_gold/dsl/radio_button_group.rb

@@ -0,0 +1,14 @@
+require_relative 'container'
+
+module Tgui
+  class RadioButtonGroup < Container
+
+    abi_def :uncheck, :uncheck_radio_buttons
+    abi_def :checked_radio_button, :get_, nil => Widget
+
+    def checked
+      checked_radio_button&.object
+    end
+    
+  end
+end

data/lib/white_gold/dsl/range_slider.rb

@@ -0,0 +1,15 @@
+require_relative 'widget'
+require_relative 'signal/signal_range'
+
+module Tgui
+  class RangeSlider < Widget
+
+    abi_attr :min, Float, :minimum
+    abi_attr :max, Float, :maximum
+    abi_attr :selection_start, Float
+    abi_attr :selection_end, Float
+    abi_attr :step, Float
+    abi_signal :on_range_change, SignalRange
+    
+  end
+end

data/lib/white_gold/dsl/rich_text_label.rb

@@ -0,0 +1,6 @@
+require_relative 'label'
+
+module Tgui
+  class RichTextLabel < Label
+  end
+end

data/lib/white_gold/dsl/scrollable_panel.rb

@@ -0,0 +1,53 @@
+require_relative '../convention/widget_like'
+require_relative 'panel'
+require_relative 'scrollbar'
+
+module Tgui
+  class ScrollablePanel < Panel
+
+    abi_attr :content_size, Vector2f
+    abi_def :content_offset, :get_, nil => Vector2f
+    abi_def :scrollbar_width, :get_, nil => Float
+    abi_enum Tgui::Scrollbar::Policy
+
+    class Scrollbar < WidgetLike
+      
+      def policy=(policy)
+        host.send("_abi_set_#{id}_scrollbar_policy", host.abi_pack(Tgui::Scrollbar::Policy, policy))
+      end
+
+      def policy
+        host.abi_unpack(Tgui::Scrollbar::Policy, host.send("_abi_get_#{id}_scrollbar_policy"))
+      end
+
+      def amount=(amount)
+        host.send("_abi_set_#{id}_scroll_amount", host.abi_pack_integer(amount))
+      end
+
+      def amount
+        host.abi_unpack_integer(host.send("_abi_get_#{id}_scroll_amount"))
+      end
+
+      def value=(value)
+        host.send("_abi_set_#{id}_scrollbar_value", host.abi_pack_integer(value))
+      end
+
+      def value
+        host.abi_unpack_integer(host.send("_abi_get_#{id}_scrollbar_value"))
+      end
+
+      def shown?
+        host.abi_unpack_bool(host.send("_abi_is_#{id}_scrollbar_shown"))
+      end
+    end
+
+    def horizontal_scrollbar
+      Scrollbar.new self, :horizontal
+    end
+    
+    def vertical_scrollbar
+      Scrollbar.new self, :vertical
+    end
+
+  end
+end

data/lib/white_gold/dsl/scrollbar.rb

@@ -0,0 +1,28 @@
+require_relative 'widget'
+require_relative 'signal/signal_u_int'
+
+module Tgui
+  class Scrollbar < Widget
+
+    abi_enum "Policy", :auto, :always, :never
+
+    abi_attr :max, Integer, :maximum
+    abi_attr :value, Integer
+    abi_attr :viewport_size, Integer
+    abi_attr :speed, Integer, :scroll_amount
+    abi_attr :auto_hide?
+    abi_attr :vertical?, Boolean, :vertical_scroll
+
+    def horizontal=(horizontal)
+      self.vertical = !horizontal
+    end
+
+    def horizontal?
+      !vertical?
+    end
+
+    abi_def :default_width, :get_, nil => Float
+    abi_signal :on_value_change, SignalUInt
+    
+  end
+end

data/lib/white_gold/dsl/separator_line.rb

@@ -0,0 +1,6 @@
+require_relative 'clickable_widget'
+
+module Tgui
+  class SeparatorLine < ClickableWidget
+  end
+end

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

@@ -0,0 +1,33 @@
+require_relative 'signal'
+
+module Tgui
+  class GlobalSignal < Signal
+
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [0]) do
+        @widget.page.upon! @widget do
+          b.(@widget)
+        end
+      end
+    end
+
+    def block_caller &b
+      Fiddle::Closure::BlockCaller.new(0, [0], &b)
+    end
+
+    def connect &b
+      @block_caller = self.block_caller &b
+      id = _abi_connect(@block_caller)
+      @@global_callback_storage[id] = self
+      return id
+    end
+
+    def disconnect id
+      success = _abi_disconnect(id)
+      @@global_callback_storage.delete(id) if success
+      return success
+    end
+    
+  end
+end