white_gold 0.0.1

data/lib/white_gold/dsl/grid.rb

@@ -0,0 +1,131 @@
+require_relative 'container'
+
+module Tgui
+  class Grid < Container
+
+    api_attr :cell do
+      [0, 0]
+    end
+
+    api_attr :alignment do
+      nil
+    end
+
+    api_attr :direction do
+      :column
+    end
+
+    api_attr :padding do
+      nil
+    end
+
+    api_child :padding= do |w, padding|
+      _abi_set_widget_padding w, abi_pack(Outline, *padding)
+    end
+
+    api_child :padding do |w|
+      abi_unpack(Outline, _abi_get_widget_padding(w))
+    end
+
+    abi_enum "Alignment", :center, :upper_left, :up, :upper_right, :right, :bottom_right, :bottom, :bottom_left, :left,
+      top_left: :upper_left, left_top: :upper_left,
+      top_right: :upper_right, right_top: :upper_right,
+      right_bottom: :bottom_right, left_bottom: :bottom_left
+
+    api_child :alignment= do |w, alignment|
+      _abi_set_widget_alignment w, abi_pack(Alignment, alignment)
+    end
+
+    api_child :alignment do |w|
+      abi_unpack(Alignment, _abi_get_widget_alignment(w))
+    end
+
+    api_child :alignment do |w|
+      Alignment[_abi_get_widget_alignment]
+    end
+
+    api_child :cell= do |w, cell|
+      _abi_set_widget_cell w, abi_pack_integer(cell[0]), abi_pack_integer(cell[1])
+    end
+
+    abi_attr :auto_size?
+
+    def next_row reset_column = true
+      c = cell
+      self.cell = [c[0] + 1, reset_column ? 0 : c[1]]
+    end
+
+    def! :next_row do
+      next_row
+    end
+
+    def next_column reset_row = true
+      c = cell
+      self.cell = [reset_row ? 0 : c[0], c[1] + 1]
+    end
+
+    def! :next_column do
+      next_column
+    end
+
+    def! :next do
+      direction == :column ? next_row : next_column
+    end
+
+    def widgets
+      widgets = {}
+      block_caller = Fiddle::Closure::BlockCaller.new(0, 
+        [Fiddle::TYPE_VOIDP, Fiddle::TYPE_VOIDP, Fiddle::TYPE_INT, Fiddle::TYPE_INT]) do |pointer, type, row, column|
+        widgets[[row, column]] = self_cast_up(pointer, abi_unpack_string(type))
+      end
+      _abi_get_widget_locations block_caller
+      return widgets
+    end
+
+    def add widget, id
+      super
+      _abi_set_widget_cell abi_pack_widget(widget), *cell
+      _abi_set_widget_alignment abi_pack_widget(widget), abi_pack(Alignment, alignment) if alignment
+      _abi_set_widget_padding abi_pack_widget(widget), abi_pack(Outline, *padding) if padding
+      if direction == :column
+        next_column false
+      else
+        next_row false
+      end
+    end
+
+    def get(*keys)
+      case keys
+      in [Symbol]
+        id = page.clubs[keys.first]&.members&.first
+        id && self_cast_up(_abi_get(abi_pack_string id))
+      in [Integer, Integer]
+        self_cast_up(_abi_get_widget *keys)
+      else
+        Enumerator.new do |e|
+          Array(self_get_widget_name keys).flatten.compact.uniq.each do |id|
+            w = _abi_get(abi_pack_string id)
+            e << self_cast_up(w) if w && !w.null?
+          end
+        end
+      end      
+    end
+
+    # internal
+
+    def self_get_widget_name a
+      case a
+      in Widget
+        a.name
+      in [Integer, Integer]
+        w = _abi_get_widget *a
+        return nil if w.null?
+        self_cast_up(w, equip: false).name
+      in Enumerable
+        a.map{ self_get_widget_name _1 }.flatten
+      else
+        page.clubs[a]&.members
+      end
+    end
+  end
+end

data/lib/white_gold/dsl/group.rb

