white_gold 0.0.1

data/lib/white_gold/dsl/chat_box.rb

@@ -0,0 +1,65 @@
+require_relative 'widget'
+require_relative '../convention/widget_like'
+
+module Tgui
+  class ChatBox < Widget
+
+    api_attr :objects do
+      []
+    end
+    api_attr :format do
+      :to_s
+    end
+
+    class Line < WidgetLike
+      def initialize chat_box, index
+        @chat_box = chat_box
+        @index = index
+      end
+
+      def color
+        @chat_box._abi_get_line_color abi_pack_integer(@index)
+      end
+
+      def style
+        abi_unpack_text_styles(@chat_box._abi_get_line_style abi_pack_integer(@index))
+      end
+    end
+
+    def! :line do |object, color: nil, style: nil, **na, &b|
+      text = object.then(&format)
+      color ||= text_color
+      style ||= text_style
+      _abi_add_line abi_pack_string(text), abi_pack(Color, color), abi_pack(TextStyles, *style)
+      line = Line.new self, objects.size
+      objects << object
+      upon! line, **na, &b
+    end
+
+    def [](index)
+      index = objects.index object
+      index ? Line.new(self, index) : nil
+    end
+
+    def remove object
+      index = objects.index object
+      if index
+        _abi_remove_line abi_pack_integer(index)
+        objects.delete_at index
+      end
+    end
+
+    def remove_all
+      _abi_remove_all_lines
+      objects.clear
+    end
+
+    abi_attr :line_limit, Integer
+    abi_attr :text_color, Color
+    abi_attr :text_style, TextStyles
+    abi_attr :lines_start_from_top?
+    abi_attr :new_lines_below_others?
+    abi_attr :scrollbar_value, Integer
+
+  end
+end

data/lib/white_gold/dsl/checkbox.rb

@@ -0,0 +1,6 @@
+require_relative 'radio_button'
+
+module Tgui
+  class CheckBox < RadioButton
+  end
+end

data/lib/white_gold/dsl/child_window.rb

@@ -0,0 +1,47 @@
+require_relative 'container'
+require_relative 'signal/signal'
+
+module Tgui
+  class ChildWindow < Container
+
+    class SignalClosing < Tgui::Signal
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP]) do |ptr|
+          @widget.page.upon! @widget do
+            b.(ptr, @widget)
+          end
+        end
+      end
+    end
+
+    abi_enum "TitleAlignment", :left, :center, :right
+    abi_bit_enum "TitleButtons", :none, :close, :maximize, :minimize, all: -1
+
+    abi_attr :client_size, "SizeLayout"
+    abi_attr :max_size, Vector2f, :maximum_size
+    abi_attr :min_size, Vector2f, :minimum_size
+    abi_attr :title, String
+    abi_attr :title_size, Integer, :title_text_size
+    abi_attr :title_alignment, TitleAlignment
+    abi_attr :title_buttons, TitleButtons
+    abi_attr :resizable?
+    abi_attr :position_locked?
+    abi_attr :keep_in_parent?
+
+    def close destroy = false
+      if destroy
+        _abi_destroy
+      else
+        _abi_close
+      end
+    end
+
+    abi_signal :on_mouse_press, Signal
+    abi_signal :on_close, Signal
+    abi_signal :on_maximize, Signal
+    abi_signal :on_minimize, Signal
+    abi_signal :on_escape_press, Signal
+    abi_signal :on_closing, SignalClosing
+    
+  end
+end

data/lib/white_gold/dsl/clickable_widget.rb

@@ -0,0 +1,15 @@
+require_relative 'widget'
+require_relative 'signal/signal_vector2f'
+
+module Tgui
+  class ClickableWidget < Widget
+
+    abi_signal :on_click, Tgui::SignalVector2f
+    abi_signal :on_mouse_press, Tgui::SignalVector2f
+    abi_signal :on_mouse_release, Tgui::SignalVector2f
+    abi_signal :on_right_click, Tgui::SignalVector2f
+    abi_signal :on_right_mouse_press, Tgui::SignalVector2f
+    abi_signal :on_right_mouse_release, Tgui::SignalVector2f
+    
+  end
+end

data/lib/white_gold/dsl/color.rb

