glimmer-dsl-libui 0.1.4 → 0.1.8

data/lib/glimmer/libui/{button_column_proxy.rb → control_proxy/tab_item_proxy.rb}

@@ -20,52 +20,49 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/libui/control_proxy'
-require 'glimmer/libui/column'
-require 'glimmer/libui/enableable_column'
+require 'glimmer/libui/control_proxy/box/horizontal_box_proxy'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI button column objects
-    #
-    # Follows the Proxy Design Pattern
-    class ButtonColumnProxy < ControlProxy
-      include Column
-      include EnableableColumn
-      
-      def on_clicked(&block)
-        # TODO consider generalizing into custom listeners and moving to ControlProxy
-        @on_clicked_procs ||= []
-        if block.nil?
-          @on_clicked_procs
-        else
-          @on_clicked_procs << block
-          block
+    class ControlProxy
+      # Proxy for LibUI tab item objects
+      #
+      # Follows the Proxy Design Pattern
+      class TabItemProxy < ControlProxy
+        attr_reader :index
+        
+        def initialize(keyword, parent, args, &block)
+          @keyword = keyword
+          @parent_proxy = parent
+          @args = args
+          @block = block
+          @enabled = 1
+          @index = @parent_proxy.num_pages
+          @content = @block&.call
+          build_control
         end
-      end
-      
-      def can_handle_listener?(listener_name)
-        listener_name == 'on_clicked' || super
-      end
-      
-      def handle_listener(listener_name, &listener)
-        case listener_name
-        when 'on_clicked'
-          on_clicked(&listener)
-        else
-          super
+        
+        def name
+          @args.first
         end
-      end
-      
-      def notify_listeners(listener_name, *args)
-        @on_clicked_procs&.each do |on_clicked_proc|
-          on_clicked_proc.call(*args)
+        
+        def margined(value = nil)
+          if value.nil?
+            @parent_proxy.margined(@index)
+          else
+            @parent_proxy.margined(@index, value)
+          end
+        end
+        alias set_margined margined
+        alias margined= margined
+        alias margined? margined
+            
+        private
+        
+        def build_control
+          @content = Box::HorizontalBoxProxy.new('horizontal_box', @libui, []) if @content.nil?
+          @libui = @parent_proxy.append(name, @content.libui)
         end
-      end
-          
-      private
-      
-      def build_control
-        @parent_proxy.append_button_column(name, column_index, enabled_value)
       end
     end
   end

data/lib/glimmer/libui/control_proxy/table_proxy.rb

