glimmer-dsl-libui 0.2.1 → 0.2.5

data/examples/basic_draw_text.rb

@@ -0,0 +1,65 @@
+require 'glimmer-dsl-libui'
+
+# Michael Ende (1929-1995)
+# The Neverending Story is a fantasy novel by German writer Michael Ende,
+# The English version, translated by Ralph Manheim, was published in 1983.
+class BasicDrawText
+  include Glimmer
+  
+  def alternating_color_string(initial: false, &block)
+    @index = 0 if initial
+    @index += 1
+    string {
+      if @index.odd?
+        color r: 128, g: 0, b: 64, a: 0.7
+      else
+        color r: 0, g: 128, b: 0, a: 0.7
+      end
+      
+      block.call + "\n\n"
+    }
+  end
+  
+  def launch
+    window('Michael Ende (1929-1995) The Neverending Story', 600, 400) {
+      margined true
+      
+      area {
+        text { # default arguments for x, y, and width are (0, 0, area_draw_params[:area_width])
+          # align :left # default alignment
+          default_font family: 'Georgia', size: 13, weight: :medium, italic: :normal, stretch: :normal
+            
+          alternating_color_string(initial: true) {
+            '  At last Ygramul sensed that something was coming toward ' \
+            'her. With the speed of lightning, she turned about, confronting ' \
+            'Atreyu with an enormous steel-blue face. Her single eye had a ' \
+            'vertical pupil, which stared at Atreyu with inconceivable malignancy. '
+          }
+          alternating_color_string {
+            '  A cry of fear escaped Bastian. '
+          }
+          alternating_color_string {
+            '  A cry of terror passed through the ravine and echoed from ' \
+            'side to side. Ygramul turned her eye to left and right, to see if ' \
+            'someone else had arrived, for that sound could not have been ' \
+            'made by the boy who stood there as though paralyzed with ' \
+            'horror. '
+          }
+          alternating_color_string {
+            '  Could she have heard my cry? Bastion wondered in alarm. ' \
+            "But that's not possible. "
+          }
+          alternating_color_string {
+            '  And then Atreyu heard Ygramuls voice. It was very high ' \
+            'and slightly hoarse, not at all the right kind of voice for that ' \
+            'enormous face. Her lips did not move as she spoke. It was the ' \
+            'buzzing of a great swarm of hornets that shaped itself into ' \
+            'words. '
+          }
+        }
+      }
+    }.show
+  end
+end
+
+BasicDrawText.new.launch

data/examples/basic_draw_text2.rb

@@ -0,0 +1,68 @@
+
+require 'glimmer-dsl-libui'
+
+# Michael Ende (1929-1995)
+# The Neverending Story is a fantasy novel by German writer Michael Ende,
+# The English version, translated by Ralph Manheim, was published in 1983.
+class BasicDrawText
+  include Glimmer
+  
+  def alternating_color_string(initial: false, &block)
+    @index = 0 if initial
+    @index += 1
+    string {
+      if @index.odd?
+        color r: 128, g: 0, b: 64, a: 0.7
+      else
+        color r: 0, g: 128, b: 0, a: 0.7
+      end
+      
+      block.call + "\n\n"
+    }
+  end
+  
+  def launch
+    window('Michael Ende (1929-1995) The Neverending Story', 600, 400) {
+      margined true
+      
+      area {
+        on_draw do |area_draw_params|
+          text { # default arguments for x, y, and width are (0, 0, area_draw_params[:area_width])
+            # align :left # default alignment
+            default_font family: 'Georgia', size: 13, weight: :medium, italic: :normal, stretch: :normal
+              
+            alternating_color_string(initial: true) {
+              '  At last Ygramul sensed that something was coming toward ' \
+              'her. With the speed of lightning, she turned about, confronting ' \
+              'Atreyu with an enormous steel-blue face. Her single eye had a ' \
+              'vertical pupil, which stared at Atreyu with inconceivable malignancy. '
+            }
+            alternating_color_string {
+              '  A cry of fear escaped Bastian. '
+            }
+            alternating_color_string {
+              '  A cry of terror passed through the ravine and echoed from ' \
+              'side to side. Ygramul turned her eye to left and right, to see if ' \
+              'someone else had arrived, for that sound could not have been ' \
+              'made by the boy who stood there as though paralyzed with ' \
+              'horror. '
+            }
+            alternating_color_string {
+              '  Could she have heard my cry? Bastion wondered in alarm. ' \
+              "But that's not possible. "
+            }
+            alternating_color_string {
+              '  And then Atreyu heard Ygramuls voice. It was very high ' \
+              'and slightly hoarse, not at all the right kind of voice for that ' \
+              'enormous face. Her lips did not move as she spoke. It was the ' \
+              'buzzing of a great swarm of hornets that shaped itself into ' \
+              'words. '
+            }
+          }
+        end
+      }
+    }.show
+  end
+end
+
+BasicDrawText.new.launch

