glimmer-dsl-wx 0.0.2 → 0.0.6

data/lib/glimmer/wx/control_proxy/frame_proxy.rb

@@ -0,0 +1,52 @@
+# Copyright (c) 2023 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/wx/parent'
+
+module Glimmer
+  module Wx
+    class ControlProxy
+      # Proxy for Wx frame objects
+      #
+      # Follows the Proxy Design Pattern
+      class FrameProxy < ControlProxy
+        include Parent
+        
+        attr_accessor :app_name
+        
+        def initialize(keyword, parent, args, &block)
+          self.app_name = options.delete(:app_name)
+          super(keyword, parent, args, &block)
+        end
+        
+        def title=(value)
+          # wxWidgets does not allow setting a frame title if set already
+          super if (options[:title] || options['title']).nil?
+        end
+        
+        def post_add_content
+          super
+          show
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/wx/control_proxy.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2021-2023 Andy Maleh
+# Copyright (c) 2023 Andy Maleh
 #
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
@@ -19,53 +19,43 @@
 # 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/data_bindable'
+require 'glimmer/wx/data_bindable'
+require 'glimmer/wx/parent'
 
 module Glimmer
-  module LibUI
-    # Proxy for LibUI control objects
+  module Wx
+    # Proxy for Wx control objects
     #
     # Follows the Proxy Design Pattern
     class ControlProxy
       class << self
         def exists?(keyword)
-          ::LibUI.respond_to?("new_#{keyword}") or
-            ::LibUI.respond_to?(keyword) or
+          ::Wx.constants.include?(wx_constant_symbol(keyword)) or
             descendant_keyword_constant_map.keys.include?(keyword)
         end
         
         def create(keyword, parent, args, &block)
-          widget_proxy_class(keyword).new(keyword, parent, args, &block).tap {|c| control_proxies << c}
+          control_proxy_class(keyword).new(keyword, parent, args, &block)
         end
         
-        def widget_proxy_class(keyword)
+        def control_proxy_class(keyword)
           descendant_keyword_constant_map[keyword] || ControlProxy
         end
         
-        # autosave all controls in this array to avoid garbage collection
-        def control_proxies
-          @@control_proxies = [] unless defined?(@@control_proxies)
-          @@control_proxies
-        end
-        
-        def main_window_proxy
-          control_proxies.find {|c| c.is_a?(WindowProxy)}
-        end
-        
-        def menu_proxies
-          control_proxies.select {|c| c.keyword == 'menu' }
-        end
-        
-        def image_proxies
-          control_proxies.select {|c| c.keyword == 'image' }
+        def new_control(keyword, parent, args)
+          args = args.clone || []
+          if args.last.is_a?(Hash)
+            args[-1] = args[-1].clone
+          end
+          ::Wx.const_get(wx_constant_symbol(keyword)).new(parent, *args)
         end
         
-        def new_control(keyword, args)
-          ::LibUI.send("new_#{keyword}", *args)
+        def wx_constant_symbol(keyword)
+          keyword.to_s.camelcase(:upper).to_sym
         end
         
         def constant_symbol(keyword)
-          "#{keyword.camelcase(:upper)}Proxy".to_sym
+          "#{keyword.to_s.camelcase(:upper)}Proxy".to_sym
         end
         
         def keyword(constant_symbol)
@@ -73,7 +63,7 @@ module Glimmer
         end
         
         def descendant_keyword_constant_map
-          @descendant_keyword_constant_map ||= add_aliases_to_keyword_constant_map(map_descendant_keyword_constants_for(self))
+          @descendant_keyword_constant_map ||= map_descendant_keyword_constants_for(self)
         end
         
         def reset_descendant_keyword_constant_map
@@ -92,41 +82,12 @@ module Glimmer
           end
           accumulator
         end
-        
-        private
-        
-        def add_aliases_to_keyword_constant_map(keyword_constant_map)
-          KEYWORD_ALIASES.each do |keyword, alias_keyword|
-            keyword_constant_map[alias_keyword] = keyword_constant_map[keyword]
-          end
-          keyword_constant_map
-        end
       end
       
       include DataBindable
       