@@ -0,0 +1,124 @@
+require_relative '../abi/extern_object'
+
+module Tgui
+  class Color < ExternObject
+
+    PREDEFINED_COLORS = {
+      red: [200, 0, 0, 255],
+      green: [0, 200, 0, 255],
+      blue: [0, 0, 200, 255],
+      yellow: [200, 200, 0, 255],
+      white: [200, 200, 200, 255],
+      black: [0, 0, 0, 255]
+    }
+
+    def self.from *arg
+      case arg.size
+      when 1
+        arg = arg.first
+        case arg
+        when Color
+          return arg
+        when String
+          r, g, b, a = *tones_from_string(arg)
+        when Symbol
+          r, g, b, a = *PREDEFINED_COLORS[arg]
+        when Numeric
+          r = g = b = arg
+          a = 255
+        else raise "Unsupported argument #{arg} #{arg.class}"
+        end
+      when 2
+        r = g = b = arg[0]
+        a = arg[1]
+      when 3
+        r, g, b = *arg
+        a = 255
+      when 4
+        r, g, b, a = *arg
+      else raise "Unsupported argument #{arg}"
+      end
+      Color.new r, g, b, a
+    end
+
+    abi_def :red, :get_, nil => Integer
+    abi_def :green, :get_, nil => Integer
+    abi_def :blue, :get_, nil => Integer
+    abi_def :alpha, :get_, nil => Integer
+    abi_def :fade, :apply_opacity, Float => Color
+
+    def brightness
+      Color.rgb_to_hsv(red, green, blue)[2]
+    end
+
+    def lighter light
+      h, s, v = *Color.rgb_to_hsv(red, green, blue)
+      Color.new *Color.hsv_to_rgb(h, s, (v + light).clamp(0, 255)), alpha
+    end
+
+    def darker shadow
+      h, s, v = *Color.rgb_to_hsv(red, green, blue)
+      Color.new *Color.hsv_to_rgb(h, s, (v - shadow).clamp(0, 255)), alpha
+    end
+
+    def to_a
+      [red, green, blue, alpha]
+    end
+
+    def to_s
+      "##{to_a.map{ _1.to_s(16).ljust(2, '0') }.join}"
+    end
+
+    def inspect
+      to_s
+    end
+
+    def self.tones_from_string str
+      str.delete_prefix("#").scan(/../).map(&:hex) + Array.new(4, 255)
+    end
+
+    def self.rgb_to_hsv(red, green, blue)
+      min, max = *[red, green, blue].minmax
+      mdiff = max - min
+      if min == max
+        hue = 0.0
+      elsif red == max
+        hue = (green - blue) * 43.0 / mdiff
+      elsif green == max
+        hue = 85 + (blue - red) * 43.0 / mdiff
+      else
+        hue = 171 + (red - green) * 43.0 / mdiff
+      end
+
+      hue += 256 if hue < 0
+      saturation = max > 0 ? mdiff * 255.0 / max : 0.0
+      [hue, saturation, max].map(&:round)
+    end
+
+    def self.hsv_to_rgb(hue, saturation, value)
+      return [value, value, value] if saturation == 0
+
+      region = hue / 43;
+      remainder = (hue - (region * 43.0)) * 6; 
+      
+      x = (255.0 - saturation) * value / 256.0;
+      y = (255.0 - ((saturation * remainder) / 256.0)) * value / 256.0;
+      z = (255.0 - ((saturation * (255.0 - remainder)) / 256.0)) * value / 256.0;
+      
+      return case region
+      when 0
+        [value, z, x]
+      when 1
+        [y, value, x]
+      when 2
+        [x, value, z]
+      when 3
+        [x, y, value]
+      when 4
+        [z, x, value]
+      else
+        [value, x, y]
+      end.map(&:round)
+    end
+  end
+end

data/lib/white_gold/dsl/color_picker.rb

@@ -0,0 +1,12 @@
+require_relative 'child_window'
+require_relative 'signal/signal_color'
+
+module Tgui
+  class ColorPicker < ChildWindow
+
+    abi_attr :color, Color
+    abi_signal :on_color_change, SignalColor
+    abi_signal :on_ok_press, SignalColor
+
+  end
+end

data/lib/white_gold/dsl/combo_box.rb