@@ -0,0 +1,182 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/libui/control_proxy'
+require 'glimmer/libui/control_proxy/dual_column'
+require 'glimmer/data_binding/observer'
+require 'glimmer/fiddle_consumer'
+
+using ArrayIncludeMethods
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      # Proxy for LibUI table objects
+      #
+      # Follows the Proxy Design Pattern
+      class TableProxy < ControlProxy
+        include Glimmer::FiddleConsumer
+        
+        attr_reader :model_handler, :model, :table_params, :columns
+      
+        def initialize(keyword, parent, args, &block)
+          @keyword = keyword
+          @parent_proxy = parent
+          @args = args
+          @block = block
+          @enabled = true
+          @columns = []
+          @cell_rows = []
+          window_proxy.on_destroy do
+            # the following unless condition is an exceptional condition stumbled upon that fails freeing the table model
+            ::LibUI.free_table_model(@model) unless @destroyed && parent_proxy.is_a?(Box)
+          end
+        end
+        
+        def post_add_content
+          build_control
+          super
+        end
+        
+        def post_initialize_child(child)
+          @columns << child
+          # add an extra complementary nil column if it is a dual column (i.e. ImageTextColumnProxy or CheckboxTextColumnProxy
+          @columns << nil if child.is_a?(DualColumn)
+        end
+        
+        def destroy
+          super
+          @destroyed = true
+        end
+        
+        def cell_rows(rows = nil)
+          if rows.nil?
+            @cell_rows
+          else
+            @cell_rows = rows
+            @cell_rows.tap do
+              @last_cell_rows = @cell_rows.clone
+              Glimmer::DataBinding::Observer.proc do
+                if @cell_rows.size < @last_cell_rows.size && @last_cell_rows.include_all?(*@cell_rows)
+                  @last_cell_rows.array_diff_indexes(@cell_rows).reverse.each do |row|
+                    ::LibUI.table_model_row_deleted(model, row)
+                  end
+                elsif @cell_rows.size > @last_cell_rows.size && @cell_rows.include_all?(*@last_cell_rows)
+                  @cell_rows.array_diff_indexes(@last_cell_rows).each do |row|
+                    ::LibUI.table_model_row_inserted(model, row)
+                  end
+                else
+                  @cell_rows.each_with_index do |new_row_data, row|
+                    ::LibUI.table_model_row_changed(model, row) if new_row_data != @last_cell_rows[row]
+                  end
+                end
+                @last_cell_rows = @cell_rows.clone
+              end.observe(self, :cell_rows)
+            end
+          end
+        end
+        alias cell_rows= cell_rows
+        alias set_cell_rows cell_rows
+        
+        def expanded_cell_rows
+          cell_rows.map do |row|
+            row.flatten(1)
+          end
+        end
+        
+        def editable(value = nil)
+          if value.nil?
+            @editable
+          else
+            @editable = !!value
+          end
+        end
+        alias editable= editable
+        alias set_editable editable
+        alias editable? editable
+        
+        private
+        
+        def build_control
+          @model_handler = ::LibUI::FFI::TableModelHandler.malloc
+          @model_handler.NumColumns   = fiddle_closure_block_caller(4) { @columns.map {|c| c.is_a?(DualColumn) ? 2 : 1}.sum }
+          @model_handler.ColumnType   = fiddle_closure_block_caller(4, [1, 1, 4]) do |_, _, column|
+            case @columns[column]
+            when Column::TextColumnProxy, Column::ButtonColumnProxy, NilClass
+              0
+            when Column::ImageColumnProxy, Column::ImageTextColumnProxy
+              1
+            when Column::CheckboxColumnProxy, Column::CheckboxTextColumnProxy, Column::ProgressBarColumnProxy
+              2
+            end
+          end
+          @model_handler.NumRows      = fiddle_closure_block_caller(4) { cell_rows.count }
+          @model_handler.CellValue    = fiddle_closure_block_caller(1, [1, 1, 4, 4]) do |_, _, row, column|
+            the_cell_rows = expanded_cell_rows
+            case @columns[column]
+            when Column::TextColumnProxy, Column::ButtonColumnProxy, NilClass
+              ::LibUI.new_table_value_string((expanded_cell_rows[row] && expanded_cell_rows[row][column]).to_s)
+            when Column::ImageColumnProxy, Column::ImageTextColumnProxy
+              ::LibUI.new_table_value_image((expanded_cell_rows[row] && (expanded_cell_rows[row][column].respond_to?(:libui) ? expanded_cell_rows[row][column].libui : expanded_cell_rows[row][column])))
+            when Column::CheckboxColumnProxy, Column::CheckboxTextColumnProxy
+              ::LibUI.new_table_value_int((expanded_cell_rows[row] && (expanded_cell_rows[row][column] == 1 || expanded_cell_rows[row][column].to_s.strip.downcase == 'true' ? 1 : 0)))
+            when Column::ProgressBarColumnProxy
+              ::LibUI.new_table_value_int((expanded_cell_rows[row] && (expanded_cell_rows[row][column].to_i)))
+            end
+          end
+          @model_handler.SetCellValue = fiddle_closure_block_caller(0, [1, 1, 4, 4, 1]) do |_, _, row, column, val|
+            case @columns[column]
+            when Column::TextColumnProxy
+              column = @columns[column].index
+              @cell_rows[row] ||= []
+              @cell_rows[row][column] = ::LibUI.table_value_string(val).to_s
+            when NilClass
+              column = @columns[column - 1].index
+              @cell_rows[row][column][1] = ::LibUI.table_value_string(val).to_s
+            when Column::ButtonColumnProxy
+              @columns[column].notify_listeners(:on_clicked, row)
+            when Column::CheckboxColumnProxy, Column::CheckboxTextColumnProxy
+              column = @columns[column].index
+              @cell_rows[row] ||= []
+              @cell_rows[row][column] = ::LibUI.table_value_int(val).to_i == 1
+            end
+          end
+          
+          @model = ::LibUI.new_table_model(@model_handler)
+          
+          @table_params = ::LibUI::FFI::TableParams.malloc
+          @table_params.Model = @model
+          @table_params.RowBackgroundColorModelColumn = -1
+          
+          @libui = ControlProxy.new_control(@keyword, [@table_params])
+          @libui.tap do
+            @columns.each {|column| column&.send(:build_control) }
+          end
+        end
+        
+        def next_column_index
+          @next_column_index ||= -1
+          @next_column_index += 1
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/libui/control_proxy/transformable.rb

