white_gold 0.0.1

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

@@ -0,0 +1,26 @@
+require_relative 'widget_theme'
+require_relative 'scrollbar_theme'
+
+module Tgui
+  class TreeViewTheme < WidgetTheme
+
+    theme_attr :borders, :outline
+    theme_attr :padding, :outline
+    theme_attr :background_color, :color
+    theme_attr :background_color_hover, :color
+    theme_attr :selected_background_color, :color
+    theme_attr :selected_background_color_hover, :color
+    theme_attr :border_color, :color
+    theme_attr :text_color, :color
+    theme_attr :text_color_hover, :color
+    theme_attr :selected_text_color, :color
+    theme_attr :selected_text_color_hover, :color
+    theme_comp :scrollbar, ScrollbarTheme
+    theme_attr :scrollbar_width, :float
+    theme_attr :texture_background, :texture
+    theme_attr :texture_branch_expanded, :texture
+    theme_attr :texture_branch_collapsed, :texture
+    theme_attr :texture_leaf, :texture
+  
+  end
+end

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

@@ -0,0 +1,12 @@
+require_relative 'theme_component'
+
+module Tgui
+  class WidgetTheme < ThemeComponent
+    
+    theme_attr :opacity, :float
+    theme_attr :opacity_disabled, :float
+    theme_attr :text_size, :float
+    theme_attr :transparent_texture, :boolean
+
+  end
+end

data/lib/white_gold/dsl/theme.rb

@@ -0,0 +1,144 @@
+require 'tempfile'
+require_relative '../abi/extern_object'
+require_relative '../convention/bang_nest'
+Dir.each_child File.dirname(__FILE__) + "/theme" do |filename|
+  require_relative "theme/#{filename}"
+end
+
+module Tgui
+  class Theme < ExternObject
+    include BangNest
+    extend ThemeAttributed
+    
+    class << self
+
+      def default=(theme)
+        _abi_set_default Util.expand_path(theme)
+      end
+
+      def default
+        self.new pointer: _abi_get_default
+      end
+
+      def finalizer pointer
+        _abi_finalizer pointer
+      end
+      
+      def loadpath seed
+        case seed
+        when :light then File.dirname(File.dirname(__FILE__)) + '/library/theme/light.rb'
+        when String then Util.expand_path(seed)
+        else raise "#{seed} not available"
+        end
+      end
+
+      def api_attr name, &init
+        define_method "#{name}=" do |value|
+          @@data_storage[Theme.get_unshared(@pointer).to_i][name] = value
+        end
+  
+        init ||= proc{ nil }
+  
+        define_method name do
+          @@data_storage[Theme.get_unshared(@pointer).to_i][name] ||= init.()
+        end
+      end
+    end
+
+    abi_static :get_unshared
+
+    api_attr :attributes do
+      {}
+    end
+    api_attr :next_renderer_id do
+      "_0"
+    end
+
+    attr :source
+    def source=(path)
+      @source = Util.expand_path(path)
+    end
+
+    def reset_attributes
+      self.attributes = {}
+    end
+
+    def! :custom do |comp, seed, **na, &b|
+      self.next_renderer_id = renderer_id = next_renderer_id.next
+      send("#{comp}!", renderer_id, seed, **na, &b)
+      self_commit
+      renderer_id
+    end
+
+
+    theme_attr :text_color, :color
+    theme_attr :text_color_hover, :color
+    theme_attr :text_color_disabled, :color
+    theme_attr :background_color, :color
+    theme_attr :background_color_hover, :color
+    theme_attr :background_color_disabled, :color
+    theme_attr :selected_text_color, :color
+    theme_attr :selected_text_color_hover, :color
+    theme_attr :selected_background_color, :color
+    theme_attr :selected_background_color_hover, :color
+    theme_attr :border_color, :color
+    theme_attr :borders, :outline
+    theme_attr :scrollbar_width, :float
+    theme_attr :arrow_background_color, :color
+    theme_attr :arrow_background_color_hover, :color
+    theme_attr :arrow_background_color_disabled, :color
+    theme_attr :arrow_color, :color
+    theme_attr :arrow_color_hover, :color
+    theme_attr :arrow_color_disabled, :color
+
+    theme_comp :button, ButtonTheme
+    theme_comp :chat_box, ChatBoxTheme
+    theme_comp :child_window, ChildWindowTheme
+    theme_comp :color_picker, ColorPickerTheme
+    theme_comp :combobox, ComboBoxTheme, "ComboBox"
+    theme_comp :editbox, EditBoxTheme, "EditBox"
+    theme_comp :file_dialog, FileDialogTheme
+    theme_comp :group, GroupTheme
+    theme_comp :knob, KnobTheme
+    theme_comp :label, LabelTheme
+    theme_comp :listbox, ListBoxTheme, "ListBox"
+    theme_comp :list_view, ListViewTheme
+    theme_comp :menu, MenuBarTheme, "MenuBar"
+    theme_comp :message_box, MessageBoxTheme
+    theme_comp :progress_bar, ProgressBarTheme
+    theme_comp :radio_button, RadioButtonTheme
+    theme_comp :scrollbar, ScrollbarTheme
+    theme_comp :separator, SeparatorLineTheme
+    theme_comp :slider, SliderTheme
+    theme_comp :spin_button, SpinButtonTheme
+    theme_comp :tabs, TabsTheme
+    theme_comp :text_area, TextAreaTheme
+    theme_comp :tree_view, TreeViewTheme
+    theme_comp :widget, WidgetTheme
+    
+    def self_commit custom_rendered = nil
+      if attributes.size > 0
+        file = Tempfile.new
+        begin
+          if @source
+            File.foreach @source do |line|
+              file << line
+            end
+          end
+          attributes.each do |k, v|
+            file << v.to_theme << "\n"
+          end
+          file.close
+          _abi_load file.path
+        ensure
+          file.close!
+        end
+      else
+        _abi_load @source if @source
+      end
+      custom_rendered&.each do |widget, renderer|
+        widget.self_renderer = renderer
+      end
+    end
+  end
+end