-      KEYWORD_ALIASES = {
-        'msg_box'       => 'message_box',
-        'msg_box_error' => 'message_box_error',
-      }
-      
-      BOOLEAN_PROPERTIES = %w[
-        padded
-        checked
-        enabled toplevel visible
-        read_only
-        margined
-        borderless fullscreen
-        stretchy
-      ]
-      
-      STRING_PROPERTIES = %w[
-        text
-        title
-      ]
-      
-      # libui returns the contained LibUI object
-      attr_reader :parent_proxy, :libui, :args, :keyword, :block, :content_added
+      # wx returns the contained LibUI object
+      attr_reader :parent_proxy, :wx, :args, :keyword, :block, :content_added
       alias content_added? content_added
       
       def initialize(keyword, parent, args, &block)
@@ -134,11 +95,14 @@ module Glimmer
         @parent_proxy = parent
         @args = args
         @block = block
-        @enabled = true
         build_control
         post_add_content if @block.nil?
       end
       
+      def options
+        @args&.last&.is_a?(Hash) ? @args.last : {}
+      end
+      
       # Subclasses may override to perform post add_content work (normally must call super)
       def post_add_content
         unless @content_added
@@ -152,40 +116,36 @@ module Glimmer
         # No Op by default
       end
       
-      def window_proxy
+      # Returns closest frame ancestor or self if it is a frame
+      def frame_proxy
         found_proxy = self
-        until found_proxy.nil? || found_proxy.is_a?(WindowProxy)
+        until found_proxy.nil? || found_proxy.is_a?(FrameProxy)
+          found_proxy = found_proxy.parent_proxy
+        end
+        found_proxy
+      end
+      
+      # Returns closest control ancestor
+      def control_proxy
+        found_proxy = parent_proxy
+        until found_proxy.nil? || found_proxy.is_a?(ControlProxy)
           found_proxy = found_proxy.parent_proxy
         end
         found_proxy
       end
 
       def can_handle_listener?(listener_name)
-        ::LibUI.respond_to?("#{libui_api_keyword}_#{listener_name}") ||
-          ::LibUI.respond_to?("control_#{listener_name}") ||
-          has_custom_listener?(listener_name)
+        listener_name.to_s.start_with?('on_')
+        # TODO figure out if there is a way to check this in Wx or not.
+#           has_custom_listener?(listener_name)
       end
       
       def handle_listener(listener_name, &listener)
-        # replace first listener argument (control libui pointer) with actual Ruby libui object
-        safe_listener = Proc.new { |*args| listener.call(self, *args[1..-1]) }
-        if ::LibUI.respond_to?("#{libui_api_keyword}_#{listener_name}")
-          if listeners[listener_name].nil?
-            ::LibUI.send("#{libui_api_keyword}_#{listener_name}", libui) do |*args|
-              listeners_for(listener_name).map { |listener| listener.call(*args) }.last
-            end
-          end
-          listeners_for(listener_name) << safe_listener
-        elsif ::LibUI.respond_to?("control_#{listener_name}")
-          if listeners[listener_name].nil?
-            ::LibUI.send("control_#{listener_name}", libui) do |*args|
-              listeners_for(listener_name).map { |listener| listener.call(*args) }.last
-            end
-          end
-          listeners_for(listener_name) << safe_listener
-        elsif has_custom_listener?(listener_name)
-          handle_custom_listener(listener_name, &listener)
-        end
+        event = listener_name.to_s.sub('on_', '')
+        frame_proxy.wx.send("evt_#{event}", @wx, &listener)
+#         elsif has_custom_listener?(listener_name)
+#           handle_custom_listener(listener_name, &listener)
+#         end
       end
       
       def listeners
@@ -238,31 +198,14 @@ module Glimmer
       end
       
       def respond_to?(method_name, *args, &block)