@@ -0,0 +1,74 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/libui/control_proxy/matrix_proxy'
+
+module Glimmer
+  module LibUI
+    # This is meant to be prepended (not included) because it changes behavior of instance draw method
+    # Adds transform property to controls/shapes
+    # Automatically applies transform property at the beginning of draw operation and undoes it at the end
+    # Stacks up with Parent module (must include Parent beforehand)
+    # Expects transformable to implement redraw method
+    module Transformable
+      def post_initialize_child(child, add_child: true)
+        if child.is_a?(ControlProxy::MatrixProxy)
+          super(child, add_child: false)
+          self.transform = child if child.keyword == 'transform'
+        else
+          super(child, add_child: add_child)
+        end
+      end
+    
+      # Returns transform or sets it. Expects transformable to implement redraw method (delegating work to area).
+      def transform(matrix = nil)
+        if matrix.nil?
+          @transform
+        else
+          @transform = matrix
+          redraw
+        end
+      end
+      alias transform= transform
+      alias set_transform transform
+      
+      # Apply transform matrix to coordinate system
+      def apply_transform(area_draw_params)
+        ::LibUI.draw_transform(area_draw_params[:context], @transform.libui) unless @transform.nil?
+      end
+      
+      # Inverse of apply_transform (applies inverse transformation to undo initial transformation)
+      def undo_transform(area_draw_params)
+        unless @transform.nil?
+          inverse_transform = @transform.clone
+          inverse_transform.invert
+          ::LibUI.draw_transform(area_draw_params[:context], inverse_transform.libui)
+        end
+      end
+      
+      def draw(area_draw_params)
+        apply_transform(area_draw_params)
+        super(area_draw_params)
+        undo_transform(area_draw_params)
+      end
+    end
+  end
+end

data/lib/glimmer/libui/control_proxy/window_proxy.rb

