glimmer-dsl-libui 0.2.0 → 0.2.4

data/examples/timer.rb

@@ -0,0 +1,135 @@
+# frozen_string_literal: true
+
+require 'glimmer-dsl-libui'
+
+class Timer
+  include Glimmer
+  
+  SECOND_MAX = 59
+  MINUTE_MAX = 59
+  HOUR_MAX = 23
+  
+  def initialize
+    @pid = nil
+    @alarm_file = File.expand_path('../sounds/AlanWalker-Faded.mid', __dir__)
+    at_exit { stop_alarm }
+    setup_timer
+    create_gui
+  end
+
+  def stop_alarm
+    if @pid
+      if @th.alive?
+        Process.kill(:SIGKILL, @pid)
+        @pid = nil
+      else
+        @pid = nil
+      end
+    end
+  end
+
+  def play_alarm
+    stop_alarm
+    if @pid.nil?
+      begin
+        @pid = spawn "timidity -G 0.0-10.0 #{@alarm_file}"
+        @th = Process.detach @pid
+      rescue Errno::ENOENT
+        warn 'Timidty++ not found. Please install Timidity++.'
+        warn 'https://sourceforge.net/projects/timidity/'
+      end
+    end
+  end
+
+  def setup_timer
+    unless @setup_timer
+      Glimmer::LibUI.timer(1) do
+        if @started
+          seconds = @sec_spinbox.value
+          minutes = @min_spinbox.value
+          hours = @hour_spinbox.value
+          if seconds > 0
+            @sec_spinbox.value = seconds -= 1
+          end
+          if seconds == 0
+            if minutes > 0
+              @min_spinbox.value = minutes -= 1
+              @sec_spinbox.value = seconds = SECOND_MAX
+            end
+            if minutes == 0
+              if hours > 0
+                @hour_spinbox.value = hours -= 1
+                @min_spinbox.value = minutes = MINUTE_MAX
+                @sec_spinbox.value = seconds = SECOND_MAX
+              end
+              if hours == 0 && minutes == 0 && seconds == 0
+                @start_button.enabled = true
+                @stop_button.enabled = false
+                @started = false
+                unless @played
+                  play_alarm
+                  msg_box('Alarm', 'Countdown Is Finished!')
+                  @played = true
+                end
+              end
+            end
+          end
+        end
+      end
+      @setup_timer = true
+    end
+  end
+
+  def create_gui
+    window('Timer') {
+      margined true
+      
+      group('Countdown') {
+        vertical_box {
+          horizontal_box {
+            @hour_spinbox = spinbox(0, HOUR_MAX) {
+              stretchy false
+              value 0
+            }
+            label(':') {
+              stretchy false
+            }
+            @min_spinbox = spinbox(0, MINUTE_MAX) {
+              stretchy false
+              value 0
+            }
+            label(':') {
+              stretchy false
+            }
+            @sec_spinbox = spinbox(0, SECOND_MAX) {
+              stretchy false
+              value 0
+            }
+          }
+          horizontal_box {
+            @start_button = button('Start') {
+              on_clicked do
+                @start_button.enabled = false
+                @stop_button.enabled = true
+                @started = true
+                @played = false
+              end
+            }
+            
+            @stop_button = button('Stop') {
+              enabled false
+              
+              on_clicked do
+                @start_button.enabled = true
+                @stop_button.enabled = false
+                @started = false
+              end
+            }
+          }
+        }
+      }
+    }.show
+  end
+end
+
+Timer.new

data/lib/glimmer/dsl/libui/control_expression.rb

@@ -40,7 +40,6 @@ module Glimmer
           super
           parent.post_add_content
         end
-        
       end
     end
   end

data/lib/glimmer/dsl/libui/property_expression.rb

@@ -22,6 +22,7 @@
 require 'glimmer/dsl/expression'
 require 'glimmer/libui/control_proxy'
 require 'glimmer/libui/shape'
+require 'glimmer/libui/attributed_string'
 
 module Glimmer
   module DSL
@@ -30,7 +31,8 @@ module Glimmer
         def can_interpret?(parent, keyword, *args, &block)
           (
             parent.is_a?(Glimmer::LibUI::ControlProxy) or
-              parent.is_a?(Glimmer::LibUI::Shape)
+              parent.is_a?(Glimmer::LibUI::Shape) or
+              parent.is_a?(Glimmer::LibUI::AttributedString)
           ) and
             block.nil? and
             parent.respond_to?(keyword, *args)