@@ -0,0 +1,135 @@
+require_relative 'widget'
+require_relative 'signal/signal_item'
+require_relative '../convention/widget_like'
+
+module Tgui
+  class ComboBox < 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
+
+    api_attr :format do
+      :to_s
+    end
+
+    abi_attr :display_count, Integer, :items_to_display
+    abi_attr :default_text, String
+    abi_attr :scroll_item?, Boolean, :change_item_on_scroll
+    abi_signal :on_item_select, SignalItem
+
+    abi_enum "ExpandDirection", :down, :up, :auto
+
+    @@auto_item_id = "@/"
+
+    class Item < WidgetLike
+      def initialize combo_box, id
+        @combo_box = combo_box
+        @id = id
+      end
+
+      def object=(object)
+        @combo_box.self_objects[@id] = object
+      end
+
+      def object
+        return @combo_box.self_objects[@id]
+      end
+
+      def text=(text)
+        @combo_box._abi_change_item_by_id abi_pack_string(@id), abi_pack_string(text)
+      end
+
+      def text
+        abi_unpack_string(@combo_box._abi_get_item_by_id abi_pack_string(@id))
+      end
+
+      def selected=(selected)
+        if selected
+          @combo_box.selected = object
+        else
+          @combo_box.deselect if selected?
+        end
+      end
+
+      def selected?
+        @combo_box.selected == object
+      end
+
+    end
+
+    def! :item do |object, **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
+      self_objects[id] = object
+      upon! item, **na, &b
+    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 combobox" 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 remove_all
+      self_objects.clear
+      _abi_remove_all_items
+    end
+
+    def items=(items)
+      remove_all
+      items.each do |item|
+        self.item item
+      end
+    end
+    
+    def items
+      self_objects.values
+    end
+
+    abi_attr :expand_direction, ExpandDirection
+
+    def [](object)
+      id = self_find_id_by_object object
+      id ? Item.new(self, id) : nil
+    end
+
+    # internal
+
+    api_attr :self_objects do
+      {}
+    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/container.rb

@@ -0,0 +1,95 @@
+require_relative 'widget'
+
+module Tgui
+  class Container < Widget
+
+    def widgets
+      widgets = []
+      block_caller = Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_VOIDP, Fiddle::TYPE_VOIDP]) do |pointer, type|
+        widgets << self_cast_up(pointer, abi_pack_string(type))
+      end
+      _abi_get_widgets block_caller
+      return widgets
+    end
+    
+    abi_def :add, [Object, String] => nil
+    abi_def :remove_all
+    abi_def :inner_size, :get_, nil => Vector2f
+    abi_def :child_offset, :get_, nil => Vector2f
+    abi_def :remove, Widget => nil
+
+    def move_front widget, ceil = false
+      widget = abi_pack_widget widget
+      if ceil
+        _abi_move_widget_to_front widget
+      else
+        _abi_move_widget_forward widget
+      end
+    end
+
+    def move_back widget, floor = false
+      widget = abi_pack_widget widget
+      if floor
+        _abi_move_widget_to_back widget
+      else
+        _abi_move_widget_backward widget
+      end
+    end
+
+    def move_at index, widget
+      _abi_set_widget_index abi_pack_widget(widget), abi_pack_integer(index)
+    end
+
+    abi_def :index, :get_widget_, Widget => Integer
+    abi_def :focused_child, :get_, nil => Widget
+    abi_def :focused_leaf, :get_, nil => Widget
+    abi_def :leaf_at_position, :get_widget_at_position, [Float, Float] => Widget
+    abi_def :focus_next, :focus_next_widget
+    abi_def :focus_previous, :focus_previous_widget
+
+    def get(*keys)
+      case keys
+      in [Symbol]
+        id = page.clubs[keys.first]&.members&.first
+        id && self_cast_up(_abi_get(id.to_s))
+      else
+        Enumerator.new do |e|
+          Array(self_get_widget_name keys).flatten.compact.uniq.each do |id|
+            w = _abi_get(id.to_s)
+            e << self_cast_up(w) if w && !w.null?
+          end
+        end
+      end      
+    end
+
+    alias_method :[], :get
+
+    # internal
+
+    def abi_pack_widget o
+      case o
+      when Symbol
+        self[o]
+      when Widget
+        o
+      else
+        raise "Unable to make Widget from #{o}"
+      end
+    end
+
+    def abi_unpack_widget o
+      self_cast_up o
+    end
+
+    def self_get_widget_name a
+      case a
+      when Widget
+        a.name
+      when Enumerable
+        a.map{ self_get_widget_name _1 }.flatten
+      else
+        page.clubs[a]&.members
+      end
+    end
+  end
+end

data/lib/white_gold/dsl/edit_box.rb

