white_gold 0.0.1

data/lib/white_gold/convention/bool_property.rb

@@ -0,0 +1,13 @@
+class BoolProperty
+  def initialize pointer
+    @pointer = pointer
+  end
+
+  def set value = true
+    @pointer.set value
+  end
+
+  def unset
+    @pointer.unset
+  end
+end

data/lib/white_gold/convention/boolean.rb

@@ -0,0 +1,2 @@
+module Boolean
+end

data/lib/white_gold/convention/club.rb

@@ -0,0 +1,26 @@
+class Club
+  def initialize
+    @params = {}
+    @members = []
+  end
+
+  def join id
+    @members << id
+  end
+
+  def params
+    @params
+  end
+
+  def members
+    @members
+  end
+
+  def []=(param, value)
+    @params[param] = value
+  end
+
+  def [](param)
+    @params[param]
+  end
+end

data/lib/white_gold/convention/container_widgets.rb

@@ -0,0 +1,181 @@
+require_relative '../convention/api_child'
+
+module Tgui
+
+  WIDGETS_COLLECTION = {
+    label: Tgui::Label,
+    button: Tgui::Button,
+    radio: false,
+    radio_button: Tgui::RadioButton,
+    checkbox: Tgui::CheckBox,
+    child_window: Tgui::ChildWindow,
+    editbox: Tgui::EditBox,
+    combobox: Tgui::ComboBox,
+    color_picker: Tgui::ColorPicker,
+    hola: Tgui::HorizontalLayout,
+    vela: Tgui::VerticalLayout,
+    howr: Tgui::HorizontalWrap,
+    group: Tgui::Group,
+    radio_button_group: Tgui::RadioButtonGroup,
+    grid: Tgui::Grid,
+    list_view: Tgui::ListView,
+    picture: false,
+    bitmap_button: Tgui::BitmapButton,
+    knob: Tgui::Knob,
+    message_box: Tgui::MessageBox,
+    file_dialog: Tgui::FileDialog,
+    listbox: Tgui::ListBox,
+    menu: Tgui::MenuBar,
+    panel_list_box: Tgui::PanelListBox,
+    progress_bar: Tgui::ProgressBar,
+    range_slider: Tgui::RangeSlider,
+    rich_text_label: Tgui::RichTextLabel,
+    separator_line: Tgui::SeparatorLine,
+    slider: Tgui::Slider,
+    spin_button: Tgui::SpinButton,
+    spin_control: Tgui::SpinControl,
+    tabs: Tgui::Tabs,
+    tab_container: Tgui::TabContainer,
+    text_area: Tgui::TextArea,
+    toggle_button: Tgui::ToggleButton,
+    tree_view: Tgui::TreeView,
+    scrollbar: Tgui::Scrollbar,
+    panel: Tgui::Panel,
+    chat_box: Tgui::ChatBox
+  }.freeze
+
+  module WidgetOwner
+    extend BangDef
+
+    def common_widget_nest widget, *keys, id: nil, **na, &b
+      club_params = {}
+      Enumerator.new do |e|
+        cl = widget.class
+        while cl != Object
+          e << cl
+          cl = cl.superclass
+        end
+        e << Object
+      end.to_a.reverse!.each do |key|
+        if key == widget.class
+          club = page.club key
+          club.join id if id
+        else
+          club = page.club key, create_on_missing: false
+        end
+        club_params.merge! club.params if club
+      end
+  
+      keys.each do |key|
+        club = page.club key
+        club.join id if id
+        club_params.merge! club.params
+      end
+  
+      upon! widget, **club_params, **na, &b
+    end
+
+    def child_methods
+      ## TO OPTIMIZE
+      methods.filter{ _1.start_with? ApiChild::API_CHILD_PREFIX }
+    end
+
+    def equip_child_widget widget
+      widget.page = page
+      parent = self
+      child_methods.each do |method|
+        widget.define_singleton_method method[ApiChild::API_CHILD_PREFIX.length..] do |*a|
+          parent.send(method, self, *a)
+        end
+      end
+      widget
+    end
+
+    WIDGETS_COLLECTION.each do |m, c|
+      if c
+        def! m do |*a, **na, &b|
+          common_widget_post_initialize equip_child_widget(c.new), *a, **na, &b
+        end
+      end
+    end
+
+    def! :picture do |*a, **na, &b|
+      texture = na[:texture] || Tgui::Texture.from(
+        na[:url],
+        na.dig(:part_rect, 0),
+        na.dig(:part_rect, 1),
+        na.dig(:part_rect, 2),
+        na.dig(:part_rect, 3),
+        na[:smooth]
+      )
+      transparent = na[:transparent] || false
+      pic = Tgui::Picture.new texture, transparent
+      equip_child_widget pic
+      common_widget_post_initialize pic, *a, **na.except(:url, :part_rect, :smooth, :transparent), &b
+    end
+
+    def! :radio do |object, *a, **na, &b|
+      radio = RadioButton.new
+      equip_child_widget radio
+      radio.object = object
+      na[:text] ||= object.to_s
+      common_widget_post_initialize radio, *a, **na, &b
+    end
+
+    def! :msg do |text, **buttons|
+      buttons["OK"] = nil if buttons.empty?
+      api_bang_message_box text:, position: :center, label_alignment: :center, buttons: (buttons.map do |k, v| 
+        procedure = proc do |o, b, w|
+          v&.call
+          w.close true
+        end
+        [k, procedure]
+      end)
+    end
+
+    @@auto_button_name = "Button1"
+
+    def! :btn do |text = nil, **na, &on_press|
+      if !text
+        text = @@auto_button_name
+        @@auto_button_name = @@auto_button_name.next
+      end
+      api_bang_button text:, on_press:, **na
+    end
+  end
+
+  class Container
+    include WidgetOwner
+
+    @@auto_widget_id = "@/"
+
+    def common_widget_post_initialize widget, *keys, **na, &b
+      @@auto_widget_id = id = @@auto_widget_id.next
+      add widget, id
+      common_widget_nest widget, *keys, id:, **na, &b
+    end
+
+  end
+
+  class TabContainer
+    WIDGETS_COLLECTION.each do |m, c|
+      if !method_defined? m
+        def! m do |name = nil, **na, &b|
+          raise NoMethodError.new("Method `#{m}` should be called on Panel from TabContainer, not TabContainer itself")
+        end
+      end
+    end
+  end
+
+  class ToolTip
+    include WidgetOwner
+
+    attr :widget
+
+    def common_widget_post_initialize widget, *keys, **na, &b
+      @widget = widget
+      common_widget_nest widget, *keys, **na, &b
+    end
+  end
+
+end