data/lib/glimmer/dsl/libui/string_expression.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/dsl/static_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/libui/control_proxy/text_proxy'
+require 'glimmer/libui/attributed_string'
+
+module Glimmer
+  module DSL
+    module Libui
+      class StringExpression < StaticExpression
+        include ParentExpression
+        
+        def can_interpret?(parent, keyword, *args, &block)
+          super and
+            parent.is_a?(Glimmer::LibUI::ControlProxy::TextProxy)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::LibUI::AttributedString.new(keyword, parent, args, &block)
+        end
+        
+        def add_content(parent, keyword, *args, &block)
+          parent.post_add_content
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/libui/attributed_string.rb

@@ -0,0 +1,135 @@
+# 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 AttributedString
+      attr_accessor :string
+      attr_reader :block, :keyword, :parent_proxy, :args
+    
+      def initialize(keyword, parent_proxy, args, &block)
+        @keyword = keyword
+        @parent_proxy = parent_proxy
+        @args = args
+        @string = @args.first || ''
+        @block = block
+        post_add_content if @block.nil?
+      end
+      
+      def font(value = nil)
+        if value.nil?
+          @font
+        else
+          @font = value
+          redraw
+        end
+      end
+      alias font= font
+      alias set_font font
+      
+      def color(value = nil)
+        if value.nil?
+          @color
+        else
+          @color = Glimmer::LibUI.interpret_color(value)
+          redraw
+        end
+      end
+      alias color= color
+      alias set_color color
+      
+      def background(value = nil)
+        if value.nil?
+          @background
+        else
+          @background = Glimmer::LibUI.interpret_color(value)
+          redraw
+        end
+      end
+      alias background= background
+      alias background background
+      
+      def underline(value = nil)
+        if value.nil?
+          @underline
+        else
+          @underline = value
+          redraw
+        end
+      end
+      alias underline= underline
+      alias underline underline
+      
+      def post_add_content
+        block_result = block&.call
+        @string = block_result if block_result.is_a?(String)
+        @parent_proxy&.post_initialize_child(self)
+      end
+      
+      def draw(area_draw_params)
+        @start = ::LibUI.attributed_string_len(@parent_proxy.attributed_string)
+        ::LibUI.attributed_string_append_unattributed(@parent_proxy.attributed_string, @string)
+        unless color.nil?
+          color_attribute = ::LibUI.new_color_attribute(@color[:r].to_f / 255.0, @color[:g].to_f / 255.0, @color[:b].to_f / 255.0, @color[:a] || 1.0)
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, color_attribute, @start, @start + @string.size)
+        end
+        unless background.nil?
+          background_attribute = ::LibUI.new_background_attribute(@background[:r].to_f / 255.0, @background[:g].to_f / 255.0, @background[:b].to_f / 255.0, @background[:a] || 1.0)
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, background_attribute, @start, @start + @string.size)
+        end
+        unless underline.nil?
+          underline_attribute = ::LibUI.new_underline_attribute(Glimmer::LibUI.enum_symbol_to_value(:underline, @underline))
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, underline_attribute, @start, @start + @string.size)
+        end
+        unless font.nil?
+          family_attribute = ::LibUI.new_family_attribute(font[:family])
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, family_attribute, @start, @start + @string.size)
+          size_attribute = ::LibUI.new_size_attribute(font[:size])
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, size_attribute, @start, @start + @string.size)
+          weight_attribute = ::LibUI.new_weight_attribute(Glimmer::LibUI.enum_symbol_to_value(:text_weight, font[:weight]))
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, weight_attribute, @start, @start + @string.size)
+          italic_attribute = ::LibUI.new_italic_attribute(Glimmer::LibUI.enum_symbol_to_value(:text_italic, font[:italic]))
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, italic_attribute, @start, @start + @string.size)
+          stretch_attribute = ::LibUI.new_stretch_attribute(Glimmer::LibUI.enum_symbol_to_value(:text_stretch, font[:stretch]))
+          ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, stretch_attribute, @start, @start + @string.size)
+        end
+        destroy if area_proxy.nil?
+      end
+      
+      def destroy
+        @parent_proxy&.children&.delete(self)
+      end
+      
+      def redraw
+        area_proxy&.queue_redraw_all
+      end
+      
+      def area_proxy
+        @parent_proxy.parent_proxy
+      end
+    end
+  end
+end

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