-        respond_to_libui?(method_name, *args, &block) ||
-          (
-            append_properties.include?(method_name.to_s) ||
-            (append_properties.include?(method_name.to_s.sub(/\?$/, '')) && BOOLEAN_PROPERTIES.include?(method_name.to_s.sub(/\?$/, ''))) ||
-            append_properties.include?(method_name.to_s.sub(/=$/, ''))
-          ) ||
+        @wx.respond_to?(method_name, true) ||
           can_handle_listener?(method_name.to_s) ||
           super(method_name, true)
       end
       
-      def respond_to_libui?(method_name, *args, &block)
-        ::LibUI.respond_to?("control_#{method_name}") or
-          (::LibUI.respond_to?("control_#{method_name.to_s.sub(/\?$/, '')}") && BOOLEAN_PROPERTIES.include?(method_name.to_s.sub(/\?$/, '')) ) or
-          ::LibUI.respond_to?("control_set_#{method_name.to_s.sub(/=$/, '')}") or
-          ::LibUI.respond_to?("#{libui_api_keyword}_#{method_name}") or
-          (::LibUI.respond_to?("#{libui_api_keyword}_#{method_name.to_s.sub(/\?$/, '')}") && BOOLEAN_PROPERTIES.include?(method_name.to_s.sub(/\?$/, '')) ) or
-          ::LibUI.respond_to?("#{libui_api_keyword}_set_#{method_name.to_s.sub(/=$/, '')}")
-      end
-      
       def method_missing(method_name, *args, &block)
-        if respond_to_libui?(method_name, *args, &block)
-          send_to_libui(method_name, *args, &block)
-        elsif append_properties.include?(method_name.to_s) ||
-            append_properties.include?(method_name.to_s.sub(/(=|\?)$/, ''))
-          append_property(method_name, *args)
+        if @wx.respond_to?(method_name, true)
+          @wx.send(method_name, *args, &block)
         elsif can_handle_listener?(method_name.to_s)
           handle_listener(method_name.to_s, &block)
         else
@@ -270,116 +213,6 @@ module Glimmer
         end
       end
       