data/lib/white_gold/dsl/toggle_button.rb

@@ -0,0 +1,10 @@
+require_relative 'button_base'
+
+module Tgui
+  class ToggleButton < ButtonBase
+
+    abi_attr :down?
+    abi_signal :on_toggle
+
+  end
+end

data/lib/white_gold/dsl/tool_tip.rb

@@ -0,0 +1,21 @@
+require_relative '../abi/extern_object'
+
+module Tgui
+  class ToolTip < ExternObject
+    extend Packer
+
+    attr_accessor :page
+
+    abi_static :initial_delay=, :set_
+    abi_static :initial_delay, :get_
+    abi_static :distance_to_mouse=, :set_
+    
+    def self.distance_to_mouse
+      abi_unpack_vector2f _abi_get_distance_to_mouse
+    end
+
+    abi_static :show_on_disabled=, :set_show_on_disabled_widgets
+    abi_static :show_on_disabled?, :get_show_on_disabled_widgets
+
+  end
+end

data/lib/white_gold/dsl/tree_view.rb

@@ -0,0 +1,186 @@
+require_relative 'widget'
+require_relative 'signal/signal_item_hierarchy'
+
+module Tgui
+  class TreeView < Widget
+
+    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_tree.path_str_to_object path
+          @widget.page.upon! @widget do
+            b.(object_path.last, object_path, @widget)
+          end
+        end
+      end
+    end
+
+    class TreeNode
+      def initialize object
+        @object = object
+        @nodes = {}
+      end
+
+      attr_accessor :object
+      attr :nodes
+
+      def [](*path, grow: false)
+        if grow
+          path.reduce(self){|node, str| node.nodes[str] ||= TreeNode.new nil }
+        else
+          path.reduce(self){|node, str| node&.nodes[str] }
+        end
+      end
+
+      def cut *path, last
+        self[*path].nodes.delete last
+      end
+
+      def path_str_to_object path
+        objects = []
+        path.reduce(self){|node, str| node[str].tap{|n| objects << n.object } }
+        objects
+      end
+    end
+
+    api_attr :self_tree do
+      TreeNode.new nil
+    end
+    api_attr :format do
+      :to_s
+    end
+
+    class Item < WidgetLike
+
+      alias_method :path, :id
+
+      def self_path_block &b
+        host.self_path_block path, &b
+      end
+
+      def expanded=(expanded)
+        self_path_block do
+          expanded ? host._abi_expand(_1, _2) : host._abi_collapse(_1, _2)
+        end
+      end
+
+      def collapsed=(collapsed)
+        self.expanded = !collapsed
+      end
+
+      def selected=(selected)
+        if selected
+          self_path_block do
+            host.select_item(_1, _2)
+          end
+        else
+          selected_item = host.selected_item
+          if selected_item.path == path
+            host.deselect_item
+          end
+        end
+      end
+
+      def remove
+        self_path_block do
+          host._abi_remove_item _1, _2, abi_pack_boolean(false)
+          host.self_tree.cut *_3
+        end
+      end
+
+      def! :item do |object, **na, &b|
+        host.self_add_item path, object, **na, &b
+      end
+
+      def [](*path_end)
+        Item.new host, [*path, *path_end]
+      end
+
+      def object
+        path.last
+      end
+    end
+
+    def! :item do |object, **na, &b|
+      self_add_item [], object, **na, &b
+    end
+
+    def items=(items)
+      self_items items
+    end
+
+    def items
+      self_collect_items self_tree
+    end
+
+    def [](*path)
+      Item.new self, path
+    end
+
+    def remove *path
+      self[*path].remove
+    end
+
+    def selected=(path)
+      self[*path].selected = true
+    end
+
+    def selected_item
+      path = self_selected_item_path
+      path.empty? ? nil : Item.new(self, self_tree.path_str_to_object(path))
+    end
+
+    def selected
+      selected_item&.object
+    end
+
+    abi_def :expand_all
+    abi_def :collapse_all
+    abi_def :deselect
+    abi_def :remove_all
+    abi_attr :item_height, Integer
+    abi_attr :vertical_scrollbar_value, Integer
+    abi_attr :horizontal_scrollbar_value, Integer
+    abi_signal :on_item_select, SignalItemHierarchy
+    abi_signal :on_double_click, SignalItemHierarchy
+    abi_signal :on_expand, SignalItemHierarchy
+    abi_signal :on_collapse, SignalItemHierarchy
+    abi_signal :on_right_click, SignalItemHierarchy
+
+    # internal
+
+    abi_def :self_selected_item_path, :get_selected_item, nil => (String..)
+
+    def self_items items, path = []
+      items.each do |k, v|
+        self_add_item path, k
+        self_items v, [*path, k] if v.is_a? Hash
+      end
+    end
+
+    def self_collect_items tree_node
+      tree_node.nodes.map{|k, v| [v.object, self_collect_items(v)]}.to_h
+    end
+
+
+    def self_add_item path, object, **na, &b
+      new_path = [*path, object]
+      self_path_block new_path do
+        _abi_add_item _1, _2, abi_pack_boolean(true)
+        self_tree[*_3, grow: true].object = object
+      end
+      item = Item.new self, new_path
+      upon! item, **na, &b
+    end
+
+    def self_path_block path, &b
+      path = path.map(&format)
+      b.(*abi_pack(String.., *path), path)
+    end
+  end
+end

