glimmer-dsl-swt 4.17.2.2 → 4.17.4.1

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

@@ -0,0 +1,95 @@
+require 'glimmer/ui/custom_widget'
+
+module Glimmer
+  module SWT
+    module Custom
+      # CodeText is a customization of StyledText with support for Ruby Syntax Highlighting
+      class CodeText
+        include Glimmer::UI::CustomWidget
+        
+        SYNTAX_COLOR_MAP = {
+           Builtin:     [215,58,73], 
+           Class:       [3,47,98], 
+           Constant:    [0,92,197], 
+           Double:      [0,92,197],
+           Escape:      [:red],
+           Function:    [:blue], 
+           Instance:    [227,98,9], 
+           Integer:     [:blue], 
+           Interpol:    [:blue],
+           Keyword:     [:blue], 
+           Name:        [111,66,193], #purple
+           Operator:    [:red], 
+           Pseudo:      [:dark_red],
+           Punctuation: [:blue], 
+           Single:      [106,115,125], # Also, Comments
+           Symbol:      [:dark_green],
+           Text:        [75, 75, 75],
+        }
+        
+        # TODO support `option :language`
+        # TODO support auto language detection
+      
+        def text=(value)
+          swt_widget&.text = value
+        end
+        
+        def text
+          swt_widget&.text
+        end
+        
+        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
+          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
+          end
+          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 {
+          @swt_style = swt_style == 0 ? [:border, :multi, :v_scroll, :h_scroll] : swt_style
+        }
+        
+        body {
+          styled_text(swt_style) {
+            font name: 'Consolas', height: 15
+            foreground rgb(75, 75, 75)
+            left_margin 5
+            top_margin 5
+            right_margin 5
+            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)
+              end
+              line_style_event.styles = styles.to_java(StyleRange) unless styles.empty?
+            }            
+          }
+        }
+      end
+    end
+  end
+end

data/lib/glimmer/swt/image_proxy.rb

@@ -27,10 +27,20 @@ module Glimmer
     #
     # Follows the Proxy Design Pattern
     class ImageProxy
+      class << self
+        def create(*args)
+          if args.size == 1 && args.first.is_a?(ImageProxy)
+            args.first
+          else
+            new(*args)
+          end
+        end
+      end
+      
       include_package 'org.eclipse.swt.graphics'
       
       attr_reader :file_path, :jar_file_path, :image_data, :swt_image
-
+      
       # Initializes a proxy for an SWT Image object
       #
       # Takes the same args as the SWT Image class
@@ -38,28 +48,41 @@ module Glimmer
       # and returns an image object.
       def initialize(*args)
         @args = args
-        @file_path = @args.first if @args.first.is_a?(String) && @args.size == 1        
-        if @file_path
-          if @file_path.start_with?('uri:classloader')
-            @jar_file_path = @file_path
-            @file_path = @jar_file_path.sub(/^uri\:classloader\:/, '').sub('//', '/') # the latter sub is needed for Mac
-            object = java.lang.Object.new
-            file_input_stream = object.java_class.resource_as_stream(file_path)
-            buffered_file_input_stream = java.io.BufferedInputStream.new(file_input_stream)
-          end
-          @image_data = ImageData.new(buffered_file_input_stream || @file_path)
+        options = @args.last.is_a?(Hash) ? @args.delete_at(-1) : {}
+        options[:swt_image] = @args.first if @args.size == 1 && @args.first.is_a?(Image)
+        @file_path = @args.first if @args.size == 1 && @args.first.is_a?(String)
+        @args = @args.first if @args.size == 1 && @args.first.is_a?(Array)
+        if options&.keys&.include?(:swt_image)
+          @swt_image = options[:swt_image]
+          @image_data = @swt_image.image_data
+        elsif @file_path
+          @image_data = ImageData.new(input_stream || @file_path)
           @swt_image = Image.new(DisplayProxy.instance.swt_display, @image_data)
         else
           @swt_image = Image.new(*@args)
           @image_data = @swt_image.image_data
         end        
       end
+      
+      def input_stream
+        if @file_path.start_with?('uri:classloader')
+          @jar_file_path = @file_path
+          file_path = @jar_file_path.sub(/^uri\:classloader\:/, '').sub('//', '/') # the latter sub is needed for Mac
+          object = java.lang.Object.new
+          file_input_stream = object.java_class.resource_as_stream(file_path)
+        else
+          file_input_stream = java.io.FileInputStream.new(@file_path)
+        end      
+        java.io.BufferedInputStream.new(file_input_stream) if file_input_stream
+      end
 
       def scale_to(width, height)
         scaled_image_data = image_data.scaledTo(width, height)
         device = swt_image.device
         swt_image.dispose
         @swt_image = Image.new(device, scaled_image_data)