@@ -0,0 +1,128 @@
+# Copyright (c) 2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/libui/control_proxy'
+require 'glimmer/libui/control_proxy/area_proxy'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      # Proxy for LibUI window objects
+      #
+      # Follows the Proxy Design Pattern
+      class WindowProxy < ControlProxy
+        DEFAULT_TITLE = ''
+        DEFAULT_WIDTH = 190
+        DEFAULT_HEIGHT = 150
+        DEFAULT_HAS_MENUBAR = 1
+        
+        def post_initialize_child(child)
+          if child.is_a?(AreaProxy)
+            vertical_box_parent = ControlProxy.create('vertical_box', self, [])
+            child.instance_variable_set(:@parent_proxy, vertical_box_parent)
+            vertical_box_parent.post_initialize_child(child)
+            child = vertical_box_parent
+          end
+          ::LibUI.window_set_child(@libui, child.libui)
+        end
+        
+        def destroy_child(child)
+          ::LibUI.send("window_set_child", @libui, nil)
+          super
+        end
+        
+        def destroy
+          super
+          ControlProxy.image_proxies.each { |image_proxy| ::LibUI.free_image(image_proxy.libui) }
+          @on_destroy_procs&.each { |on_destroy_proc| on_destroy_proc.call(self)}
+        end
+        
+        def on_destroy(&block)
+          # TODO look into a way to generalize this logic for multiple listeners
+          @on_destroy_procs ||= []
+          if block.nil?
+            @on_destroy_procs
+          else
+            @on_destroy_procs << block
+            block
+          end
+        end
+      
+        def show
+          super
+          unless @shown_at_least_once
+            @shown_at_least_once = true
+            ::LibUI.main
+            ::LibUI.quit
+          end
+        end
+        
+        def can_handle_listener?(listener_name)
+          listener_name == 'on_destroy' || super
+        end
+        
+        def handle_listener(listener_name, &listener)
+          case listener_name
+          when 'on_destroy'
+            on_destroy(&listener)
+          else
+            if listener_name == 'on_closing'
+              default_behavior_listener = Proc.new do
+                return_value = listener.call(self)
+                if return_value.is_a?(Numeric)
+                  return_value
+                else
+                  destroy
+                  ::LibUI.quit
+                  0
+                end
+              end
+            end
+            super(listener_name, &default_behavior_listener)
+          end
+        end
+      
+        private
+        
+        def build_control
+          if OS.mac? && ControlProxy.menu_proxies.empty?
+            menu_proxy = ControlProxy.create('menu', nil, [''])
+            quit_menu_item_proxy = ControlProxy.create('quit_menu_item', menu_proxy, [])
+          end
+          construction_args = @args.dup
+          construction_args[0] = DEFAULT_TITLE if construction_args.size == 0
+          construction_args[1] = DEFAULT_WIDTH if construction_args.size == 1
+          construction_args[2] = DEFAULT_HEIGHT if construction_args.size == 2
+          construction_args[3] = DEFAULT_HAS_MENUBAR if construction_args.size == 3
+          construction_args[3] = Glimmer::LibUI.boolean_to_integer(construction_args[3]) if construction_args.size == 4 && (construction_args[3].is_a?(TrueClass) || construction_args[3].is_a?(FalseClass))
+          @libui = ControlProxy.new_control(@keyword, construction_args)
+          @libui.tap do
+            handle_listener('on_closing') do
+              destroy
+              ::LibUI.quit
+              0
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/libui/control_proxy.rb

@@ -29,7 +29,7 @@ module Glimmer
         def exists?(keyword)
           ::LibUI.respond_to?("new_#{keyword}") ||
             ::LibUI.respond_to?(keyword) ||
-            Glimmer::LibUI.constants.include?("#{keyword.camelcase(:upper)}Proxy".to_sym)
+            descendant_keyword_constant_map.keys.include?(keyword)
         end
         
         def create(keyword, parent, args, &block)
@@ -37,12 +37,8 @@ module Glimmer
         end
         
         def widget_proxy_class(keyword)
-          begin
-            class_name = "#{keyword.camelcase(:upper)}Proxy".to_sym
-            Glimmer::LibUI.const_get(class_name)
-          rescue
-            Glimmer::LibUI::ControlProxy
-          end
+          class_name = constant_symbol(keyword)
+          descendant_keyword_constant_map[keyword] || ControlProxy
         end
         
         # autosave all controls in this array to avoid garbage collection
@@ -52,15 +48,7 @@ module Glimmer
         end
         
         def main_window_proxy