-      def send_to_libui(method_name, *args, &block)
-        if ::LibUI.respond_to?("#{libui_api_keyword}_#{method_name.to_s.sub(/\?$/, '')}") && args.empty?
-          property = method_name.to_s.sub(/\?$/, '')
-          value = ::LibUI.send("#{libui_api_keyword}_#{property}", libui, *args)
-          handle_string_property(property, handle_boolean_property(property, value))
-        elsif ::LibUI.respond_to?("#{libui_api_keyword}_get_#{method_name.to_s.sub(/\?$/, '')}") && args.empty?
-          property = method_name.to_s.sub(/\?$/, '')
-          value = ::LibUI.send("#{libui_api_keyword}_get_#{property}", libui, *args)
-          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] = Glimmer::LibUI.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
-          args[0] = '' if STRING_PROPERTIES.include?(property) && args.first == nil
-          if property.to_s == 'checked'
-            current_value = Glimmer::LibUI.integer_to_boolean(::LibUI.send("#{libui_api_keyword}_checked", libui), allow_nil: false)
-            new_value = Glimmer::LibUI.integer_to_boolean(args[0], allow_nil: false)
-            ::LibUI.send("#{libui_api_keyword}_set_#{property}", libui, *args) if new_value != current_value
-          else
-            ::LibUI.send("#{libui_api_keyword}_set_#{property}", libui, *args)
-          end
-        elsif ::LibUI.respond_to?("#{libui_api_keyword}_#{method_name}") && !args.empty?
-          ::LibUI.send("#{libui_api_keyword}_#{method_name}", libui, *args)
-        elsif ::LibUI.respond_to?("control_#{method_name.to_s.sub(/\?$/, '')}") && args.empty?
-          property = method_name.to_s.sub(/\?$/, '')
-          value = ::LibUI.send("control_#{property}", libui, *args)
-          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] = Glimmer::LibUI.boolean_to_integer(args.first) if BOOLEAN_PROPERTIES.include?(property) && (args.first.is_a?(TrueClass) || args.first.is_a?(FalseClass))
-          args[0] = '' if STRING_PROPERTIES.include?(property) && args.first == nil
-          ::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)
-        end
-      end
-      
-      def append_properties
-        @parent_proxy&.class&.constants&.include?(:APPEND_PROPERTIES) ? @parent_proxy.class::APPEND_PROPERTIES : []
-      end
-      
-      def append_property(property, value = nil)
-        property = property.to_s.sub(/(=|\?)$/, '')
-        @append_property_hash ||= {}
-        if value.nil?
-          value = @append_property_hash[property]
-          handle_string_property(property, handle_boolean_property(property, value))
-        else
-          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
-      
-      def libui_api_keyword
-        @keyword
-      end
-      
-      def destroy
-        # TODO exclude menus from this initial return
-        return if !is_a?(ControlProxy::WindowProxy) && ControlProxy.main_window_proxy&.destroying?
-        data_binding_model_attribute_observer_registrations.each(&:deregister)
-        if parent_proxy.nil?
-          default_destroy
-        else
-          parent_proxy.destroy_child(self)
-        end
-      end
-      
-      def destroy_child(child)
-        child.default_destroy
-        children.delete(child)
-      end
-      
-      def default_destroy
-        deregister_all_custom_listeners
-        send_to_libui('destroy')
-        ControlProxy.control_proxies.delete(self)
-      end
-            
-      def enabled(value = nil)
-        if value.nil?
-          @enabled
-        elsif value != @enabled
-          @enabled = value == 1 || value
-          if value == 1 || value
-            send_to_libui('enable')
-          else
-            send_to_libui('disable')
-          end
-        end
-      end
-      alias enabled? enabled
-      alias set_enabled enabled
-      alias enabled= enabled
-      
-      def visible(value = nil)
-        current_value = send_to_libui('visible')
-        if value.nil?
-          current_value
-        elsif value != current_value
-          if value == 1 || value
-            send_to_libui('show')
-          else
-            send_to_libui('hide')
-          end
-        end
-      end
-      alias visible? visible
-      alias set_visible visible
-      alias visible= visible
-      
       def content(&block)
         Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Libui::ControlExpression.new, @keyword, {post_add_content: @content_added}, &block)
       end
@@ -387,20 +220,8 @@ module Glimmer
       private
       
       def build_control
-        @libui = if ::LibUI.respond_to?("new_#{keyword}")
-          ControlProxy.new_control(@keyword, @args)
-        elsif ::LibUI.respond_to?(keyword)
-          @args[0] = @args.first.libui if @args.first.is_a?(ControlProxy)
-          ::LibUI.send(@keyword, *@args)
-        end
-      end
-      
-      def handle_boolean_property(property, value)
-        BOOLEAN_PROPERTIES.include?(property) ? Glimmer::LibUI.integer_to_boolean(value) : value
-      end
-      
-      def handle_string_property(property, value)
-        STRING_PROPERTIES.include?(property) ? value.to_s : value
+        # must pass control_proxy.wx as parent because the direct parent might be a sizer
+        @wx = ControlProxy.new_control(@keyword, control_proxy&.wx, @args)
       end
     end
   end

data/lib/glimmer/wx/data_bindable.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2021-2023 Andy Maleh
+# Copyright (c) 2023 Andy Maleh
 #
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
@@ -20,7 +20,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 module Glimmer
-  module LibUI
+  module Wx
     # Parent controls and shapes who have children and add child post_initialize_child
     module DataBindable
       # Sets up read/write (bidirectional) data-binding

data/lib/glimmer/wx/parent.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2021-2023 Andy Maleh
+# Copyright (c) 2023 Andy Maleh
 #
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
@@ -20,7 +20,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 module Glimmer
-  module LibUI
+  module Wx
     # 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)

data/lib/glimmer/wx/sizer_proxy.rb

