glimmer-dsl-libui 0.1.4 → 0.1.8

data/lib/glimmer/libui/path_proxy.rb

@@ -1,169 +0,0 @@
-# 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
-    # Proxy for LibUI path objects
-    #
-    # Follows the Proxy Design Pattern
-    class PathProxy < ControlProxy
-      # 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_initialize_child(child)
-        super
-        children << child
-      end
-      
-      def post_add_content
-        super
-        if @parent_proxy.nil? && area_draw_params
-          draw(area_draw_params)
-          destroy
-        end
-      end
-      
-      def children
-        @children ||= []
-      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 = nil)
-        if args.nil?
-          @fill ||= {}
-        else
-          @fill = args
-          @fill[:a] = 1.0 if @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 = nil)
-        if args.nil?
-          @stroke ||= {}
-        else
-          @stroke = args
-          @stroke[:a] = 1.0 if @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
-      
-      # returns area_draw_params if built inside on_draw listener (not needed if declared outside)
-      def area_draw_params
-        @args[0] if @parent_proxy.nil?
-      end
-    
-      def destroy
-        @parent_proxy.children.delete(self) unless @parent_proxy.nil?
-        ControlProxy.control_proxies.delete(self)
-      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

data/lib/glimmer/libui/preferences_menu_item_proxy.rb

@@ -1,37 +0,0 @@
-# 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/menu_item_proxy'
-
-module Glimmer
-  module LibUI
-    # Proxy for LibUI preferences menu item object
-    #
-    # Follows the Proxy Design Pattern
-    class PreferencesMenuItemProxy < MenuItemProxy
-      private
-      
-      def build_control
-        @libui = @parent_proxy.append_preferences_item(*@args)
-      end
-    end
-  end
-end

data/lib/glimmer/libui/separator_menu_item_proxy.rb

@@ -1,37 +0,0 @@
-# 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/menu_item_proxy'
-
-module Glimmer
-  module LibUI
-    # Proxy for LibUI separator menu item object
-    #
-    # Follows the Proxy Design Pattern
-    class SeparatorMenuItemProxy < MenuItemProxy
-      private
-      
-      def build_control
-        @libui = @parent_proxy.append_separator(*@args)
-      end
-    end
-  end
-end

data/lib/glimmer/libui/tab_item_proxy.rb

@@ -1,67 +0,0 @@
-# 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/horizontal_box_proxy'
-
-module Glimmer
-  module LibUI
-    # 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
-      
-      def name
-        @args.first
-      end
-      
-      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 = HorizontalBoxProxy.new('horizontal_box', @libui, []) if @content.nil?
-        @libui = @parent_proxy.append(name, @content.libui)
-      end
-    end
-  end
-end

data/lib/glimmer/libui/table_proxy.rb

@@ -1,180 +0,0 @@
-# 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/data_binding/observer'
-require 'glimmer/fiddle_consumer'
-
-using ArrayIncludeMethods
-
-module Glimmer
-  module LibUI
-    # 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?(Glimmer::LibUI::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 TextColumnProxy, ButtonColumnProxy, NilClass
-            0
-          when ImageColumnProxy, ImageTextColumnProxy
-            1
-          when CheckboxColumnProxy, CheckboxTextColumnProxy, 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 TextColumnProxy, ButtonColumnProxy, NilClass
-            ::LibUI.new_table_value_string((expanded_cell_rows[row] && expanded_cell_rows[row][column]).to_s)
-          when ImageColumnProxy, 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 CheckboxColumnProxy, 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 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 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 ButtonColumnProxy
-            @columns[column].notify_listeners(:on_clicked, row)
-          when CheckboxColumnProxy, 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

data/lib/glimmer/libui/text_column_proxy.rb

@@ -1,42 +0,0 @@
-# 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/column'
-require 'glimmer/libui/editable_column'
-
-module Glimmer
-  module LibUI
-    # Proxy for LibUI text column objects
-    #
-    # Follows the Proxy Design Pattern
-    class TextColumnProxy < ControlProxy
-      include Column
-      include EditableColumn
-          
-      private
-      
-      def build_control
-        @parent_proxy.append_text_column(name, column_index, editable_value)
-      end
-    end
-  end
-end

data/lib/glimmer/libui/window_proxy.rb

@@ -1,119 +0,0 @@
-# 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
-    # Proxy for LibUI window objects
-    #
-    # Follows the Proxy Design Pattern
-    class WindowProxy < ControlProxy
-      DEFAULT_TITLE = ''
-      DEFAULT_WIDTH = 150
-      DEFAULT_HEIGHT = 150
-      DEFAULT_HAS_MENUBAR = 1
-      
-      def post_initialize_child(child)
-        ::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] = ControlProxy.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