-          control_proxies.find {|c| c.is_a?(Glimmer::LibUI::WindowProxy)}
-        end
-        
-        def integer_to_boolean(int, allow_nil: true)
-          int.nil? ? (allow_nil ? nil : false) : int == 1
-        end
-        
-        def boolean_to_integer(bool, allow_nil: true)
-          bool.nil? ? (allow_nil ? nil : 0) : (bool ? 1 : 0)
+          control_proxies.find {|c| c.is_a?(WindowProxy)}
         end
         
         def menu_proxies
@@ -74,6 +62,35 @@ module Glimmer
         def new_control(keyword, args)
           ::LibUI.send("new_#{keyword}", *args)
         end
+        
+        def constant_symbol(keyword)
+          "#{keyword.camelcase(:upper)}Proxy".to_sym
+        end
+        
+        def keyword(constant_symbol)
+          constant_symbol.to_s.underscore.sub(/_proxy$/, '')
+        end
+        
+        def descendant_keyword_constant_map
+          @descendant_keyword_constant_map ||= map_descendant_keyword_constants_for(self)
+        end
+        
+        def reset_descendant_keyword_constant_map
+          @descendant_keyword_constant_map = nil
+          descendant_keyword_constant_map
+        end
+        
+        def map_descendant_keyword_constants_for(klass, accumulator: {})
+          klass.constants.map do |constant_symbol|
+            [constant_symbol, klass.const_get(constant_symbol)]
+          end.select do |constant_symbol, constant|
+            constant.is_a?(Module) && !accumulator.values.include?(constant)
+          end.each do |constant_symbol, constant|
+            accumulator[keyword(constant_symbol)] = constant
+            map_descendant_keyword_constants_for(constant, accumulator: accumulator)
+          end
+          accumulator
+        end
       end
       
       BOOLEAN_PROPERTIES = %w[
@@ -124,7 +141,8 @@ module Glimmer
 
       def can_handle_listener?(listener_name)
         ::LibUI.respond_to?("#{libui_api_keyword}_#{listener_name}") ||
-          ::LibUI.respond_to?("control_#{listener_name}")
+          ::LibUI.respond_to?("control_#{listener_name}") ||
+          has_custom_listener?(listener_name)
       end
       
       def handle_listener(listener_name, &listener)
@@ -133,6 +151,34 @@ module Glimmer
           ::LibUI.send("#{libui_api_keyword}_#{listener_name}", @libui, &safe_listener)
         elsif ::LibUI.respond_to?("control_#{listener_name}")
           ::LibUI.send("control_#{listener_name}", @libui, &safe_listener)
+        elsif has_custom_listener?(listener_name)
+          handle_custom_listener(listener_name, &listener)
+        end
+      end
+      
+      def has_custom_listener?(listener_name)
+        listener_name = listener_name.to_s
+        custom_listeners.include?(listener_name) || custom_listener_aliases.stringify_keys.keys.include?(listener_name)
+      end
+      
+      def custom_listeners
+        self.class.constants.include?(:LISTENERS) ? self.class::LISTENERS : []
+      end
+      
+      def custom_listener_aliases
+        self.class.constants.include?(:LISTENER_ALIASES) ? self.class::LISTENER_ALIASES : {}
+      end
+      
+      def handle_custom_listener(listener_name, &listener)
+        listener_name = listener_name.to_s
+        listener_name = custom_listener_aliases.stringify_keys[listener_name] || listener_name
+        instance_variable_name = "@#{listener_name}_procs"
+        instance_variable_set(instance_variable_name, []) if instance_variable_get(instance_variable_name).nil?
+        if listener.nil?
+          instance_variable_get(instance_variable_name)
+        else
+          instance_variable_get(instance_variable_name) << listener
+          listener
         end
       end
       
@@ -143,6 +189,7 @@ module Glimmer
             (append_properties.include?(method_name.to_s.sub(/\?$/, '')) && BOOLEAN_PROPERTIES.include?(method_name.to_s.sub(/\?$/, ''))) ||
             append_properties.include?(method_name.to_s.sub(/=$/, ''))
           ) ||