@@ -0,0 +1,150 @@
+# Copyright (c) 2023 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/wx/data_bindable'
+require 'glimmer/wx/parent'
+
+module Glimmer
+  module Wx
+    # Proxy for Wx sizer objects
+    #
+    # Follows the Proxy Design Pattern
+    class SizerProxy
+      class << self
+        def exists?(keyword)
+          keyword.end_with?('_sizer') and
+            (
+              ::Wx.constants.include?(wx_constant_symbol(keyword)) or
+              descendant_keyword_constant_map.keys.include?(keyword)
+            )
+        end
+        
+        def create(keyword, parent, args, &block)
+          sizer_proxy_class(keyword).new(keyword, parent, args, &block)
+        end
+        
+        def sizer_proxy_class(keyword)
+          descendant_keyword_constant_map[keyword] || SizerProxy
+        end
+        
+        def new_sizer(keyword, parent, args)
+          args = args.clone || []
+          if args.last.is_a?(Hash)
+            args[-1] = args[-1].clone
+          end
+          ::Wx.const_get(wx_constant_symbol(keyword)).new(*args)
+        end
+        
+        def wx_constant_symbol(keyword)
+          keyword.to_s.camelcase(:upper).to_sym
+        end
+        
+        def constant_symbol(keyword)
+          "#{keyword.to_s.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
+      
+      include DataBindable
+      
+      # wx returns the contained LibUI object
+      attr_reader :parent_proxy, :wx, :args, :keyword, :block, :content_added
+      alias content_added? content_added
+      
+      def initialize(keyword, parent, args, &block)
+        @keyword = keyword
+        @parent_proxy = parent
+        @args = args
+        @block = block
+        build_sizer
+        post_add_content if @block.nil?
+      end
+      
+      # Subclasses may override to perform post add_content work (normally must call super)
+      def post_add_content
+        unless @content_added
+          @parent_proxy&.post_initialize_child(self)
+          @content_added = true
+        end
+      end
+      
+      # Subclasses may override to perform post initialization work on an added child
+      def post_initialize_child(child)
+        # No Op by default
+      end
+      
+      def respond_to?(method_name, *args, &block)
+        @wx.respond_to?(method_name, true) ||
+          super(method_name, true)
+      end
+      
+      def method_missing(method_name, *args, &block)
+        if @wx.respond_to?(method_name, true)
+          @wx.send(method_name, *args, &block)
+        else
+          super
+        end
+      end
+      
+      def content(&block)
+        Glimmer::DSL::Engine.add_content(self, Glimmer::DSL::Libui::SizerExpression.new, @keyword, {post_add_content: @content_added}, &block)
+      end
+      
+      def add(control_proxy, *args, &block)
+        @wx.add(control_proxy.wx, *args)
+      end
+      
+      private
+      
+      def build_sizer
+        @wx = SizerProxy.new_sizer(@keyword, @parent_proxy.wx, @args)
+        parent_proxy.sizer = @wx if parent_proxy.is_a?(Glimmer::Wx::ControlProxy)
+        @wx
+      end
+    end
+  end
+end
+
+Dir[File.expand_path("./#{File.basename(__FILE__, '.rb')}/*.rb", __dir__)].each {|f| require f}

data/lib/glimmer-dsl-wx.rb

@@ -1,4 +1,4 @@
-# Copyright (c) 2021-2023 Andy Maleh
+# Copyright (c) 2023 Andy Maleh
 #
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the

data/samples/hello/hello_button.rb

@@ -0,0 +1,41 @@
+# Copyright (c) 2023 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-dsl-wx'
+
+include Glimmer
+
+frame(title: 'Hello, Button!') { |main_frame|
+  h_box_sizer {
+    button(label: 'Click To Find Who Built This!') {
+      sizer_args 0, Wx::RIGHT, 10
+      
+      on_button do
+        about_box(
+          name: main_frame.title,
+          version: Wx::WXRUBY_VERSION,
+          description: "This is the Hello, Button! sample",
+          developers: ['The Glimmer DSL for WX Development Team']
+        )
+      end
+    }
+  }
+}