data/examples/color_the_circles.rb

@@ -183,7 +183,7 @@ class ColorTheCircles
           }
         }
         
-        vertical_box {
+        @area = area {
           left 0
           top 4
           hexpand true
@@ -191,30 +191,27 @@ class ColorTheCircles
           halign :fill
           valign :fill
           
-          @area = area {
-            on_draw do |area_draw_params|
+          on_draw do |area_draw_params|
+            path {
+              rectangle(0, 0, WINDOW_WIDTH, WINDOW_HEIGHT)
+              
+              fill :white
+            }
+            
+            @circles_data.each do |circle_data|
               path {
-                rectangle(0, 0, WINDOW_WIDTH, WINDOW_HEIGHT)
+                circle_data[:circle] = circle(*circle_data[:args])
                 
-                fill :white
+                fill circle_data[:fill]
+                stroke circle_data[:stroke]
               }
-              
-              @circles_data.each do |circle_data|
-                path {
-                  circle_data[:circle] = circle(*circle_data[:args])
-                  
-                  fill circle_data[:fill]
-                  stroke circle_data[:stroke]
-                }
-              end
-            end
-            
-            on_mouse_down do |area_mouse_event|
-              color_circle(area_mouse_event[:x], area_mouse_event[:y])
             end
-          }
+          end
+          
+          on_mouse_down do |area_mouse_event|
+            color_circle(area_mouse_event[:x], area_mouse_event[:y])
+          end
         }
-        
       }
     }.show
   end

data/examples/custom_draw_text.rb

