glimmer-dsl-libui 0.1.5 → 0.1.6

data/lib/glimmer/libui/{editable_column.rb → control_proxy/menu_item_proxy/about_menu_item_proxy.rb}

@@ -19,26 +19,23 @@
 # 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/menu_item_proxy'
+
 module Glimmer
   module LibUI
-    module EditableColumn
-      def editable(value = nil)
-        if value.nil?
-          @editable = false if @editable.nil?
-          @editable
-        else
-          @editable = !!value
+    class ControlProxy
+      class MenuItemProxy < ControlProxy
+        # Proxy for LibUI about menu item object
+        #
+        # Follows the Proxy Design Pattern
+        class AboutMenuItemProxy < MenuItemProxy
+          private
+          
+          def build_control
+            @libui = @parent_proxy.append_about_item(*@args)
+          end
         end
       end
-      alias editable= editable
-      alias set_editable editable
-      alias editable? editable
-
-      private
-      
-      def editable_value
-        (@parent_proxy.editable? || editable?) ? -2 : -1
-      end
     end
   end
 end

data/lib/glimmer/libui/{enableable_column.rb → control_proxy/menu_item_proxy/check_menu_item_proxy.rb}

@@ -19,26 +19,23 @@
 # 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/menu_item_proxy'
+
 module Glimmer
   module LibUI
-    module EnableableColumn
-      def enabled(value = nil)
-        if value.nil?
-          @enabled = true if @enabled.nil?
-          @enabled
-        else
-          @enabled = !!value
+    class ControlProxy
+      class MenuItemProxy < ControlProxy
+        # Proxy for LibUI check menu item object
+        #
+        # Follows the Proxy Design Pattern
+        class CheckMenuItemProxy < MenuItemProxy
+          private
+          
+          def build_control
+            @libui = @parent_proxy.append_check_item(*@args)
+          end
         end
       end
-      alias enabled= enabled
-      alias set_enabled enabled
-      alias enabled? enabled
-
-      private
-      
-      def enabled_value
-        enabled? ? -2 : -1
-      end
     end
   end
 end

data/lib/glimmer/libui/{date_picker_proxy.rb → control_proxy/menu_item_proxy/preferences_menu_item_proxy.rb}

@@ -19,19 +19,19 @@
 # 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/date_time_picker_proxy'
+require 'glimmer/libui/control_proxy/menu_item_proxy'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI date picker objects
-    #
-    # Follows the Proxy Design Pattern
-    class DatePickerProxy < DateTimePickerProxy
-      def time(value = nil)
-        if value.nil?
-          super.slice(:mday, :mon, :year, :wday, :yday)
-        else
-          super
+    class ControlProxy
+      # 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

data/lib/glimmer/libui/{quit_menu_item_proxy.rb → control_proxy/menu_item_proxy/quit_menu_item_proxy.rb}

@@ -19,42 +19,46 @@
 # 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'
+require 'glimmer/libui/control_proxy/menu_item_proxy'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI quit menu item object
-    #
-    # Follows the Proxy Design Pattern
-    class QuitMenuItemProxy < MenuItemProxy
-      def can_handle_listener?(listener_name)
-        listener_name == 'on_clicked' || super
-      end
-    
-      def handle_listener(listener_name, &listener)
-        if listener_name == 'on_clicked'
-          @default_behavior_listener = Proc.new do
-            return_value = listener.call(self)
-            if return_value.is_a?(Numeric)
-              return_value
-            else
-              destroy
+    class ControlProxy
+      class MenuItemProxy < ControlProxy
+        # Proxy for LibUI quit menu item object
+        #
+        # Follows the Proxy Design Pattern
+        class QuitMenuItemProxy < MenuItemProxy
+          def can_handle_listener?(listener_name)
+            listener_name == 'on_clicked' || super
+          end
+        
+          def handle_listener(listener_name, &listener)
+            if listener_name == 'on_clicked'
+              @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
+              ::LibUI.on_should_quit(&@default_behavior_listener)
+            end
+          end
+        
+          private
+          
+          def build_control
+            @libui = @parent_proxy.append_quit_item(*@args)
+            handle_listener('on_clicked') do
+              ControlProxy.main_window_proxy&.destroy
               ::LibUI.quit
               0
             end
           end
-          ::LibUI.on_should_quit(&@default_behavior_listener)
-        end
-      end
-    
-      private
-      
-      def build_control
-        @libui = @parent_proxy.append_quit_item(*@args)
-        handle_listener('on_clicked') do
-          ControlProxy.main_window_proxy&.destroy
-          ::LibUI.quit
-          0
         end
       end
     end

data/lib/glimmer/libui/control_proxy/menu_item_proxy/separator_menu_item_proxy.rb

@@ -0,0 +1,41 @@
+# 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/menu_item_proxy'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      class MenuItemProxy < ControlProxy
+        # 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
+  end
+end