+        @image_data = @swt_image.image_data
+        self
       end
       
       def method_missing(method, *args, &block)

data/lib/glimmer/swt/message_box_proxy.rb

@@ -26,7 +26,7 @@ require 'glimmer/swt/shell_proxy'
 
 module Glimmer
   module SWT
-    # Proxy for org.eclipse.swt.widgets.Shell
+    # Proxy for org.eclipse.swt.widgets.MessageBox
     #
     # Follows the Proxy Design Pattern
     class MessageBoxProxy

data/lib/glimmer/swt/sash_form_proxy.rb

@@ -0,0 +1,53 @@
+# 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/swt/widget_proxy'
+
+module Glimmer
+  module SWT
+    # Proxy for org.eclipse.swt.custom.SashForm
+    #
+    # Follows the Proxy Design Pattern
+    class SashFormProxy < WidgetProxy
+      def post_add_content
+        swt_widget.setWeights(@weights) unless @weights.nil?
+      end
+      
+      def set_attribute(attribute_name, *args)
+        if attribute_name.to_s == "weights"
+          @weights = args
+          @weights = @weights.first if @weights.first.is_a?(Array)
+        else
+          super(attribute_name, *args)
+        end
+      end
+ 
+      def get_attribute(attribute_name)
+        if attribute_name.to_s == "weights"
+          swt_widget.getWeights.to_a
+        else
+          super(attribute_name)
+        end
+      end
+      
+    end
+  end
+end

data/lib/glimmer/swt/style_constantizable.rb

@@ -128,7 +128,7 @@ module Glimmer
         def deconstruct(integer)
           constant_source_class.constants.reduce([]) do |found, c|
             constant_value = constant_source_class.const_get(c) rescue -1
-            is_found = constant_value.is_a?(Integer) && (integer & constant_value) == integer
+            is_found = constant_value.is_a?(Integer) && (integer & constant_value) == constant_value
             is_found ? found += [c] : found
           end
         end
@@ -136,6 +136,7 @@ module Glimmer
         # Reverse engineer a style integer into a symbol
         # Useful for debugging
         def reverse_lookup(integer)
+          # TODO support looking up compound style mixes
           constant_source_class.constants.reduce([]) do |found, c|
             constant_value = constant_source_class.const_get(c) rescue -1
             is_found = constant_value.is_a?(Integer) && integer == constant_value

data/lib/glimmer/swt/widget_proxy.rb

@@ -23,6 +23,7 @@ require 'glimmer/swt/widget_listener_proxy'
 require 'glimmer/swt/color_proxy'
 require 'glimmer/swt/font_proxy'
 require 'glimmer/swt/swt_proxy'
+require 'glimmer/swt/display_proxy'
 require 'glimmer/swt/dnd_proxy'
 require 'glimmer/swt/image_proxy'
 
@@ -54,7 +55,7 @@ module Glimmer
         "radio"               => [:radio],
         "scrolled_composite"  => [:border, :h_scroll, :v_scroll],
         "spinner"             => [:border],
-        "styled_text"         => [:border],
+        "styled_text"         => [:border, :multi, :v_scroll, :h_scroll],
         "table"               => [:virtual, :border, :full_selection],
         "text"                => [:border],
         "toggle"              => [:toggle],
@@ -204,7 +205,7 @@ module Glimmer
         widget_custom_attribute = widget_custom_attribute_mapping[attribute_name.to_s]
         if widget_custom_attribute
           widget_custom_attribute[:setter][:invoker].call(@swt_widget, args)
-        elsif @swt_widget.respond_to?(attribute_setter(attribute_name), args)
+        elsif @swt_widget.respond_to?(attribute_setter(attribute_name))
           apply_property_type_converters(attribute_name, args)
           @swt_widget.send(attribute_setter(attribute_name), *args) unless @swt_widget.send(attribute_getter(attribute_name)) == args.first
         else
@@ -328,6 +329,57 @@ module Glimmer
                 observer.call(@swt_widget.getText)
               }
             end,