+          can_handle_listener?(method_name.to_s) ||
           super(method_name, true)
       end
       
@@ -161,6 +208,8 @@ module Glimmer
         elsif append_properties.include?(method_name.to_s) ||
             append_properties.include?(method_name.to_s.sub(/(=|\?)$/, ''))
           append_property(method_name, *args)
+        elsif can_handle_listener?(method_name.to_s)
+          handle_listener(method_name.to_s, &block)
         else
           super
         end
@@ -173,7 +222,7 @@ module Glimmer
           handle_string_property(property, handle_boolean_property(property, value))
         elsif ::LibUI.respond_to?("#{libui_api_keyword}_set_#{method_name.to_s.sub(/=$/, '')}") && !args.empty?
           property = method_name.to_s.sub(/=$/, '')
-          args[0] = ControlProxy.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
+          args[0] = Glimmer::LibUI.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
           ::LibUI.send("#{libui_api_keyword}_set_#{property}", @libui, *args)
         elsif ::LibUI.respond_to?("#{libui_api_keyword}_#{method_name}") && !args.empty?
           ::LibUI.send("#{libui_api_keyword}_#{method_name}", @libui, *args)
@@ -183,7 +232,7 @@ module Glimmer
           handle_string_property(property, handle_boolean_property(property, value))
         elsif ::LibUI.respond_to?("control_set_#{method_name.to_s.sub(/=$/, '')}")
           property = method_name.to_s.sub(/=$/, '')
-          args[0] = ControlProxy.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
+          args[0] = Glimmer::LibUI.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
           ::LibUI.send("control_set_#{method_name.to_s.sub(/=$/, '')}", @libui, *args)
         elsif ::LibUI.respond_to?("control_#{method_name}") && !args.empty?
           ::LibUI.send("control_#{method_name}", @libui, *args)
@@ -201,7 +250,7 @@ module Glimmer
           value = @append_property_hash[property]
           handle_string_property(property, handle_boolean_property(property, value))
         else
-          value = ControlProxy.boolean_to_integer(value) if BOOLEAN_PROPERTIES.include?(property) && (value.is_a?(TrueClass) || value.is_a?(FalseClass))
+          value = Glimmer::LibUI.boolean_to_integer(value) if BOOLEAN_PROPERTIES.include?(property) && (value.is_a?(TrueClass) || value.is_a?(FalseClass))
           @append_property_hash[property] = value
         end
       end
@@ -274,7 +323,7 @@ module Glimmer
       end
       
       def handle_boolean_property(property, value)
-        BOOLEAN_PROPERTIES.include?(property) ? ControlProxy.integer_to_boolean(value) : value
+        BOOLEAN_PROPERTIES.include?(property) ? Glimmer::LibUI.integer_to_boolean(value) : value
       end
       
       def handle_string_property(property, value)
@@ -283,3 +332,5 @@ module Glimmer
     end
   end
 end
+
+Dir[File.expand_path('./control_proxy/*.rb', __dir__)].each {|f| require f}

data/lib/glimmer/libui/{enableable_column.rb → parent.rb}

@@ -21,23 +21,15 @@
 
 module Glimmer
   module LibUI
-    module EnableableColumn
-      def enabled(value = nil)
-        if value.nil?
-          @enabled = true if @enabled.nil?
-          @enabled
-        else
-          @enabled = !!value
-        end
+    # Parent controls and shapes who have children and add child post_initialize_child
+    module Parent
+      # Subclasses can override and must call super (passing add_child: false to cancel adding child to children)
+      def post_initialize_child(child, add_child: true)
+        children << child if add_child
       end
-      alias enabled= enabled
-      alias set_enabled enabled
-      alias enabled? enabled
-
-      private
       
-      def enabled_value
-        enabled? ? -2 : -1
+      def children
+        @children ||= []
       end
     end
   end