data/lib/white_gold/convention/page.rb

@@ -0,0 +1,96 @@
+require_relative "club"
+
+class Page < Tgui::Group
+
+  def initialize tgui
+    super()
+    @tgui = tgui
+    @widget_callbacks = {}
+    @global_callbacks = {}
+    @custom_data = Hash.new do |h, name|
+      h[name] = {}
+    end
+    @clubs = {}
+    @custom_renderers = {}
+    self.size = [100.pc, 100.pc]
+  end
+
+  def inspect
+    return "#{object_id}"
+  end
+  
+  def build
+  end
+
+  def disconnect
+    @global_callbacks.each do |id, signal|
+      signal.disconnect id
+    end
+  end
+
+  attr :widget_callbacks, :global_callbacks, :custom_data, :clubs, :custom_renderers
+
+  def go page
+    @tgui.next_page_id = page
+  end
+
+  def job **na, &b
+    @tgui.job **na, &b
+  end
+
+  def timer *a, **na, &b
+    @tgui.timer *a, **na, &b
+  end
+
+  def gui
+    @tgui.gui
+  end
+
+  def window
+    @tgui.window
+  end
+
+  def page
+    self
+  end
+
+  def controller type
+    type.new self
+  end
+
+  def club key, params = nil, create_on_missing: true
+    club = @clubs[key]
+    if !club && create_on_missing
+      club = @clubs[key] = Club.new
+    end
+    if club && params
+      params.each do |k, v|
+        club[k] = v
+      end
+    end
+    club
+  end
+
+  def theme
+    Theme.default
+  end
+
+  def! :theme do |seed = nil, **na, &b|
+    theme = self.theme
+    if seed
+      theme.reset_attributes
+      upon! theme do
+        load Theme.loadpath(seed)
+      end
+    end
+    upon! theme, **na, &b
+    theme.self_commit @custom_renderers
+  end
+
+  def! :tgui_theme do |path|
+    theme = self.theme
+    theme.reset_attributes
+    theme.source = path
+    theme.self_commit @custom_renderers
+  end
+end

data/lib/white_gold/convention/proc_method_factory.rb

@@ -0,0 +1,22 @@
+class ProcMethodFactory
+  def initialize source
+    @source = source
+  end
+
+  def method_missing name, *curry
+    proc do |*a, **na, &b|
+      method = @source.method name
+      arity = method.arity
+      a = [*curry, *a]
+      if arity >= 0
+        @source.send(name, *a[...arity], **na, &b)
+      else
+        @source.send(name, *a, **na, &b)
+      end
+    end
+  end
+
+  def respond_to? name
+    @source.respond_to? name
+  end
+end