@@ -0,0 +1,6 @@
+require_relative 'container'
+
+module Tgui
+  class Group < Container
+  end
+end

data/lib/white_gold/dsl/gui.rb

@@ -0,0 +1,16 @@
+require_relative 'backend_gui'
+require_relative 'signal/signal'
+
+module Tgui
+  class Gui < BackendGui
+
+    abi_def :self_add, :add, [Object, String] => nil
+    abi_def :self_remove, :remove, [Object] => nil
+    abi_def :self_active?, :is_active, nil => Boolean
+    abi_def :self_poll_events, :poll_events
+    abi_def :self_draw, :draw
+    abi_def :clear_color=, Color => nil
+    abi_attr :clipboard, String
+        
+  end
+end

data/lib/white_gold/dsl/horizontal_layout.rb

@@ -0,0 +1,6 @@
+require_relative 'box_layout_ratios'
+
+module Tgui
+  class HorizontalLayout < BoxLayoutRatios
+  end
+end

data/lib/white_gold/dsl/horizontal_wrap.rb

@@ -0,0 +1,6 @@
+require_relative 'box_layout'
+
+module Tgui
+  class HorizontalWrap < BoxLayout
+  end
+end

data/lib/white_gold/dsl/knob.rb

@@ -0,0 +1,16 @@
+require_relative 'widget'
+require_relative 'signal/signal_float'
+
+module Tgui
+  class Knob < Widget
+
+    abi_attr :start, Float, :start_rotation
+    abi_attr :end, Float, :end_rotation
+    abi_attr :min, Float, :minimum
+    abi_attr :max, Float, :maximum
+    abi_attr :value, Float
+    abi_attr :clockwise?, :clockwise_turning
+    abi_signal :on_change, SignalFloat, :on_value_change
+
+  end
+end

data/lib/white_gold/dsl/label.rb

@@ -0,0 +1,21 @@
+require_relative 'clickable_widget'
+require_relative 'scrollbar'
+
+module Tgui
+  class Label < ClickableWidget
+
+    abi_attr :text, String
+    abi_attr :scrollbar_value, Integer
+    abi_attr :auto_size?, Boolean, :get_
+    abi_attr :max_width, Integer, :maximum_text_width
+    abi_def :ignore_mouse_events, Boolean => nil
+    abi_def :ignore_mouse_events?, :ignoring_mouse_events, nil => Boolean
+    abi_enum "HorizontalAlignment", :left, :center, :right
+    abi_attr :horizontal_alignment, HorizontalAlignment
+    abi_enum "VerticalAlignment", :top, :center, :bottom
+    abi_attr :vertical_alignment, VerticalAlignment
+    abi_enum Scrollbar::Policy
+    abi_attr :scrollbar_policy, Scrollbar::Policy
+    
+  end
+end

data/lib/white_gold/dsl/list_box.rb

