glimmer-dsl-swt 4.17.4.1 → 4.17.8.0

data/lib/glimmer/dsl/swt/shell_expression.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2020 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
@@ -7,10 +7,10 @@
 # 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
@@ -43,4 +43,4 @@ module Glimmer
       end
     end
   end
-end
+end

data/lib/glimmer/dsl/swt/widget_expression.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2020 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
@@ -7,10 +7,10 @@
 # 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
@@ -28,24 +28,24 @@ module Glimmer
     module SWT
       class WidgetExpression < Expression
         include ParentExpression
-  
+
         EXCLUDED_KEYWORDS = %w[shell display tab_item]
-  
+
         def can_interpret?(parent, keyword, *args, &block)
           !EXCLUDED_KEYWORDS.include?(keyword) and
             parent.respond_to?(:swt_widget) and #TODO change to composite?(parent)
             Glimmer::SWT::WidgetProxy.widget_exists?(keyword)
         end
-  
+
         def interpret(parent, keyword, *args, &block)
           Glimmer::SWT::WidgetProxy.create(keyword, parent, args)
         end
-        
+
         def add_content(parent, &block)
           super
           parent.post_add_content
         end
-        
+
       end
     end
   end
@@ -57,3 +57,4 @@ require 'glimmer/swt/tree_proxy'
 require 'glimmer/swt/table_proxy'
 require 'glimmer/swt/table_column_proxy'
 require 'glimmer/swt/sash_form_proxy'
+require 'glimmer/swt/styled_text_proxy'

data/lib/glimmer/swt/custom/checkbox_group.rb

@@ -0,0 +1,160 @@
+require 'glimmer/ui/custom_widget'
+
+module Glimmer
+  module SWT
+    module Custom
+      # CodeText is a customization of StyledText with support for Ruby Syntax Highlighting
+      class CheckboxGroup
+        include Glimmer::UI::CustomWidget
+        
+        body {
+          composite # just an empty composite to hold checkboxs upon data-binding `selection`
+        }
+        
+        def items=(text_array)
+          selection_value = selection
+          @items = Array[*text_array]
+          build_checkboxes
+        end
+        
+        def items
+          @items || []
+        end
+        
+        def selection=(selection_texts)
+          items.count.times do |index|
+            checkbox = checkboxes[index]
+            item = items[index]
+            label_text = labels[index]&.text
+            checkbox.selection = selection_texts.to_a.include?(label_text)
+          end
+          selection_texts
+        end
+        
+        def selection
+          selection_indices.map do |selection_index|
+            labels[selection_index]&.text
+          end
+        end
+        
+        def selection_indices=(indices)
+          self.selection=(indices.to_a.map {|index| items[index]})
+        end
+        alias select selection_indices=
+        
+        def selection_indices
+          checkboxes.each_with_index.map do |checkbox, index|
+            index if checkbox.selection
+          end.to_a.compact
+        end
+        
+        def checkboxes
+          @checkboxes ||= []
+        end
+        alias checks checkboxes
+        
+        def labels
+          @labels ||= []
+        end
+        
+        def can_handle_observation_request?(observation_request)
+          checkboxes.first&.can_handle_observation_request?(observation_request) || super(observation_request)
+        end
+        
+        def handle_observation_request(observation_request, &block)
+          observation_requests << [observation_request, block]
+          delegate_observation_request_to_checkboxes(observation_request, &block)
+          super
+        end
+        
+        def delegate_observation_request_to_checkboxes(observation_request, &block)
+          if observation_request != 'on_widget_disposed'
+            checkboxes.count.times do |index|
+              checkbox = checkboxes[index]
+              label = labels[index]              
+              listener_block = lambda do |event|
+                event.widget = self.swt_widget
+                block.call(event)
+              end
+              if observation_request == 'on_widget_selected'
+                checkbox.handle_observation_request(observation_request, &listener_block) if checkbox.can_handle_observation_request?(observation_request)
+                label.handle_observation_request('on_mouse_up', &listener_block)
+              else
+                checkbox.handle_observation_request(observation_request, &listener_block) if checkbox.can_handle_observation_request?(observation_request)
+                label.handle_observation_request(observation_request, &listener_block) if label.can_handle_observation_request?(observation_request)              
+              end
+            end
+          end
+        end
+        
+        def observation_requests
+          @observation_requests ||= Set.new
+        end
+        
+        def has_attribute?(attribute_name, *args)
+          (@composites.to_a + @checkboxes.to_a + @labels.to_a).map do |widget_proxy|
+            return true if widget_proxy.has_attribute?(attribute_name, *args)            
+          end
+          super
+        end
+         
+        def set_attribute(attribute_name, *args)
+          excluded_attributes = ['selection']
+          unless excluded_attributes.include?(attribute_name.to_s)
+            (@composites.to_a + @checkboxes.to_a + @labels.to_a).each do |widget_proxy|
+              widget_proxy.set_attribute(attribute_name, *args) if widget_proxy.has_attribute?(attribute_name, *args)
+            end
+          end
+          super
+        end
+        
+        private
+        
+        def build_checkboxes
+          current_selection = selection
+          @composites.to_a.each(&:dispose)
+          @checkboxes = []
+          @labels = []
+          @composites = []
+          items.each do |item|
+            body_root.content {
+              @composites << composite {
+                grid_layout(2, false) {
+                  margin_width 0
+                  margin_height 0
+                  horizontal_spacing 0
+                  vertical_spacing 0
+                }                
+                checkboxes << checkbox { |checkbox_proxy|
+                  on_widget_selected {                  
+                    self.selection_indices = checkboxes.each_with_index.map {|cb, i| i if cb.selection}.to_a.compact
+                  }
+                }
+                labels << label { |label_proxy|
+                  layout_data :fill, :center, true, false
+                  text item
+                  on_mouse_up { |event|                    
+                    found_text = labels.each_with_index.detect {|l, i| event.widget == l.swt_widget}[0]&.text
+                    selection_values = self.selection
+                    if selection_values.include?(found_text)
+                      selection_values.delete(found_text)
+                    else
+                      selection_values << found_text
+                    end
+                    self.selection = selection_values
+                  }
+                }
+              }
+            }
+          end
+          observation_requests.to_a.each do |observation_request, block|
+            delegate_observation_request_to_checkboxes(observation_request, &block)            
+          end
+          self.selection = current_selection
+        end
+      end
+      
+      CheckGroup = CheckboxGroup
+    end
+  end
+end