data/lib/white_gold/convention/unit.rb

@@ -0,0 +1,22 @@
+class Unit
+  @@default = :px
+
+  class << self
+    
+    def default=(unit)
+      @@default = unit
+    end
+
+    def default
+      @@default
+    end
+
+    def nominate numeric, unit = @@default
+      case unit
+      when :pixel, :px then numeric.px
+      when :percent, :pc then numeric.pc
+      else raise "Ivalid unit `#{unit}` (:px/:pixel/:pc/:percent allowed)"
+      end
+    end
+  end
+end

data/lib/white_gold/convention/widget_like.rb

@@ -0,0 +1,146 @@
+require_relative 'bang_def'
+require_relative 'bang_nest'
+
+class WidgetLike
+  extend BangDef
+  include BangNest
+
+  class << self
+    def abi_def name, original_name = nil, id: false, **na
+      if original_name
+        if original_name.end_with? "_"
+          abi_name = "_abi_#{original_name}#{name}".delete_suffix("=").delete_suffix("?").to_sym
+        else
+          abi_name = "_abi_#{original_name}".to_sym
+        end
+      else
+        if name.end_with? "?"
+          abi_name = "_abi_is_#{name}".delete_suffix("?").to_sym
+        elsif name.end_with? "="
+          abi_name = "_abi_set_#{name}".delete_suffix("=").to_sym
+        else
+          abi_name = "_abi_#{name}".to_sym
+        end
+      end
+
+      na = {nil => nil} if na.empty?
+      if id
+        interface = na.map do |k, v|
+          k = self_packers_id_extend id, *k
+          Interface.from k, v 
+        end.first
+        if name.to_s.end_with? "="
+          self_abi_def_setter_with_id name, abi_name, interface, id
+        else
+          self_abi_def_with_id name, abi_name, interface, id
+        end
+      else
+        interface = na.map do |k, v|
+          Interface.from k, v 
+        end.first
+        if name.to_s.end_with? "="
+          self_abi_def_setter name, abi_name, interface
+        else
+          self_abi_def name, abi_name, interface
+        end
+      end
+    end
+
+    def self_packers_id_extend id_position, *packers
+      [*packers[0...id_position], Object, *packers[id_position..]]
+    end
+
+    def self_abi_def name, abi_name, abi_interface
+      define_method name do |*a|
+        abi_interface.call host, abi_name, *a
+      end
+    end
+
+    def self_abi_def_with_id name, abi_name, abi_interface, id_position
+      define_method name do |*a|
+        abi_interface.call host, abi_name, *a[0...id_position], id, *a[id_position..]
+      end
+    end
+
+    def self_abi_def_setter name, abi_name, abi_interface
+      define_method name do |a = VOID|
+        abi_interface.call host, abi_name, *a
+      end
+    end
+
+    def self_abi_def_setter_with_id name, abi_name, abi_interface, id_position
+      define_method name do |a = VOID|
+        a = [a] if !a.is_a? Array
+        abi_interface.call host, abi_name, *a[0...id_position], id, *a[id_position..]
+      end
+    end
+
+    def abi_attr name, type = nil, original_name = nil, id: false
+      if original_name
+        if original_name.end_with? "_"
+          getter = "get_#{original_name}#{name}".delete_suffix("?").to_sym
+          setter = "set_#{original_name}#{name}".delete_suffix("?").to_sym
+        else
+          getter = "get_#{original_name}".to_sym
+          setter = "set_#{original_name}".to_sym
+        end
+      else
+        if name.end_with? "?"
+          getter = "is_#{name}".delete_suffix("?").to_sym
+        else 
+          getter = "get_#{name}".to_sym
+        end
+        setter = "set_#{name}".delete_suffix("?").to_sym
+      end
+      type ||= Boolean if name.end_with? "?"
+      abi_def "#{name.to_s.delete_suffix("?")}=".to_sym, setter, id: id, type => nil
+      abi_def name, getter, id: id, nil => type
+    end
+
+    def abi_enum base, *keys, **indexed_keywords
+      if base.is_a? Enum
+        enum = base
+      else
+        enum = Enum.new *keywords, **indexed_keywords
+        const_set base, enum
+        enum.name = base
+      end
+      abi_packer enum do |o|
+        enum.sym_to_i(o)
+      end
+      abi_unpacker enum do |o|
+        enum.i_to_sym(o)
+      end
+    end
+
+    def abi_bit_enum name, zero, *keywords, **indexed_keywords
+      if base.is_a? Enum
+        enum = base
+      else
+        enum = Enum.new zero, **(keywords.each_with_index.map{[_1, 1 << _2]}.to_h), **indexed_keywords
+        const_set base, enum
+        enum.name = base
+      end
+      abi_packer enum do |o|
+        enum.pack(o)
+      end
+      abi_unpacker enum do |o|
+        enum.unpack(o)
+      end
+    end
+  end
+
+  def initialize host, id
+    @host = host
+    @id = id
+  end
+
+  attr :host
+  attr :id
+
+  def flags=(flags)
+    flags.each do |f|
+      send("#{f}=", true)
+    end
+  end
+end