@@ -0,0 +1,106 @@
+require 'glimmer-dsl-libui'
+
+# Michael Ende (1929-1995)
+# The Neverending Story is a fantasy novel by German writer Michael Ende,
+# The English version, translated by Ralph Manheim, was published in 1983.
+class CustomDrawText
+  include Glimmer
+  
+  def launch
+    window('Michael Ende (1929-1995) The Neverending Story', 600, 500) {
+      margined true
+      
+      vertical_box {
+        form {
+          stretchy false
+          
+          font_button { |fb|
+            label 'Font'
+            
+            on_changed do
+              @string.font = fb.font
+            end
+          }
+          color_button { |cb|
+            label 'Color'
+            
+            on_changed do
+              @string.color = cb.color
+            end
+          }
+          color_button { |cb|
+            label 'Background'
+            
+            on_changed do
+              @string.background = cb.color
+            end
+          }
+          combobox { |c|
+            label 'Underline'
+            items Glimmer::LibUI.enum_symbols(:underline).map(&:to_s).map {|word| word.split('_').map(&:capitalize).join(' ')}
+            selected 'None'
+            
+            on_selected do
+              @string.underline = c.selected_item.underscore
+            end
+          }
+          combobox { |c|
+            label 'Underline Built-In Color'
+            items Glimmer::LibUI.enum_symbols(:underline_color).map(&:to_s).map(&:capitalize)
+            selected 'Custom'
+            
+            on_selected do
+              @underline_custom_color_button.enabled = c.selected_item == 'Custom'
+              if c.selected_item == 'Custom'
+                @string.underline_color = @underline_custom_color_button.color
+              else
+                @string.underline_color = c.selected_item.underscore
+                @underline_custom_color_button.color = :black
+              end
+            end
+          }
+          @underline_custom_color_button = color_button {
+            label 'Underline Custom Color'
+            
+            on_changed do
+              @string.underline_color = @underline_custom_color_button.color
+            end
+          }
+        }
+        
+        area {
+          text { # default arguments for x, y, and width are (0, 0, area_draw_params[:area_width])
+            # align :left # default alignment
+              
+            @string = string {
+              '  At last Ygramul sensed that something was coming toward ' \
+              'her. With the speed of lightning, she turned about, confronting ' \
+              'Atreyu with an enormous steel-blue face. Her single eye had a ' \
+              'vertical pupil, which stared at Atreyu with inconceivable malignancy. ' \
+              "\n\n" \
+              '  A cry of fear escaped Bastian. ' \
+              "\n\n" \
+              '  A cry of terror passed through the ravine and echoed from ' \
+              'side to side. Ygramul turned her eye to left and right, to see if ' \
+              'someone else had arrived, for that sound could not have been ' \
+              'made by the boy who stood there as though paralyzed with ' \
+              'horror. ' \
+              "\n\n" \
+              '  Could she have heard my cry? Bastion wondered in alarm. ' \
+              "But that's not possible. " \
+              "\n\n" \
+              '  And then Atreyu heard Ygramuls voice. It was very high ' \
+              'and slightly hoarse, not at all the right kind of voice for that ' \
+              'enormous face. Her lips did not move as she spoke. It was the ' \
+              'buzzing of a great swarm of hornets that shaped itself into ' \
+              'words. ' \
+              "\n\n"
+            }
+          }
+        }
+      }
+    }.show
+  end
+end
+
+CustomDrawText.new.launch

data/examples/custom_draw_text2.rb