data/lib/glimmer/libui/control_proxy/menu_item_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 menu item objects
+      #
+      # Follows the Proxy Design Pattern
+      class MenuItemProxy < ControlProxy
+        def libui_api_keyword
+          'menu_item'
+        end
+      
+        private
+        
+        def build_control
+          @libui = @parent_proxy.append_item(*@args)
+        end
+      end
+    end
+  end
+end
+
+Dir[File.expand_path("./#{File.basename(__FILE__, '.rb')}/*.rb", __dir__)].each {|f| require f}

data/lib/glimmer/libui/{editable_combobox_proxy.rb → control_proxy/menu_proxy.rb}

@@ -23,21 +23,21 @@ require 'glimmer/libui/control_proxy'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI editable combobox objects
-    #
-    # Follows the Proxy Design Pattern
-    class EditableComboboxProxy < 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 }
+    class ControlProxy
+      # Proxy for LibUI menu objects
+      #
+      # Follows the Proxy Design Pattern
+      class MenuProxy < ControlProxy
+        DEFAULT_TEXT = ''
+        
+        private
+        
+        def build_control
+          construction_args = @args.dup
+          construction_args[0] = DEFAULT_TEXT if construction_args.size == 0
+          @libui = ControlProxy.new_control(@keyword, construction_args)
         end
       end
-      alias set_items items
-      alias items= items
     end
   end
 end

data/lib/glimmer/libui/{vertical_box_proxy.rb → control_proxy/message_box/msg_box_error_proxy.rb}

@@ -20,15 +20,18 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/libui/control_proxy'
-require 'glimmer/libui/box'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI vertical box objects
-    #
-    # Follows the Proxy Design Pattern
-    class VerticalBoxProxy < ControlProxy
-      include Box
+    class ControlProxy
+      module MessageBox
+        # Proxy for LibUI msg_box_error objects
+        #
+        # Follows the Proxy Design Pattern
+        class MsgBoxErrorProxy < ControlProxy
+          include MessageBox
+        end
+      end
     end
   end
 end

data/lib/glimmer/libui/{multiline_entry_proxy.rb → control_proxy/message_box/msg_box_proxy.rb}

@@ -23,12 +23,14 @@ require 'glimmer/libui/control_proxy'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI multiline entry objects
-    #
-    # Follows the Proxy Design Pattern
-    class MultilineEntryProxy < ControlProxy
-      def libui_api_keyword
-        'multiline_entry'
+    class ControlProxy
+      module MessageBox
+        # Proxy for LibUI msg_box objects
+        #
+        # Follows the Proxy Design Pattern
+        class MsgBoxProxy < ControlProxy
+          include MessageBox
+        end
       end
     end
   end

data/lib/glimmer/libui/{time_picker_proxy.rb → control_proxy/message_box.rb}

@@ -19,21 +19,20 @@
 # 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/date_time_picker_proxy'
-
 module Glimmer
   module LibUI
-    # Proxy for LibUI time picker objects
-    #
-    # Follows the Proxy Design Pattern
-    class TimePickerProxy < DateTimePickerProxy
-      def time(value = nil)
-        if value.nil?
-          super.slice(:sec, :min, :hour)
-        else
+    class ControlProxy
+      # Represents LibUI message box objects
+      module MessageBox
+        def build_control
+          @args.prepend ControlProxy.main_window_proxy if @args[0].nil? || @args[0].is_a?(String)
+          @args[1] ||= ''
+          @args[2] ||= ''
           super
         end
       end
     end
   end
 end
+
+Dir[File.expand_path("./#{File.basename(__FILE__, '.rb')}/*.rb", __dir__)].each {|f| require f}

data/lib/glimmer/libui/{rectangle.rb → control_proxy/multiline_entry_proxy/non_wrapping_multiline_entry_proxy.rb}

@@ -19,17 +19,15 @@
 # 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/shape'
+require 'glimmer/libui/control_proxy/multiline_entry_proxy'
 
 module Glimmer
   module LibUI
-    class Rectangle < Shape
-      parameters :x, :y, :width, :height
-      parameter_defaults 0, 0, 0, 0
-    
-      def draw(area_draw_params)
-        ::LibUI.draw_path_add_rectangle(path_proxy.libui, *@args)
-        super
+    class ControlProxy
+      # Proxy for LibUI non wrapping multiline entry objects
+      #
+      # Follows the Proxy Design Pattern
+      class NonWrappingMultilineEntryProxy < MultilineEntryProxy
       end
     end
   end

data/lib/glimmer/libui/{progress_bar_column_proxy.rb → control_proxy/multiline_entry_proxy.rb}

@@ -20,21 +20,20 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/libui/control_proxy'
-require 'glimmer/libui/column'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI progress bar column objects
-    #
-    # Follows the Proxy Design Pattern
-    class ProgressBarColumnProxy < ControlProxy
-      include Column
-          
-      private
-      
-      def build_control
-        @parent_proxy.append_progress_bar_column(name, column_index)
+    class ControlProxy
+      # Proxy for LibUI multiline entry objects
+      #
+      # Follows the Proxy Design Pattern
+      class MultilineEntryProxy < ControlProxy
+        def libui_api_keyword
+          'multiline_entry'
+        end
       end
     end
   end
 end
+
+Dir[File.expand_path("./#{File.basename(__FILE__, '.rb')}/*.rb", __dir__)].each {|f| require f}

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