glimmer-dsl-libui 0.1.2 → 0.1.6

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

@@ -0,0 +1,118 @@
+# 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 color button objects
+      #
+      # Follows the Proxy Design Pattern
+      class ColorButtonProxy < ControlProxy
+        def color(value = nil)
+          # TODO support hex color value
+          if value.nil?
+            @red ||= Fiddle::Pointer.malloc(8) # double
+            @green ||= Fiddle::Pointer.malloc(8) # double
+            @blue ||= Fiddle::Pointer.malloc(8) # double
+            @alpha ||= Fiddle::Pointer.malloc(8) # double
+            ::LibUI.color_button_color(@libui, @red, @green, @blue, @alpha)
+            {
+              r: @red[0, 8].unpack1('d') * 255.0,
+              g: @green[0, 8].unpack1('d') * 255.0,
+              b: @blue[0, 8].unpack1('d') * 255.0,
+              a: @alpha[0, 8].unpack1('d')
+            }
+          else
+            current_color = color
+            value = Glimmer::LibUI.interpret_color(value)
+            value[:r] ||= current_color[:r]
+            value[:g] ||= current_color[:g]
+            value[:b] ||= current_color[:b]
+            value[:a] ||= current_color[:a]
+            ::LibUI.color_button_set_color(@libui, value[:r].to_f / 255.0, value[:g].to_f / 255.0, value[:b].to_f / 255.0, value[:a])
+          end
+        end
+        
+        def red(value = nil)
+          if value.nil?
+            color[:r]
+          else
+            self.color = {r: value}
+          end
+        end
+        alias red= red
+        alias set_red red
+        alias r red
+        alias r= red
+        alias set_r red
+        
+        def green(value = nil)
+          if value.nil?
+            color[:g]
+          else
+            self.color = {g: value}
+          end
+        end
+        alias green= green
+        alias set_green green
+        alias g green
+        alias g= green
+        alias set_g green
+        
+        def blue(value = nil)
+          if value.nil?
+            color[:b]
+          else
+            self.color = {b: value}
+          end
+        end
+        alias blue= blue
+        alias set_blue blue
+        alias b blue
+        alias b= blue
+        alias set_b blue
+        
+        def alpha(value = nil)
+          if value.nil?
+            color[:a]
+          else
+            self.color = {a: value}
+          end
+        end
+        alias alpha= alpha
+        alias set_alpha alpha
+        alias a alpha
+        alias a= alpha
+        alias set_a alpha
+        
+        def destroy
+          Fiddle.free @red unless @red.nil?
+          Fiddle.free @green unless @green.nil?
+          Fiddle.free @blue unless @blue.nil?
+          Fiddle.free @alpha unless @alpha.nil?
+          super
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/libui/control_proxy/column/button_column_proxy.rb

@@ -0,0 +1,76 @@
+# 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/column'
+require 'glimmer/libui/control_proxy/enableable_column'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      module Column
+        # 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
+            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
+            end
+          end
+          
+          def notify_listeners(listener_name, *args)
+            @on_clicked_procs&.each do |on_clicked_proc|
+              on_clicked_proc.call(*args)
+            end
+          end
+              
+          private
+          
+          def build_control
+            @parent_proxy.append_button_column(name, column_index, enabled_value)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/libui/control_proxy/column/checkbox_column_proxy.rb

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

data/lib/glimmer/libui/control_proxy/column/checkbox_text_column_proxy.rb

@@ -0,0 +1,80 @@
+# 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/column'
+require 'glimmer/libui/control_proxy/dual_column'
+require 'glimmer/libui/control_proxy/editable_column'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      module Column
+        # Proxy for LibUI checkbox text column objects
+        #
+        # Follows the Proxy Design Pattern
+        class CheckboxTextColumnProxy < ControlProxy
+          include Column
+          include DualColumn
+          include EditableColumn
+          
+          def editable_checkbox(value = nil)
+            if value.nil?
+              @editable_checkbox = false if @editable_checkbox.nil?
+              @editable_checkbox
+            else
+              @editable_checkbox = !!value
+            end
+          end
+          alias editable_checkbox= editable_checkbox
+          alias set_editable_checkbox editable_checkbox
+          alias editable_checkbox? editable_checkbox
+    
+          def editable_text(value = nil)
+            if value.nil?
+              @editable_text = false if @editable_text.nil?
+              @editable_text
+            else
+              @editable_text = !!value
+            end
+          end
+          alias editable_text= editable_text
+          alias set_editable_text editable_text
+          alias editable_text? editable_text
+    
+          private
+          
+          def build_control
+            @parent_proxy.append_checkbox_text_column(name, column_index, editable_checkbox_value, second_column_index, editable_text_value)
+          end
+          
+          def editable_checkbox_value
+            (@parent_proxy.editable? || editable? || editable_checkbox?) ? -2 : -1
+          end
+          
+          def editable_text_value
+            (@parent_proxy.editable? || editable? || editable_text?) ? -2 : -1
+          end
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/libui/{radio_buttons_proxy.rb → control_proxy/column/image_column_proxy.rb}

