glimmer-dsl-swt 4.17.4.0 → 4.17.7.0

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

@@ -0,0 +1,61 @@
+# 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
+# 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/expression'
+require 'glimmer/data_binding/model_binding'
+require 'glimmer/data_binding/widget_binding'
+
+module Glimmer
+  module DSL
+    module SWT
+      class CheckboxGroupSelectionDataBindingExpression < Expression
+ 
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword == 'selection' and
+            block.nil? and
+            (parent.is_a?(Glimmer::SWT::Custom::CheckboxGroup) or (parent.is_a?(Glimmer::UI::CustomWidget) and parent.body_root.is_a?(Glimmer::SWT::Custom::CheckboxGroup)) ) and
+            args.size == 1 and
+            args[0].is_a?(DataBinding::ModelBinding) and
+            args[0].evaluate_options_property.is_a?(Array)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          model_binding = args[0]
+  
+          #TODO make this options observer dependent and all similar observers in widget specific data binding handlers
+          # TODO consider delegating some of this work
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'items')
+          widget_binding.call(model_binding.evaluate_options_property)
+          model = model_binding.base_model
+          widget_binding.observe(model, model_binding.options_property_name)
+  
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'selection')
+          widget_binding.call(model_binding.evaluate_property)
+          widget_binding.observe(model, model_binding.property_name_expression)
+  
+          parent.on_widget_selected do
+            model_binding.call(widget_binding.evaluate_property)
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -26,6 +26,8 @@ require 'glimmer/dsl/top_level_expression'
 require 'glimmer/ui/custom_widget'
 require 'glimmer/ui/custom_shell'
 require 'glimmer/swt/custom/code_text'
+require 'glimmer/swt/custom/radio_group'
+require 'glimmer/swt/custom/checkbox_group'
 
 module Glimmer
   module DSL

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

@@ -41,6 +41,8 @@ module Glimmer
           layout
           widget_listener
           combo_selection_data_binding
+          checkbox_group_selection_data_binding
+          radio_group_selection_data_binding
           list_selection_data_binding
           tree_items_data_binding
           table_items_data_binding

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

@@ -0,0 +1,60 @@
+# 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
+# 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'
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/swt/widget_proxy'
+require 'glimmer/swt/expand_item_proxy'
+
+module Glimmer
+  module DSL
+    module SWT
+      class ExpandItemExpression < StaticExpression
+        include ParentExpression
+  
+        include_package 'org.eclipse.swt.widgets'
+  
+        def can_interpret?(parent, keyword, *args, &block)
+          initial_condition = (keyword == 'expand_item') and parent.respond_to?(:swt_widget)
+          if initial_condition
+            if parent.swt_widget.is_a?(ExpandBar)
+              return true
+            else
+              Glimmer::Config.logger.error {"expand_item widget may only be used directly under a expand_bar widget!"}
+            end
+          end
+          false
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::SWT::ExpandItemProxy.new(parent, args)
+        end
+        
+        def add_content(parent, &block)
+          super
+          parent.post_add_content
+        end
+                
+      end
+    end
+  end
+end

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

@@ -0,0 +1,61 @@
+# 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
+# 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/expression'
+require 'glimmer/data_binding/model_binding'
+require 'glimmer/data_binding/widget_binding'
+
+module Glimmer
+  module DSL
+    module SWT
+      class RadioGroupSelectionDataBindingExpression < Expression
+ 
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword == 'selection' and
+            block.nil? and
+            (parent.is_a?(Glimmer::SWT::Custom::RadioGroup) or (parent.is_a?(Glimmer::UI::CustomWidget) and parent.body_root.is_a?(Glimmer::SWT::Custom::RadioGroup)) ) and
+            args.size == 1 and
+            args[0].is_a?(DataBinding::ModelBinding) and
+            args[0].evaluate_options_property.is_a?(Array)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          model_binding = args[0]
+  
+          #TODO make this options observer dependent and all similar observers in widget specific data binding handlers
+          # TODO consider delegating some of this work
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'items')
+          widget_binding.call(model_binding.evaluate_options_property)
+          model = model_binding.base_model
+          widget_binding.observe(model, model_binding.options_property_name)
+  
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'selection')
+          widget_binding.call(model_binding.evaluate_property)
+          widget_binding.observe(model, model_binding.property_name_expression)
+  
+          parent.on_widget_selected do
+            model_binding.call(widget_binding.evaluate_property)
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -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

@@ -38,11 +38,13 @@ module Glimmer
           swt_widget&.text
         end
         
-        def syntax_highlighting
+        def syntax_highlighting          
           return [] if text.to_s.strip.empty?
           code = text
-          lexer = Rouge::Lexer.find_fancy('ruby', code)
-          lex = lexer.lex(code).to_a
+          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
           lex_hashes = lex.map do |pair|
             {token_type: pair.first, token_text: pair.last}
@@ -50,7 +52,15 @@ module Glimmer
             hash[:token_index] = code_size
             code_size += hash[:token_text].size
           end
-          # TODO consider grouping by line to optimize performance for line get style listener
+          code_lines = code.split("\n")
+          line_index = 0
+          @syntax_highlighting = code_lines_map = code_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
+              line_index += line.size + 1
+            end            
+          end          
         end
         
         before_body {
@@ -68,15 +78,12 @@ module Glimmer
                   
             on_line_get_style { |line_style_event|
               styles = []
-              line_style_event.lineOffset
-              syntax_highlighting.each do |token_hash|
-                if token_hash[:token_index] >= line_style_event.lineOffset && token_hash[:token_index] < (line_style_event.lineOffset + line_style_event.lineText.size)
-                  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
+              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
               line_style_event.styles = styles.to_java(StyleRange) unless styles.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