@@ -0,0 +1,125 @@
+require_relative 'widget'
+require_relative 'signal/signal_item'
+require_relative 'signal/signal_u_int'
+
+module Tgui
+  class ListBox < Widget
+
+    class SignalItem < Tgui::SignalItem
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP, Fiddle::TYPE_VOIDP]) do |str1, str2|
+          id = @widget.abi_unpack_string(str2)
+          @widget.page.upon! @widget do
+            b.(@widget.self_get_object_by_id(id), @widget)
+          end
+        end
+      end
+    end
+
+    abi_enum "TextAlignment", :left, :center, :right
+
+    @@auto_item_id = "@/"
+
+    api_attr :format do
+      :to_s
+    end
+
+    abi_attr :item_height, Integer
+    abi_attr :max_items, Integer, :maximum_items
+    abi_attr :auto_scroll?
+    abi_attr :scrollbar_value, Integer
+    abi_signal :on_item_select, SignalItem
+    abi_signal :on_mouse_press, SignalItem
+    abi_signal :on_mouse_release, SignalItem
+    abi_signal :on_double_click, SignalItem
+    abi_signal :on_scroll, SignalUInt
+    abi_attr :text_alignment, TextAlignment
+
+    class Item
+      def initialize list_box, id
+        @list_box = list_box
+        @id = id
+      end
+
+      def object=(object)
+        @list_box.self_objects[@id] = object
+      end
+
+      def object
+        return @list_box.self_objects[@id]
+      end
+
+      def text=(text)
+        @list_box._abi_change_item_by_id @id, abi_pack_string(text)
+      end
+
+      def remove
+        @list_box._abi_remove_item_by_id @id
+      end
+    end
+
+    def! :item do |object = nil, **na, &b|
+      text = object.then(&format)
+      @@auto_item_id = id = @@auto_item_id.next
+      _abi_add_item abi_pack_string(text), abi_pack_string(id)
+      item = Item.new self, id
+      na[:object] ||= object
+      upon! item, **na, &b
+    end
+
+    def remove_all
+      self_objects.clear
+      _abi_remove_all_items
+    end
+
+    def selected
+      return self_objects[abi_unpack_string _abi_get_selected_item_id]
+    end
+
+    def selected=(object)
+      id = self_find_id_by_object object
+      raise "`#{object}` is out of the listbox" if !id
+      _abi_set_selected_item_by_id abi_pack_string(id)
+    end
+
+    abi_def :deselect, :deselect_item
+
+    def remove object
+      id = self_find_id_by_object object
+      if id
+        _abi_remove_item_by_id abi_pack_string(id)
+        self_objects.delete id
+      end
+    end
+
+    def items=(items)
+      remove_all
+      items.each do |item|
+        self.item item
+      end
+    end
+    
+    def items
+      self_objects.values
+    end
+
+    def [](object)
+      id = self_find_id_by_object object
+      id ? Item.new(self, id) : nil
+    end
+    
+    # internal
+
+    api_attr :self_objects do
+      Hash.new
+    end
+
+    def self_get_object_by_id id
+      return self_objects[id]
+    end
+
+    def self_find_id_by_object object
+      self_objects.find{ _2 == object }&.at(0)
+    end
+  end
+end

data/lib/white_gold/dsl/list_view.rb