+            :caret_position => lambda do |observer|
+              on_swt_keydown { |event|
+                observer.call(@swt_widget.getCaretPosition)
+              }
+              on_swt_keyup { |event|
+                observer.call(@swt_widget.getCaretPosition)
+              }
+              on_swt_mousedown { |event|
+                observer.call(@swt_widget.getCaretPosition)
+              }
+              on_swt_mouseup { |event|
+                observer.call(@swt_widget.getCaretPosition)
+              }
+            end,
+            :selection => lambda do |observer|
+              on_swt_keydown { |event|
+                observer.call(@swt_widget.getSelection)
+              }
+              on_swt_keyup { |event|
+                observer.call(@swt_widget.getSelection)
+              }
+              on_swt_mousedown { |event|
+                observer.call(@swt_widget.getSelection)
+              }
+              on_swt_mouseup { |event|
+                observer.call(@swt_widget.getSelection)
+              }
+            end,
+            :selection_count => lambda do |observer|
+              on_swt_keydown { |event|
+                observer.call(@swt_widget.getSelectionCount)
+              }
+              on_swt_keyup { |event|
+                observer.call(@swt_widget.getSelectionCount)
+              }
+              on_swt_mousedown { |event|
+                observer.call(@swt_widget.getSelectionCount)
+              }
+              on_swt_mouseup { |event|
+                observer.call(@swt_widget.getSelectionCount)
+              }
+            end,
+            :top_index => lambda do |observer|
+              @last_top_index = @swt_widget.getTopIndex
+              on_paint_control { |event|
+                if @swt_widget.getTopIndex != @last_top_index
+                  @last_top_index = @swt_widget.getTopIndex
+                  observer.call(@last_top_index)
+                end
+              }
+            end,            
           },
           Java::OrgEclipseSwtWidgets::Button => {
             :selection => lambda do |observer|
@@ -619,7 +671,11 @@ module Glimmer
           },
           'selection_count' => {
             getter: {name: 'getSelectionCount'},
-            setter: {name: 'setSelection', invoker: lambda { |widget, args| @swt_widget.setSelection(@swt_widget.getCaretPosition, @swt_widget.getCaretPosition + args.first) if args.first }},
+            setter: {name: 'setSelection', invoker: lambda { |widget, args| 
+              # TODO consider the idea of aliasing getCaretPosition in StyledText
+              caret_position = @swt_widget.getCaretPosition rescue @swt_widget.getCaretOffset
+              @swt_widget.setSelection(caret_position, caret_position + args.first) if args.first 
+            }},
           },
         }
       end
@@ -683,21 +739,45 @@ module Glimmer
           },
           :background => color_converter,
           :background_image => lambda do |value|
-            image_proxy = nil
-            if value.is_a?(String)
-              image_proxy = ImageProxy.new(value)
-            elsif value.is_a?(Array)
-              image_proxy = ImageProxy.new(*value)
-            end
-            if image_proxy
+            image_proxy = ImageProxy.create(value)
+            
+            if image_proxy&.file_path&.end_with?('.gif')
+              image = image_proxy.swt_image
+              width = image.get_bounds.width.to_i
+              height = image.get_bounds.height.to_i
+              image_number = 0
+              loader = ImageLoader.new
+              loader.load(image_proxy.input_stream)
+              image.dispose
+              image = org.eclipse.swt.graphics.Image.new(DisplayProxy.instance.swt_display,loader.data[0].scaledTo(width, height))
+              gc = org.eclipse.swt.graphics.GC.new(image)
+              on_paint_control { |event|
+                image_number = (image_number == loader.data.length - 1) ? 0 : image_number + 1
+                next_frame_data = loader.data[image_number]
+                image = org.eclipse.swt.graphics.Image.new(DisplayProxy.instance.swt_display, next_frame_data.scaledTo(width, height))
+                event.gc.drawImage(image, 0, 0, width, height, 0, 0, width, height)
+                image.dispose
+              }
+              Thread.new {
+                last_image_number = -1
+                while last_image_number != image_number
+                  last_image_number = image_number
+                  sync_exec {
+                    redraw
+                  }
+                  delayTime = loader.data[image_number].delayTime.to_f / 100.0
+                  sleep(delayTime)
+                end
+              };
+              image_proxy = nil              
+            else
               on_swt_Resize do |resize_event|
                 image_proxy.scale_to(@swt_widget.getSize.x, @swt_widget.getSize.y)
-                @swt_widget.setBackgroundImage(image_proxy.swt_image)
-              end
-              image_proxy.swt_image
-            else
-              value
-            end
+                @swt_widget.setBackgroundImage(image_proxy.swt_image)          
+              end        
+            end            
+            
+            image_proxy&.swt_image
           end,
           :cursor => lambda do |value|
             cursor_proxy = nil
@@ -718,34 +798,18 @@ module Glimmer
             end
           end,
           :image => lambda do |value|
-            if value.is_a?(String)
-              ImageProxy.new(value).swt_image
-            elsif value.is_a?(Array)
-              ImageProxy.new(*value).swt_image
-            else
-              value
-            end
+            ImageProxy.create(value).swt_image
           end,
           :images => lambda do |array|
             array.to_a.map do |value|
-              if value.is_a?(String)
-                ImageProxy.new(value).swt_image
-              elsif value.is_a?(Array)
-                ImageProxy.new(*value).swt_image
-              else
-                value
-              end
+              ImageProxy.create(value).swt_image
             end.to_java(Image)
           end,
           :items => lambda do |value|
             value.to_java :string
           end,
           :text => lambda do |value|