data/lib/white_gold/dsl/backend_gui.rb

@@ -0,0 +1,37 @@
+require_relative '../abi/extern_object'
+require_relative '../convention/bang_nest'
+require_relative 'signal/global_signal'
+require_relative 'font'
+
+module Tgui
+  class BackendGui < ExternObject
+    include BangNest
+
+    class ViewSignal < GlobalSignal
+      def block_caller &b
+        Fiddle::Closure::BlockCaller.new(0, [0]) do
+            b.(@widget.view, @widget)
+        end
+      end
+    end
+
+    abi_def :view=, :set_absolute_, [Integer] * 4 => nil
+    abi_def :relative_view=, [Float] * 4 => nil
+    abi_def :view, :get_, nil => [Float] * 4
+    abi_def :viewport=, :set_absolute_, [Integer] * 4 => nil
+    abi_def :viewport, :get_, nil => [Float] * 4
+    abi_def :relative_viewport=, [Float] * 4 => nil
+    abi_def :tab_focus_pass?, :is_tab_key_usage_enabled, nil => Boolean
+    abi_def :tab_focus_pass=, :tab_key_usage_enabled, Boolean => nil
+    abi_attr :font, Font
+    abi_def :unfocus, :unfocus_all_widgets
+    abi_attr :opacity, Float
+    abi_attr :text_size, Integer
+    abi_def :push_mouse_cursor, :set_override_mouse_cursor, CursorType => nil
+    abi_def :pop_mouse_cursor, :restore_override_mouse_cursor
+    abi_def :px_to_crd, :map_pixel_to_coords, [Integer, Integer] => [Float, Float]
+    abi_def :crd_to_px, :map_coords_to_pixel, [Float, Float] => [Float, Float]
+    abi_signal :on_view_change, ViewSignal
+    
+  end
+end

data/lib/white_gold/dsl/bitmap_button.rb

@@ -0,0 +1,11 @@
+require_relative 'button'
+require_relative 'texture'
+
+module Tgui
+  class BitmapButton < Button
+
+    abi_attr :image_scaling, Float
+    abi_attr :image, Texture
+    
+  end
+end

data/lib/white_gold/dsl/box_layout.rb

@@ -0,0 +1,47 @@
+require_relative 'group'
+
+module Tgui
+  class BoxLayout < Group
+
+    def remove widget
+      if widget.is_a? Integer
+        return _abi_remove_by_index abi_pack_integer(widget)
+      end
+      super
+    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]
+        self_cast_up(_abi_get_by_index abi_pack_integer(keys.first))
+      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
+      when Widget
+        a.name
+      when Integer
+        w = _abi_get_by_index abi_pack_integer(a)
+        return nil if w.null?
+        self_cast_up(w, equip: false).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/box_layout_ratios.rb

@@ -0,0 +1,13 @@
+require_relative 'box_layout'
+
+module Tgui
+  class BoxLayoutRatios < BoxLayout
+
+    abi_def :space, :add_space,  Float => nil
+    abi_def :space_at, :insert_space, [Integer, Float] => nil
+
+    api_child :ratio=
+    api_child :ratio, :get_
+    
+  end
+end

data/lib/white_gold/dsl/button.rb

@@ -0,0 +1,10 @@
+require_relative 'button_base'
+require_relative 'signal/signal'
+
+module Tgui
+  class Button < ButtonBase
+
+    abi_signal :on_press, Signal
+    
+  end
+end

data/lib/white_gold/dsl/button_base.rb

@@ -0,0 +1,18 @@
+require_relative 'clickable_widget'
+
+module Tgui
+  class ButtonBase < ClickableWidget
+
+    def theme_comp
+      :button
+    end
+
+    def abi_pack_text_position_vector o
+      "(#{abi_pack_float o[0]},#{abi_pack_float o[1]})"
+    end
+
+    abi_attr :text, String
+    abi_def :text_position=, [:abi_pack_text_position_vector, :abi_pack_text_position_vector] => nil
+
+  end
+end