data/lib/white_gold/dsl/util.rb

@@ -0,0 +1,17 @@
+require_relative '../abi/extern_object'
+
+module Tgui
+  class Util < ExternObject
+
+    abi_static :free
+
+    def self.expand_path path, exist: true
+      if !path.match?(/^\w:\//) # TODO UNIX
+        path = File.expand_path(path, File.dirname(ENV["OCRAN_EXECUTABLE"] || $0))
+      end
+      raise "File #{path} not found" if exist && !File.exist?(path)
+      path
+    end
+
+  end
+end

data/lib/white_gold/dsl/vertical_layout.rb

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

data/lib/white_gold/dsl/widget.rb

@@ -0,0 +1,279 @@
+require_relative '../abi/extern_object'
+require_relative '../convention/bang_nested_caller'
+require_relative '../convention/unit'
+require_relative '../convention/widget_like'
+require_relative '../convention/api_child'
+require_relative 'theme/widget_theme'
+require_relative 'color'
+require_relative 'outline'
+require_relative 'texture'
+require_relative 'signal/signal'
+require_relative 'signal/signal_vector2f'
+require_relative 'signal/signal_show_effect'
+require_relative 'signal/signal_animation_type'
+require_relative 'tool_tip'
+
+module Tgui
+  class Widget < ExternObject
+    include BangNestedCaller
+    extend BangDef
+
+    attr_accessor :page
+
+    def window
+      page.window
+    end
+
+    abi_attr :text_size, Integer
+    abi_attr :enabled?
+
+    def! :disabled do |disabled = true|
+      self.enabled = !disabled
+    end
+
+    def theme_comp
+      :widget
+    end
+
+    def! :renderer do |seed = VOID, **na, &b|
+      seed = page.custom_renderers[self] if seed == VOID
+      if !na.empty? || b
+        upon! page.theme do
+          seed = custom! theme_comp, seed, **na, &b
+        end
+        page.custom_renderers[self] = seed
+      elsif !seed
+        page.custom_renderers.delete self
+      else
+        page.custom_renderers[self] = seed
+      end
+      self.self_renderer = seed
+    end
+
+    def renderer=(renderer)
+      case renderer
+      when Hash
+        api_bang_renderer **renderer
+      when Proc
+        api_bang_renderer &renderer
+      else
+        page.custom_renderers[self] = renderer
+        self.self_renderer = renderer
+      end
+    end
+
+    abi_def :self_renderer=, :set_renderer, proc.self_renderer => nil
+    
+    abi_attr :focused?
+    abi_attr :focusable?
+    abi_signal :on_position_change, Tgui::SignalVector2f
+    abi_signal :on_size_change, Tgui::SignalVector2f
+    abi_signal :on_focus, Tgui::Signal
+    abi_signal :on_unfocus, Tgui::Signal
+    abi_signal :on_mouse_enter, Tgui::Signal
+    abi_signal :on_mouse_leave, Tgui::Signal
+    abi_signal :on_show_effect_finish, Tgui::SignalShowEffect
+    abi_signal :on_animation_finish, Tgui::SignalAnimationType
+    abi_attr :position, "PositionLayout"
+    abi_def :absolute_position, :get_, nil => "PositionLayout"
+    abi_attr :size, "SizeLayout"
+    abi_def :full_size, :get_, nil => "SizeLayout"
+    abi_def :height=, :set_, "SingleSizeLayout" => nil
+
+    def height
+      size[1]
+    end
+
+    abi_def :width=, :set_, "SingleSizeLayout" => nil
+
+    def width
+      size[0]
+    end
+
+    abi_def :can_gain_focus?, :can_gain_focus, nil => Boolean
+    abi_def :container?, nil => Boolean
+
+    def! :tooltip do |*a, **na, &b|
+      if block_given?
+        tooltip = ToolTip.new
+        tooltip.page = page
+        upon! tooltip, **na, &b
+        _abi_set_tool_tip tooltip.widget if tooltip.widget
+      else
+        widget = _abi_get_tool_tip
+        return nil if widget.null?
+        tooltip = ToolTip.new
+        tooltip.widget = widget
+        return tooltip
+      end
+    end
+
+    abi_attr :mouse_cursor, CursorType
+    abi_def :draggable?, :is_widget_, nil => Boolean
+    abi_def :mouse_down?, nil => Boolean
+
+    abi_enum "ShowEffectType", :fade, :scale, :slide_to_right, :slide_to_left, :slide_to_bottom,
+    :slide_to_top, slide_from_left: :slide_to_right, slide_from_right: :slide_to_left,
+    slide_from_top: :slide_to_bottom, slide_from_bottom: :slide_to_top
+
+    def visible=(a)
+      if a.is_a? Array
+        if a[0]
+          show *a[1..]
+        else
+          hide *a[1..]
+        end
+      else
+        _abi_set_visible abi_pack_boolean(a)
+      end
+    end
+
+    abi_def :visible?, nil => Boolean
+
+    def show effect = nil, duration = 1000
+      if effect
+        _abi_show_with_effect abi_pack(ShowEffectType, effect), abi_pack_integer(duration)
+      else
+        _abi_set_visible 1
+      end
+    end
+
+    def hide effect = nil, duration = 1000
+      if effect
+        _abi_hide_with_effect abi_pack(ShowEffectType, effect), abi_pack_integer(duration)
+      else
+        _abi_set_visible 0
+      end
+    end
+
+    def pack_animation_time o
+      o ? o.to_i : 1000
+    end
+
+    abi_def :move, :move_with_animation, ["SizeLayout", :pack_animation_time] => nil
+    abi_def :resize, :resize_with_animation, ["PositionLayout", :pack_animation_time] => nil
+
+    abi_enum "AnimationType", :move, :resize, :opacity
+
+    abi_def :finish_animations, :finish_all_animations
+    abi_def :front, :move_to_
+    abi_def :back, :move_to_
+
+    abi_enum "KeyCode", nil, :a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k, 
+      :l, :m, :n, :o, :p, :q, :r, :s, :t, :u, :v, :w, :x, :y, :z,
+      :num0, :num1, :num2, :num3, :num4, :num5, :num6, :num7, :num8, :num9,
+      :escape, :left_control, :left_shift, :left_alt, :left_system,
+      :right_control, :right_shift, :right_alt, :right_system,
+      :menu, :left_bracket, :right_bracket, :semicolon, :comma,
+      :period, :quote, :slash, :backslash, :tilde, :equal, :minus,
+      :space, :enter, :backspace, :tab, :page_up, :page_down, :end,
+      :home, :insert, :delete, :add, :substract, :multiply, :divide,
+      :left, :right, :up, :down, :numpad0, :numpad1, :numpad2, :numpad3, 
+      :numpad4, :numpad5, :numpad6, :numpad7, :numpad8, :numpad9,
+      :f1, :f2, :f3, :f4, :f5, :f6, :f7, :f8, :f9, :f10, :f11, :f12,
+      :f13, :f14, :f15, :pause
+
+    class Robot < WidgetLike
+      def initialize widget
+        super(widget, nil)
+      end
+
+      abi_def :mouse_move, :mouse_moved, [Float, Float] => nil
+
+      def mouse_press x, y, down: false
+        host._abi_left_mouse_pressed abi_pack_float(x), abi_pack_float(y)
+        mouse_release x, y if !down
+      end
+
+      abi_def :mouse_release, :left_mouse_released, [Float, Float] => nil
+      abi_def :right_mouse_press, :right_mouse_pressed, [Float, Float] => nil
+      abi_def :right_mouse_release, :right_mouse_released, [Float, Float] => nil
+
+      def key_press key, alt: false, control: false, shift: false, system: false
+        host._abi_key_pressed abi_pack(KeyCode, key), 
+          abi_pack_boolean(alt), 
+          abi_pack_boolean(control), 
+          abi_pack_boolean(shift), 
+          abi_pack_boolean(system)
+      end
+
+      def text text
+        text.each_codepoint do |cp|
+          host._abi_text_entered abi_pack_integer(cp)
+        end
+      end
+
+      def scroll delta, x, y, touch = false
+        host._abi_scrolled abi_pack_float(delta), abi_pack_float(x), abi_pack_float(y), abi_pack_boolean(touch)
+      end
+
+      abi_def :tooltip, :ask_toop_tip, [Float, Float] => nil
+    end
+
+    def! :robot do |**na, &b|
+      robot = Robot.new self
+      upon! robot, **na, &b if block_given?
+      robot
+    end
+    
+    def flags=(flags)
+      flags.each do |f|
+        send("#{f}=", true)
+      end
+    end
+
+    def self.api_attr name, &init
+      define_method "#{name}=" do |value|
+        @@data_storage[Widget.get_unshared(@pointer).to_i][name] = value
+      end
+
+      init ||= proc{ nil }
+
+      define_method name do
+        @@data_storage[Widget.get_unshared(@pointer).to_i][name] ||= init.()
+      end
+    end
+
+
+    def respond_to? name
+      super || bang_respond_to?(name)
+    end
+
+    def method_missing name, *a, **na, &b
+      if name.end_with? "!"
+        bang_method_missing name, *a, **na, &b
+      else super
+      end
+    end
+
+    def self_cast_up widget, type = nil, equip: true
+      return nil if widget.null?
+      type = abi_unpack_string(Widget.get_type widget) if !type
+      casted = Tgui.const_get(type).new pointer: widget
+      equip_child_widget casted if equip
+      casted
+    end
+
+    abi_static :get_type
+    abi_static :get_unshared
+
+    class << self
+      include ApiChild
+
+      def self_renderer widget, renderer
+        case renderer
+        when Module
+          renderer.name.split("::").last
+        when nil, false, VOID
+          self_renderer widget, widget.class
+        else
+          renderer.to_s
+        end
+      end
+
+      def finalizer pointer
+        _abi_finalizer pointer
+      end
+    end
+  end
+end