glimmer-dsl-libui 0.1.2 → 0.1.6

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

@@ -0,0 +1,169 @@
+# 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'
+require 'glimmer/libui/parent'
+require 'glimmer/libui/control_proxy/transformable'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      # Proxy for LibUI path objects
+      #
+      # Follows the Proxy Design Pattern
+      class PathProxy < ControlProxy
+        include Parent
+        prepend Transformable
+      
+        # TODO support mode without parent proxy
+        def initialize(keyword, parent, args, &block)
+          @keyword = keyword
+          @parent_proxy = parent
+          @args = args
+          @block = block
+          @enabled = true
+          post_add_content if @block.nil?
+        end
+      
+        def post_add_content
+          super
+          if @parent_proxy.nil? && AreaProxy.current_area_draw_params
+            draw(AreaProxy.current_area_draw_params)
+            destroy
+          end
+        end
+        
+        def draw(area_draw_params)
+          build_control
+          children.dup.each {|child| child.draw(area_draw_params)}
+          ::LibUI.draw_path_end(@libui)
+          ::LibUI.draw_fill(area_draw_params[:context], @libui, fill_draw_brush.to_ptr) unless fill.empty?
+          ::LibUI.draw_stroke(area_draw_params[:context], @libui, stroke_draw_brush, draw_stroke_params) unless stroke.empty?
+          ::LibUI.draw_free_path(@libui)
+        end
+        
+        def draw_fill_mode
+          @args[0].is_a?(Integer) ? @args[0] : @args[0].to_s == 'alternate' ? 1 : 0
+        end
+        
+        def fill(*args)
+          args = args.first if args.size == 1 && (args.first.is_a?(Array) || args.first.is_a?(Hash) || args.first.is_a?(String) || args.first.is_a?(Symbol))
+          if args.empty?
+            @fill ||= {}
+          else
+            @fill = Glimmer::LibUI.interpret_color(args)
+            @fill[:a] = 1.0 if @fill.is_a?(Hash) && @fill[:a].nil?
+            @parent_proxy&.queue_redraw_all
+          end
+          @fill.tap do
+            @fill_observer ||= Glimmer::DataBinding::Observer.proc do
+              @parent_proxy&.queue_redraw_all
+            end
+            @fill_observer.observe(@fill)
+          end
+        end
+        alias fill= fill
+        alias set_fill fill
+        
+        def fill_draw_brush
+          @fill_draw_brush ||= ::LibUI::FFI::DrawBrush.malloc
+          init_draw_brush(@fill_draw_brush, @fill)
+          @fill_draw_brush
+        end
+      
+        def stroke(*args)
+          args = args.first if args.size == 1 && (args.first.is_a?(Array) || args.first.is_a?(Hash) || args.first.is_a?(String) || args.first.is_a?(Symbol))
+          if args.empty?
+            @stroke ||= {}
+          else
+            @stroke = Glimmer::LibUI.interpret_color(args)
+            @stroke[:a] = 1.0 if @stroke.is_a?(Hash) && @stroke[:a].nil?
+            @parent_proxy&.queue_redraw_all
+          end
+          @stroke.tap do
+            @stroke_observer ||= Glimmer::DataBinding::Observer.proc do
+              @parent_proxy&.queue_redraw_all
+            end
+            @stroke_observer.observe(@stroke)
+          end
+        end
+        alias stroke= stroke
+        alias set_stroke stroke
+        
+        def stroke_draw_brush
+          @stroke_draw_brush ||= ::LibUI::FFI::DrawBrush.malloc
+          init_draw_brush(@stroke_draw_brush, @stroke)
+          @stroke_draw_brush
+        end
+        
+        def draw_stroke_params
+          @draw_stroke_params ||= ::LibUI::FFI::DrawStrokeParams.malloc
+          @draw_stroke_params.Cap = @stroke[:cap] || 0 # flat
+          @draw_stroke_params.Join = @stroke[:join] || 0 # miter
+          @draw_stroke_params.Thickness = @stroke[:thickness] || 1
+          @draw_stroke_params.MiterLimit = @stroke[:miter_limit] || 10 # DEFAULT_MITER_LIMIT
+          @draw_stroke_params_dashes ||= Fiddle::Pointer.malloc(8)
+          @draw_stroke_params.Dashes = @draw_stroke_params_dashes
+          @draw_stroke_params.NumDashes = @stroke[:num_dashes] || 0 # TODO reimplement this line correctly (perhaps no need to pass num dashes, yet dashes themselves and use their count here)
+          @draw_stroke_params.DashPhase = @stroke[:dash_phase] || 0
+          @draw_stroke_params
+        end
+        
+        def destroy
+          @parent_proxy&.children&.delete(self)
+          ControlProxy.control_proxies.delete(self)
+        end
+        
+        def redraw
+          @parent_proxy&.queue_redraw_all
+        end
+        
+        private
+        
+        def build_control
+          @libui = ::LibUI.draw_new_path(draw_fill_mode)
+        end
+        
+        def init_draw_brush(draw_brush, draw_brush_args)
+          case draw_brush_args[:type]
+          when Integer
+            draw_brush.Type = draw_brush_args[:type]
+          when :solid, 'solid'
+            draw_brush.Type = 0
+          when :linear_gradient, 'linear_gradient'
+            draw_brush.Type = 1
+          when :radial_gradient, 'radial_gradient'
+            draw_brush.Type = 2
+          when :image, 'image'
+            draw_brush.Type = 3
+          else
+            draw_brush.Type = 0
+          end
+          draw_brush.R = (draw_brush_args[:r] || draw_brush_args[:red]).to_f / 255.0
+          draw_brush.G = (draw_brush_args[:g] || draw_brush_args[:green]).to_f / 255.0
+          draw_brush.B = (draw_brush_args[:b] || draw_brush_args[:blue]).to_f / 255.0
+          draw_brush.A = (draw_brush_args[:a] || draw_brush_args[:alpha])
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,45 @@
+# 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'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      # Proxy for LibUI radio buttons objects
+      #
+      # Follows the Proxy Design Pattern
+      class RadioButtonsProxy < ControlProxy
+        def items(*values)
+          values = values.first if values.first.is_a?(Array)
+          if values.empty?
+            @values
+          else
+            @values = values
+            @values.each { |value| append value }
+          end
+        end
+        alias set_items items
+        alias items= items
+      end
+    end
+  end
+end

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