@@ -0,0 +1,239 @@
+require_relative 'widget'
+require_relative '../convention/widget_like'
+require_relative 'signal/signal_int'
+
+module Tgui
+  class ListView < Widget
+
+    class ListViewItemSignal < Tgui::SignalInt
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT]) do |index|
+          @widget.page.upon! @widget do
+            b.(@widget.self_objects[index], @widget)
+          end
+        end
+      end
+    end
+
+    class ListViewColumnSignal < Tgui::SignalInt
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT]) do |index|
+          @widget.page.upon! @widget do
+            b.(@widget.columns[index], @widget)
+          end
+        end
+      end
+    end
+
+    abi_enum "ColumnAlignment", :left, :center, :right
+
+    api_attr :columns do
+      []
+    end
+
+    class Column < WidgetLike
+      def initialize list_view, index
+        super
+        @format = :to_s
+      end
+
+      attr_accessor :format
+
+      abi_attr :text, String, :column_text, id: 0
+      abi_attr :width, Integer, :column_width, id: 0
+      abi_def :design_width, :get_column_, id: 0, nil => Integer
+      abi_attr :auto_resize?, Boolean, :column_auto_resize, id: 0
+      abi_attr :expanded?, Boolean, :column_expanded, id: 0
+      abi_attr :alignment, ColumnAlignment, :column_alignment, id: 0
+    end
+
+    class Item < WidgetLike
+      def initialize list_view, object
+        super
+      end
+
+      def id
+        host.self_object_index @id
+      end
+
+      def object=(object)
+        @list_view.self_change_object @id, object
+        self.id = object
+      end
+
+      alias_method :object, :id
+
+      abi_attr :icon, Texture, :item_icon, id: 0
+    end
+
+    def! :column do |**na, &b|
+      index = _abi_add_column
+      column = Column.new self, index
+      columns << column
+      upon! column, **na, &b
+    end
+
+    def! :item do |object, **na, &b|
+      self_add_object object, na[:index]
+      item = Item.new self, object
+      na.delete :index
+      upon! item, **na, &b
+    end
+    
+    def items=(items)
+      remove_all_rows
+      items.each do |item|
+        self.item item
+      end
+    end
+
+    def items
+      self_objects.map(&:object)
+    end
+
+    def [](object)
+      key = self_objects.index object
+      key ? Item.new(self, object) : nil
+    end
+
+    def remove_columns
+      self.columns = []
+      _abi_remove_all_columns
+    end
+
+    def remove object
+      key = self_objects.index object
+      if key
+        _abi_remove_item key
+        self_objects.delete_at key
+      end
+    end
+
+    def remove_rows
+      self.self_objects = []
+      _abi_remove_all_items
+    end
+
+    def selected
+      if multi_select?
+        self_selected_item_indices.map{ self_objects[_1] }
+      else
+        self_selected_item_indices.first&.tap{ self_objects[_1] }
+      end
+    end
+
+    def selected=(selected)
+      index = self_objects.index selected
+      if index
+        self_set_selected_item_indices [index]
+      elsif selected.is_a? Enumerable
+        self_set_selected_item_indices selected.map{|s| self_objects.index s }.compact
+      end
+    end
+
+    abi_attr :separator_width, Integer
+    abi_attr :row_height, Integer, :item_height
+    abi_def :deselect, :deselect_items
+    abi_attr :multi_select?
+    abi_attr :auto_scroll?
+    abi_attr :resizable_columns?
+    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_attr :fixed_icon_size, Vector2f
+    abi_signal :on_item_select, ListViewItemSignal
+    abi_signal :on_double_click, ListViewItemSignal
+    abi_signal :on_right_click, ListViewItemSignal
+    abi_signal :on_header_click, ListViewColumnSignal
+    
+    def! :grid_lines do | **na, &b|
+      lines = GridLines.new self
+      upon! lines, **na, &b
+    end
+
+    def grid_lines=(grid_lines)
+      case grid_lines
+      when Numeric
+        api_bang_grid_lines width: grid_lines
+      when false
+        api_bang_grid_lines horizontal: false, vertical: false
+      when Hash
+        api_bang_grid_lines **grid_lines
+      end
+    end
+
+    class GridLines < WidgetLike
+      def initialize list_view
+        super(list_view, nil)
+      end
+
+      abi_attr :width, Integer, :grid_lines_width
+      abi_attr :horizontal?, Boolean, :show_horizontal_grid_lines
+      abi_attr :vertical?, Boolean, :show_vertical_grid_lines
+    end
+
+    def! :header do |**na, &b|
+      header = Header.new self
+      upon! header, **na, &b
+    end
+
+    def header=(header)
+      case header
+      when true, false
+        api_bang_header visible: header
+      when Hash
+        api_bang_header **header
+      when Proc
+        api_bang_header &header
+      end
+    end
+
+    class Header < WidgetLike
+      def initialize list_view
+        super(list_view, nil)
+      end
+
+      abi_attr :height, Integer, :header_height
+      abi_attr :text_size, Integer, :header_text_size
+      abi_attr :separator_height, Integer, :header_separator_height
+      abi_def :actual_height, :get_current_header_height, nil => Integer
+      abi_attr :visible, Boolean, :header_visible
+    end
+
+    # internal
+
+    api_attr :self_objects do
+      []
+    end
+
+    def self_add_object object, index = nil
+      index = self_add_item self_object_to_strings(object), index: index
+      self_objects.insert index, object
+      index
+    end
+
+    def self_change_object old, new
+      index = self_objects.index old
+      self_change_item index, self_object_to_strings(new)
+      self_objects[index] = new
+    end
+
+    def self_object_to_strings object
+      columns.map{|c| object.then(&c.format).to_s }
+    end
+
+    def self_add_item item, index: nil
+      if index
+        _abi_insert_item index, abi_pack(String..., item)
+        index
+      else
+        _abi_add_item abi_pack(String..., *item)
+      end
+    end
+
+    abi_def :self_change_item, :change_item, [Integer, String...] => nil
+    abi_attr :self_selected_item_indices, Integer.., :selected_item_indices
+  end
+end