@@ -60,7 +60,18 @@ module Glimmer
         end
         
         def post_add_content
-          super
+          unless parent_proxy.is_a?(Box)
+            original_parent_proxy = @parent_proxy
+            @vertical_box_parent_proxy = ControlProxy.create('vertical_box', parent_proxy, []) {} # block prevents calling post add content
+            append_properties.each do |property|
+              @vertical_box_parent_proxy.append_property(property, append_property(property))
+            end
+            @vertical_box_parent_proxy.post_add_content
+            @parent_proxy = @vertical_box_parent_proxy
+            @vertical_box_parent_proxy.post_initialize_child(self)
+          else
+            super
+          end
           install_listeners
         end
         
@@ -72,7 +83,7 @@ module Glimmer
         def redraw
           queue_redraw_all
         end
-        
+          
         private
         
         def build_control
@@ -169,7 +180,7 @@ module Glimmer
         end
         
         def ext_key_to_symbol(ext_key_value)
-          Glimmer::LibUI.enum_symbols(:ext_key)[ext_key_value - 1].to_s.to_sym if ext_key_value > 0
+          Glimmer::LibUI.enum_value_to_symbol(:ext_key, ext_key_value)
         end
                 
         def modifiers_to_symbols(modifiers_value)

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

@@ -29,7 +29,6 @@ module Glimmer
       # 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

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

@@ -28,6 +28,20 @@ module Glimmer
       #
       # Follows the Proxy Design Pattern
       class ComboboxProxy < ControlProxy
+        def selected(value = nil)
+          if value.nil?
+            super()
+          else
+            if value.is_a?(String)
+              super(items.index(value).to_i)
+            else
+              super
+            end
+          end
+        end
+        alias selected= selected
+        alias set_selected selected
+      
         def items(*values)
           values = values.first if values.first.is_a?(Array)
           if values.empty?
@@ -39,6 +53,10 @@ module Glimmer
         end
         alias set_items items
         alias items= items
+        
+        def selected_item
+          items[selected]
+        end
       end
     end
   end

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

@@ -34,9 +34,9 @@ module Glimmer
           {
             family: @font_descriptor.Family.to_s,
             size: @font_descriptor.Size,
-            weight: @font_descriptor.Weight,
-            italic: @font_descriptor.Italic,
-            stretch: @font_descriptor.Stretch
+            weight: Glimmer::LibUI.enum_value_to_symbol(:text_weight, @font_descriptor.Weight),
+            italic: Glimmer::LibUI.enum_value_to_symbol(:text_italic, @font_descriptor.Italic),
+            stretch: Glimmer::LibUI.enum_value_to_symbol(:text_stretch, @font_descriptor.Stretch),
           }
         end
         

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

@@ -0,0 +1,69 @@
+# 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 radio menu item object
+        #
+        # Follows the Proxy Design Pattern
+        class RadioMenuItemProxy < MenuItemProxy
+          def checked(value = nil)
+            if !value.nil?
+              if Glimmer::LibUI.integer_to_boolean(value) != checked?
+                super
+                if Glimmer::LibUI.integer_to_boolean(value)
+                  (@parent_proxy.children - [self]).select {|c| c.is_a?(MenuItemProxy)}.each do |menu_item|
+                    menu_item.checked = false
+                  end
+                end
+              end
+            end
+          end
+          alias checked? checked
+          alias set_checked checked
+          alias checked= checked
+          
+          def handle_listener(listener_name, &listener)
+            if listener_name.to_s == 'on_clicked'
+              radio_listener = Proc.new do
+                self.checked = true if !checked?
+                listener.call(self)
+              end
+              super(listener_name, &radio_listener)
+            else
+              super
+            end
+          end
+        
+          private
+          
+          def build_control
+            @libui = @parent_proxy.append_check_item(*@args)
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -20,6 +20,7 @@
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 require 'glimmer/libui/control_proxy'
+require 'glimmer/libui/parent'
 
 module Glimmer
   module LibUI
@@ -28,6 +29,8 @@ module Glimmer
       #
       # Follows the Proxy Design Pattern
       class MenuProxy < ControlProxy
+        include Parent
+        
         DEFAULT_TEXT = ''
         
         private

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

@@ -34,13 +34,11 @@ module Glimmer
         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