@@ -0,0 +1,120 @@
+require 'glimmer-dsl-libui'
+
+# Michael Ende (1929-1995)
+# The Neverending Story is a fantasy novel by German writer Michael Ende,
+# The English version, translated by Ralph Manheim, was published in 1983.
+class CustomDrawText
+  include Glimmer
+  
+  def launch
+    window('Michael Ende (1929-1995) The Neverending Story', 600, 500) {
+      margined true
+      
+      vertical_box {
+        form {
+          stretchy false
+          
+          font_button { |fb|
+            label 'Font'
+            
+            on_changed do
+              @font = fb.font
+              @area.queue_redraw_all
+            end
+          }
+          color_button { |cb|
+            label 'Color'
+            
+            on_changed do
+              @color = cb.color
+              @area.queue_redraw_all
+            end
+          }
+          color_button { |cb|
+            label 'Background'
+            
+            on_changed do
+              @background = cb.color
+              @area.queue_redraw_all
+            end
+          }
+          combobox { |c|
+            label 'Underline'
+            items Glimmer::LibUI.enum_symbols(:underline).map(&:to_s).map {|word| word.split('_').map(&:capitalize).join(' ')}
+            selected 'None'
+            
+            on_selected do
+              @underline = c.selected_item.underscore
+              @area.queue_redraw_all
+            end
+          }
+          combobox { |c|
+            label 'Underline Built-In Color'
+            items Glimmer::LibUI.enum_symbols(:underline_color).map(&:to_s).map(&:capitalize)
+            selected 'Custom'
+            
+            on_selected do
+              @underline_custom_color_button.enabled = c.selected_item == 'Custom'
+              if c.selected_item == 'Custom'
+                @underline_color = @underline_custom_color_button.color
+              else
+                @underline_color = c.selected_item.underscore
+                @underline_custom_color_button.color = :black
+              end
+              @area.queue_redraw_all
+            end
+          }
+          @underline_custom_color_button = color_button {
+            label 'Underline Custom Color'
+            
+            on_changed do
+              @underline_color = @underline_custom_color_button.color
+              @area.queue_redraw_all
+            end
+          }
+        }
+        
+        @area = area {
+          on_draw do |area_draw_params|
+            text { # default arguments for x, y, and width are (0, 0, area_draw_params[:area_width])
+              # align :left # default alignment
+                
+              @string = string {
+                font @font
+                color @color
+                background @background
+                underline @underline
+                underline_color @underline_color
+                
+                '  At last Ygramul sensed that something was coming toward ' \
+                'her. With the speed of lightning, she turned about, confronting ' \
+                'Atreyu with an enormous steel-blue face. Her single eye had a ' \
+                'vertical pupil, which stared at Atreyu with inconceivable malignancy. ' \
+                "\n\n" \
+                '  A cry of fear escaped Bastian. ' \
+                "\n\n" \
+                '  A cry of terror passed through the ravine and echoed from ' \
+                'side to side. Ygramul turned her eye to left and right, to see if ' \
+                'someone else had arrived, for that sound could not have been ' \
+                'made by the boy who stood there as though paralyzed with ' \
+                'horror. ' \
+                "\n\n" \
+                '  Could she have heard my cry? Bastion wondered in alarm. ' \
+                "But that's not possible. " \
+                "\n\n" \
+                '  And then Atreyu heard Ygramuls voice. It was very high ' \
+                'and slightly hoarse, not at all the right kind of voice for that ' \
+                'enormous face. Her lips did not move as she spoke. It was the ' \
+                'buzzing of a great swarm of hornets that shaped itself into ' \
+                'words. ' \
+                "\n\n"
+              }
+            }
+          end
+        }
+      }
+    }.show
+  end
+end
+
+CustomDrawText.new.launch

data/examples/midi_player.rb

@@ -9,7 +9,7 @@ class TinyMidiPlayer
 
   def initialize
     @pid = nil
-    @music_directory = File.expand_path(ARGV[0] || '~/Music/')
+    @music_directory = File.expand_path('../sounds', __dir__)
     @midi_files      = Dir.glob(File.join(@music_directory, '**/*.mid'))
                           .sort_by { |path| File.basename(path) }
     at_exit { stop_midi }

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,156 @@
+# 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 set_background background
+      
+      def underline(value = nil)
+        if value.nil?
+          @underline
+        else
+          @underline = value
+          redraw
+        end
+      end
+      alias underline= underline
+      alias set_underline underline
+      
+      def underline_color(value = nil)
+        if value.nil?
+          @underline_color
+        else
+          @underline_color = value
+          redraw
+        end
+      end
+      alias underline_color= underline_color
+      alias set_underline_color underline_color
+      
+      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 underline_color.nil?
+          if Glimmer::LibUI.enum_symbols(:underline_color).include?(underline_color.to_s.to_sym) && underline_color.to_s.to_sym != :custom
+            underline_color_attribute = ::LibUI.new_underline_color_attribute(Glimmer::LibUI.enum_symbol_to_value(:underline_color, @underline_color), 0, 0, 0, 0)
+            ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, underline_color_attribute, @start, @start + @string.size)
+          else
+            the_color = Glimmer::LibUI.interpret_color(@underline_color)
+            underline_color_attribute = ::LibUI.new_underline_color_attribute(0, the_color[:r].to_f / 255.0, the_color[:g].to_f / 255.0, the_color[:b].to_f / 255.0, the_color[:a] || 1.0)
+            ::LibUI.attributed_string_set_attribute(@parent_proxy.attributed_string, underline_color_attribute, @start, @start + @string.size)
+          end
+        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