data/lib/glimmer/swt/custom/code_text.rb

@@ -40,21 +40,20 @@ module Glimmer
         
         def syntax_highlighting          
           return [] if text.to_s.strip.empty?
-          code = text
-          return @syntax_highlighting if @last_code == code
-          @last_code = code
-          lexer = Rouge::Lexer.find_fancy('ruby', code)
-          lex = lexer.lex(code).to_a
-          code_size = 0
+          return @syntax_highlighting if already_syntax_highlighted?
+          @last_text = text
+          @lexer ||= Rouge::Lexer.find_fancy('ruby', text)
+          lex = @lexer.lex(text).to_a
+          text_size = 0
           lex_hashes = lex.map do |pair|
             {token_type: pair.first, token_text: pair.last}
           end.each do |hash|
-            hash[:token_index] = code_size
-            code_size += hash[:token_text].size
+            hash[:token_index] = text_size
+            text_size += hash[:token_text].size
           end
-          code_lines = code.split("\n")
+          text_lines = text.split("\n")
           line_index = 0
-          @syntax_highlighting = code_lines_map = code_lines.reduce({}) do |hash, line|
+          @syntax_highlighting = text_lines_map = text_lines.reduce({}) do |hash, line|
             line_hashes = []
             line_hashes << lex_hashes.shift while lex_hashes.any? && lex_hashes.first[:token_index].between?(line_index, line_index + line.size)
             hash.merge(line_index => line_hashes).tap do
@@ -63,6 +62,10 @@ module Glimmer
           end          
         end
         
+        def already_syntax_highlighted?
+          @last_text == text
+        end
+        
         before_body {
           @swt_style = swt_style == 0 ? [:border, :multi, :v_scroll, :h_scroll] : swt_style
         }
@@ -77,15 +80,19 @@ module Glimmer
             bottom_margin 5
                   
             on_line_get_style { |line_style_event|
-              styles = []
-              syntax_highlighting[line_style_event.lineOffset].to_a.each do |token_hash|
-                start_index = token_hash[:token_index]
-                size = token_hash[:token_text].size
-                token_color = SYNTAX_COLOR_MAP[token_hash[:token_type].name] || [:black]
-                token_color = color(*token_color).swt_color
-                styles << StyleRange.new(start_index, size, token_color, nil)
+              @styles = {} unless already_syntax_highlighted?
+              if @styles[line_style_event.lineOffset].nil?
+                styles = []
+                syntax_highlighting[line_style_event.lineOffset].to_a.each do |token_hash|
+                  start_index = token_hash[:token_index]
+                  size = token_hash[:token_text].size
+                  token_color = SYNTAX_COLOR_MAP[token_hash[:token_type].name] || [:black]
+                  token_color = color(*token_color).swt_color
+                  styles << StyleRange.new(start_index, size, token_color, nil)
+                end
+                @styles[line_style_event.lineOffset] = styles.to_java(StyleRange)
               end
-              line_style_event.styles = styles.to_java(StyleRange) unless styles.empty?
+              line_style_event.styles = @styles[line_style_event.lineOffset] unless @styles[line_style_event.lineOffset].empty?
             }            
           }
         }