@@ -0,0 +1,38 @@
+require_relative 'clickable_widget'
+require_relative 'signal/signal_string'
+require_relative 'signal/signal_typed_size_t'
+
+module Tgui
+  class EditBox < ClickableWidget
+
+    def abi_pack_integer_range *a
+      if a.size == 1
+        if a[0].is_a? Range
+          return [abi_pack_integer(o.min), abi_pack_integer(o.max - o.min)]
+        end
+      elsif a.size == 2
+        return o.map{ abi_pack_integer _1 }
+      end
+      raise "Unable to pack #{a} to IntegerRange"
+    end
+
+    abi_enum "Alignment", :left, :center, :right
+    abi_attr :default_text, String
+    abi_def :select_text, "IntegerRange" => nil
+    abi_def :selected_text, :get_, nil => String
+    abi_attr :password_character, String
+    abi_attr :characters_limit, Integer, :maximum_characters
+    abi_def :limited_text_width=, :limit_text_width, Boolean => nil
+    abi_def :limited_text_width?, :is_text_width_limited, nil => Boolean
+    abi_attr :read_only?
+    abi_attr :caret_position, Integer
+    abi_attr :suffix, String
+    abi_signal :on_text_change, SignalString
+    abi_signal :on_return_key_press, SignalString
+    abi_signal :on_return_or_unfocus, SignalString
+    abi_signal :on_caret_position_change, SignalTypedSizeT
+    abi_attr :text, String
+    abi_attr :alignment, Alignment
+    
+  end
+end

data/lib/white_gold/dsl/file_dialog.rb

@@ -0,0 +1,86 @@
+require_relative 'child_window'
+
+module Tgui
+  class FileDialog < ChildWindow
+
+    abi_def :selected_paths, nil => (String..) # not empty only in onFileSelected callback
+    abi_attr :path, String
+    abi_attr :filename, String
+
+    def file_type_filters=(filters)
+      length_it = filters.values.map(&:size).each
+      length_block_caller = Fiddle::Closure::BlockCaller.new(Fiddle::TYPE_INT, [0]) do
+        length_it.next
+      rescue StopIteration
+        0
+      end
+      filter_it = filters.map{|k, v| [k, *v] }.flatten.each
+      filter_block_caller = Fiddle::Closure::BlockCaller.new(Fiddle::TYPE_CONST_STRING, [0]) do
+        abi_pack_string filter_it.next
+      rescue StopIteration
+        ""
+      end
+      _abi_set_file_type_filters filters.size, length_block_caller, filter_block_caller, 0
+    end
+
+    def file_type_filters
+      data = Hash.new{|h, k| h[k] = [] }
+      block_caller = Fiddle::Closure::BlockCaller.new(0, [Fiddle::TYPE_INT, Fiddle::TYPE_VOIDP, Fiddle::TYPE_VOIDP]) do |i, b, f|
+        data[abi_unpack_string b] << abi_unpack_string(f)
+      end
+      _abi_get_file_type_filters block_caller
+      data.default_proc = nil
+      return data
+    end
+
+    def file_type_filter
+      filters = file_type_filters
+      key = filters.keys[_abi_get_file_type_filters_index]
+      key ? {key => filters[key]} : {} # empty filter = pass all
+    end
+
+    abi_attr :confirm_text, String, :confirm_button_text
+    abi_attr :cancel_text, String, :cancel_button_text
+    abi_attr :create_folder_text, String, :create_folder_button_text
+    abi_attr :allow_create_folder?
+    abi_attr :filename_label, String, :filename_label_text
+    abi_def :list_view_column_captions, :get_, nil => (String..)
+
+    def name_label=(label)
+      self_change_list_view_column_captions 0, label
+    end
+
+    def name_label
+      list_view_column_captions[0] 
+    end
+
+    def size_label=(label)
+      self_change_list_view_column_caption 1, label
+    end
+
+    def size_label
+      list_view_column_captions[1]
+    end
+
+    def modified_label=(label)
+      self_change_list_view_column_caption 2, label
+    end
+
+    def modified_label
+      list_view_column_captions[2]
+    end
+
+    abi_attr :file_must_exist?, :get_
+    abi_def :dir_only=, :set_selecting_directory, Boolean => nil
+    abi_def :dir_only?, :get_selecting_directory, nil => Boolean
+    abi_attr :multi_select?, :get_
+    abi_signal :on_file_select, Signal
+    abi_signal :on_cancel, Signal
+
+    def self_change_list_view_column_caption column, caption
+      captions = list_view_column_captions
+      captions[column] = abi_pack_string caption
+      _abi_set_list_view_column_captions *captions
+    end
+  end
+end

data/lib/white_gold/dsl/font.rb

@@ -0,0 +1,23 @@
+require_relative '../abi/extern_object'
+
+module Tgui
+  class Font < ExternObject
+
+    def self.from *arg
+      case arg.size
+      when 1
+        a = arg.first
+        case a
+        when Font
+          return a
+        when String
+          id = Util.expand_path a
+        else raise "Unsupported argument #{arg}"
+        end
+      else raise "Unsupported argument #{arg}"
+      end
+      Font.new id
+    end
+    
+  end
+end