-            if swt_widget.is_a?(Browser)
-              value.to_s
-            else
-              value.to_s
-            end
+            value.to_s
           end,
           :transfer => lambda do |value|
             value = value.first if value.is_a?(Array) && value.size == 1 && value.first.is_a?(Array)

data/samples/elaborate/meta_sample.rb

@@ -0,0 +1,166 @@
+class Sample
+  attr_accessor :sample_directory, :file, :selected
+  
+  def initialize(file, sample_directory: )
+    self.file = file
+    self.sample_directory = sample_directory
+  end
+  
+  def name
+    if @name.nil?
+      @name = File.basename(file, '.rb').split('_').map(&:capitalize).join(' ')    
+      if @name.start_with?('Hello')
+        name_parts = @name.split
+        name_parts[0] = name_parts.first + ','
+        name_parts[-1] = name_parts.last + '!'
+        @name = name_parts.join(' ')
+      end
+    end
+    @name
+  end
+  
+  def content
+    @content ||= File.read(file)
+  end
+    
+  def launch
+    load file
+  end
+end
+
+class SampleDirectory
+  class << self
+    attr_accessor :selected_sample
+    
+    def sample_directories
+      if @sample_directories.nil?
+        @sample_directories = Dir.glob(File.join(File.expand_path('..', __FILE__), '*')).
+            select { |file| File.directory?(file) }.
+            map { |file| SampleDirectory.new(file) }
+        glimmer_gems = Gem.find_latest_files("glimmer-*-*")
+        sample_directories = glimmer_gems.map do |lib| 
+          File.dirname(File.dirname(lib))
+        end.select do |gem| 
+          Dir.exist?(File.join(gem, 'samples'))
+        end.map do |gem| 
+          Dir.glob(File.join(gem, 'samples', '*')).select {|file_or_dir| Dir.exist?(file_or_dir)}
+        end.flatten.uniq.reverse
+        if Dir.exist?('samples')
+          Dir.glob(File.join('samples', '*')).to_a.reverse.each do |dir|
+            sample_directories << dir if Dir.exist?(dir)
+          end
+        end
+        sample_directories = sample_directories.uniq {|dir| File.basename(dir)}
+        @sample_directories = sample_directories.map { |file| SampleDirectory.new(file) }            
+      end
+      @sample_directories
+    end
+    
+    def all_samples
+      @all_samples ||= sample_directories.map(&:samples).reduce(:+)
+    end
+  end
+  
+  include Glimmer # used for observe syntax
+  
+  attr_accessor :file
+  
+  def initialize(file)
+    self.file = file
+  end
+  
+  def name
+    File.basename(file).split('_').map(&:capitalize).join(' ')
+  end
+  
+  def samples
+    if @samples.nil?
+      @samples = Dir.glob(File.join(file, '*')).
+          select { |file| File.file?(file) }.
+          map { |sample_file| Sample.new(sample_file, sample_directory: self) }.
+          sort_by(&:name)
+      
+      @samples.each do |sample|
+        observe(sample, :selected) do |new_selected_value|
+          if new_selected_value
+            self.class.all_samples.reject {|a_sample| a_sample.name == sample.name}.each do |other_sample|
+              other_sample.selected = false
+            end
+            self.class.selected_sample = sample
+          end
+        end
+      end
+    end
+    @samples
+  end  
+end
+
+class MetaSampleApplication
+  include Glimmer
+  
+  def launch
+    shell {
+      text 'Glimmer Meta-Sample (The Sample of Samples)'
+      
+      on_swt_show {
+        SampleDirectory.selected_sample = SampleDirectory.all_samples.first        
+      }
+      
+      sash_form {
+        composite {
+          grid_layout 1, false
+          
+          scrolled_composite {
+            layout_data(:fill, :fill, true, true)
+            
+            composite {
+              SampleDirectory.sample_directories.each { |sample_directory|
+                group {
+                  layout_data(:fill, :fill, true, true)
+                  grid_layout 2, false
+                  text sample_directory.name
+                  font height: 30
+                  
+                  sample_directory.samples.each { |sample|
+                    label_radio = radio {
+                      selection bind(sample, :selected)
+                    }
+                    label {
+                      text sample.name
+                      font height: 30
+                      
+                      on_mouse_up {
+                        sample.selected = true
+                      }
+                    }
+                  }
+                }
+              }
+            }
+          }
+          
+          button {
+            layout_data(:center, :center, false, false) {
+              height_hint 150
+            }
+            text 'Launch Sample'
+            font height: 45
+            on_widget_selected {
+              SampleDirectory.selected_sample.launch
+            }
+          }        
+        }
+            
+        code_text {
+          text bind(SampleDirectory, 'selected_sample.content')
+          editable false
+          caret nil
+        }
+        
+        weights 1, 2
+      }            
+    }.open
+  end
+end
+
+MetaSampleApplication.new.launch