data/lib/glimmer/swt/custom/radio_group.rb

@@ -0,0 +1,155 @@
+require 'glimmer/ui/custom_widget'
+
+module Glimmer
+  module SWT
+    module Custom
+      # CodeText is a customization of StyledText with support for Ruby Syntax Highlighting
+      class RadioGroup
+        include Glimmer::UI::CustomWidget
+        
+        body {
+          composite # just an empty composite to hold radios upon data-binding `selection`
+        }
+        
+        def items=(text_array)
+          selection_value = selection
+          @items = Array[*text_array]
+          build_radios
+        end
+        
+        def items
+          @items || []
+        end
+        
+        def selection=(text)
+          radios.count.times do |index|
+            radio = radios[index]
+            item = items[index]
+            radio.selection = item == text
+          end
+        end
+        
+        def selection
+          selection_value = labels[selection_index]&.text unless selection_index == -1
+          selection_value.to_s
+        end
+        
+        def selection_index=(index)
+          self.selection=(items[index])
+        end
+        alias select selection_index=
+        
+        def selection_index
+          radios.index(radios.detect(&:selection)) || -1
+        end
+        
+        def radios
+          @radios ||= []
+        end
+        
+        def labels
+          @labels ||= []
+        end
+        
+        def can_handle_observation_request?(observation_request)
+          radios.first&.can_handle_observation_request?(observation_request) || super(observation_request)
+        end
+        
+        def handle_observation_request(observation_request, &block)
+          observation_requests << [observation_request, block]
+          delegate_observation_request_to_radios(observation_request, &block)
+          super
+        end
+        
+        def delegate_observation_request_to_radios(observation_request, &block)
+          if observation_request != 'on_widget_disposed'
+            radios.count.times do |index|
+              radio = radios[index]
+              label = labels[index]              
+              if observation_request == 'on_widget_selected'
+                radio_block = lambda do |event|
+                  if event.widget.selection || selection_index == -1
+                    event.widget = self.swt_widget
+                    block.call(event)
+                  end
+                end
+                label_block = lambda do |event|
+                  self.selection_index = index
+                  block.call(event)
+                end              
+                radio.handle_observation_request(observation_request, &radio_block) if radio.can_handle_observation_request?(observation_request)
+                label.handle_observation_request('on_mouse_up', &label_block)
+              else
+                listener_block = lambda do |event|
+                  event.widget = self.swt_widget
+                  block.call(event)
+                end
+                radio.handle_observation_request(observation_request, &listener_block) if radio.can_handle_observation_request?(observation_request)
+                label.handle_observation_request(observation_request, &listener_block) if label.can_handle_observation_request?(observation_request)              
+              end
+            end
+          end
+        end
+        
+        def observation_requests
+          @observation_requests ||= Set.new
+        end
+        
+        def has_attribute?(attribute_name, *args)
+          (@composites.to_a + @radios.to_a + @labels.to_a).map do |widget_proxy|
+            return true if widget_proxy.has_attribute?(attribute_name, *args)            
+          end
+          super
+        end
+         
+        def set_attribute(attribute_name, *args)
+          excluded_attributes = ['selection']
+          unless excluded_attributes.include?(attribute_name.to_s)
+            (@composites.to_a + @radios.to_a + @labels.to_a).each do |widget_proxy|
+              widget_proxy.set_attribute(attribute_name, *args) if widget_proxy.has_attribute?(attribute_name, *args)
+            end
+          end
+          super
+        end
+        
+        private
+        
+        def build_radios
+          current_selection = selection
+          @composites.to_a.each(&:dispose)
+          @radios = []
+          @labels = []
+          @composites = []
+          items.each do |item|
+            body_root.content {
+              @composites << composite {
+                grid_layout(2, false) {
+                  margin_width 0
+                  margin_height 0
+                  horizontal_spacing 0
+                  vertical_spacing 0
+                }
+                radios << radio { |radio_proxy|
+                  on_widget_selected {
+                    self.selection = items[radios.index(radio_proxy)]
+                  }
+                }
+                labels << label { |label_proxy|
+                  layout_data :fill, :center, true, false
+                  text item
+                  on_mouse_up {
+                    self.selection = label_proxy.text
+                  }
+                }
+              }
+            }
+          end
+          observation_requests.to_a.each do |observation_request, block|
+            delegate_observation_request_to_radios(observation_request, &block)            
+          end
+          self.selection = current_selection
+        end
+      end
+    end
+  end
+end