@@ -20,24 +20,25 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/libui/control_proxy'
+require 'glimmer/libui/control_proxy/column'
 
 module Glimmer
   module LibUI
-    # 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 }
+    class ControlProxy
+      module Column
+        # Proxy for LibUI image column objects
+        #
+        # Follows the Proxy Design Pattern
+        class ImageColumnProxy < ControlProxy
+          include Column
+        
+          private
+          
+          def build_control
+            @parent_proxy.append_image_column(name, column_index)
+          end
         end
       end
-      alias set_items items
-      alias items= items
     end
   end
 end

data/lib/glimmer/libui/control_proxy/column/image_text_column_proxy.rb

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

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

@@ -20,20 +20,24 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/libui/control_proxy'
-require 'glimmer/libui/column'
+require 'glimmer/libui/control_proxy/column'
 
 module Glimmer
   module LibUI
-    # Proxy for LibUI progress bar column objects
-    #
-    # Follows the Proxy Design Pattern
-    class ProgressBarColumnProxy < ControlProxy
-      include Column
+    class ControlProxy
+      module Column
+        # Proxy for LibUI progress bar column objects
+        #
+        # Follows the Proxy Design Pattern
+        class ProgressBarColumnProxy < ControlProxy
+          include Column
+              
+          private
           
-      private
-      
-      def build_control
-        @parent_proxy.append_progress_bar_column(name, column_index)
+          def build_control
+            @parent_proxy.append_progress_bar_column(name, column_index)
+          end
+        end
       end
     end
   end

data/lib/glimmer/libui/control_proxy/column/text_column_proxy.rb

@@ -0,0 +1,46 @@
+# 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/column'
+require 'glimmer/libui/control_proxy/editable_column'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      module Column
+        # 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
+  end
+end

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

@@ -0,0 +1,55 @@
+# 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.
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      # Common logic for all column proxy objects
+      module Column
+        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 name
+          @args.first
+        end
+        
+        # column index used in table append column API call
+        # expanded to ensure DualColumn index accounts for two columns acting as one
+        def column_index
+          @column_index ||= @parent_proxy.send(:next_column_index)
+        end
+        
+        # actual index within table columns (disregarding nil fillings that account for DualColumn instances)
+        def index
+          @parent_proxy.columns.compact.index(self)
+        end
+      end
+    end
+  end
+end
+
+Dir[File.expand_path("./#{File.basename(__FILE__, '.rb')}/*.rb", __dir__)].each {|f| require f}

data/lib/glimmer/libui/{checkbox_column_proxy.rb → control_proxy/combobox_proxy.rb}

@@ -20,22 +20,25 @@
 # 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 checkbox column objects
-    #
-    # Follows the Proxy Design Pattern
-    class CheckboxColumnProxy < ControlProxy
-      include Column
-      include EditableColumn
-      
-      private
-      
-      def build_control
-        @parent_proxy.append_checkbox_column(name, column_index, editable_value)
+    class ControlProxy
+      # Proxy for LibUI combobox objects
+      #
+      # Follows the Proxy Design Pattern
+      class ComboboxProxy < 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

data/lib/glimmer/libui/control_proxy/date_time_picker_proxy/date_picker_proxy.rb

@@ -0,0 +1,43 @@
+# 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/date_time_picker_proxy'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      class DateTimePickerProxy < ControlProxy
+        # 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
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/libui/control_proxy/date_time_picker_proxy/time_picker_proxy.rb

@@ -0,0 +1,43 @@
+# 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/date_time_picker_proxy'
+
+module Glimmer
+  module LibUI
+    class ControlProxy
+      class DateTimePickerProxy < ControlProxy
+        # 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
+              super
+            end
+          end
+        end
+      end
+    end
+  end
+end