glimmer-dsl-swt 4.17.2.4 → 4.17.5.0

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 {
+      minimum_size 1280, 768
+      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
+            
+          expand_bar {
+            layout_data(:fill, :fill, true, true)
+            font height: 30
+            
+            SampleDirectory.sample_directories.each { |sample_directory|
+              expand_item {
+                layout_data(:fill, :fill, true, true)
+                grid_layout 2, false
+                text "#{sample_directory.name} Samples"
+                
+                sample_directory.samples.each { |sample|
+                  label_radio = radio {
+                    selection bind(sample, :selected)
+                  }
+                  label {
+                    layout_data :fill, :center, true, false
+                    text sample.name
+                    font height: 24
+                    
+                    on_mouse_up {
+                      sample.selected = true
+                    }
+                  }
+                }
+              }
+            }
+          }
+          
+          button {
+            layout_data(:fill, :center, true, false) {
+              height_hint 120
+            }
+            text 'Launch Sample'
+            font height: 30
+            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

data/samples/hello/hello_expand_bar.rb

@@ -0,0 +1,108 @@
+# 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.
+
+class HelloExpandBar
+  include Glimmer
+  
+  def launch
+    shell {
+      grid_layout(1, false) {
+        margin_width 0
+        margin_height 0
+      }
+      minimum_size 320, 240
+      text 'Hello, Expand Bar!'
+      
+      @status_label = label(:center) {
+        text ' '
+        layout_data :fill, :center, true, false
+        font height: 24
+      }
+      
+      expand_bar {
+        layout_data :fill, :fill, true, true
+        
+        expand_item {
+          text 'Productivity'
+          
+          button {
+            text 'Word Processing'
+          }
+          button {
+            text 'Spreadsheets'
+          }
+          button {
+            text 'Presentations'
+          }
+          button {
+            text 'Database'
+          }
+        }
+        
+        expand_item {
+          text 'Tools'
+          
+          button {
+            text 'Calculator'
+          }
+          button {
+            text 'Unit Converter'
+          }
+          button {
+            text 'Currency Converter'
+          }
+          button {
+            text 'Scientific Calculator'
+          }
+        }
+        
+        expand_item {
+          text 'Reading'
+          
+          button {
+            text 'eBooks'
+          }
+          button {
+            text 'News'
+          }
+          button {
+            text 'Blogs'
+          }
+          button {
+            text 'Papers'
+          }
+        }
+        
+        on_item_expanded { |expand_event|
+          @status_label.text = "#{expand_event.item.text} Expanded!"
+        }
+        
+        on_item_collapsed { |expand_event|
+          @status_label.text = "#{expand_event.item.text} Collapsed!"
+        }
+        
+        
+      }
+    }.open
+  end
+end
+
+HelloExpandBar.new.launch

data/samples/hello/hello_sash_form.rb

@@ -0,0 +1,137 @@
+# 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.
+
+class SashFormPresenter
+  include Glimmer
+  
+  attr_accessor :sash_width, :orientation, :orientation_style
+  
+  def initialize
+    @sash_width = 10
+    self.orientation = 'horizontal'
+  end
+  
+  def orientation_options
+    ['horizontal', 'vertical']
+  end
+  
+  def orientation=(value)
+    @orientation = value
+    self.orientation_style = swt(@orientation)
+  end
+end
+
+@presenter = SashFormPresenter.new
+
+include Glimmer
+
+shell {
+  grid_layout 1, false
+  minimum_size 740, 0
+  text 'Hello, Sash Form!'
+  
+  @sash_form = sash_form {
+    layout_data(:fill, :fill, true, true) {
+      height_hint 200
+    }
+    sash_width bind(@presenter, :sash_width)
+    orientation bind(@presenter, :orientation_style)
+    weights 1, 2
+    
+    @green_label = label {
+      text 'Hello, (resize >>)'
+      background :dark_green
+      foreground :white
+      font height: 30
+    }
+    
+    @red_label = label {
+      text '(<< resize) Sash Form!'
+      background :red
+      foreground :white
+      font height: 30
+    }
+  }
+  
+  composite {
+    layout_data(:fill, :fill, true, true)
+    grid_layout 2, true
+    
+    label {
+      layout_data(:right, :center, true, false)
+      text 'Sash Width:'
+      font height: 16
+    }
+    spinner {
+      layout_data(:fill, :center, true, false) {
+        width_hint 100
+      }
+      selection bind(@presenter, :sash_width)
+      font height: 16
+    }
+    
+    label {
+      layout_data(:right, :center, true, false)
+      text 'Orientation:'
+      font height: 16
+    }
+    combo(:read_only, :border) {
+      layout_data(:fill, :center, true, false) {
+        width_hint 100
+      }
+      selection bind(@presenter, :orientation)
+      font height: 16
+    }
+    
+    button {
+      layout_data(:fill, :center, true, false)
+      text 'Maximize Green Label'
+      foreground :dark_green
+      font height: 16
+      
+      on_widget_selected {
+        @sash_form.maximized_control = @green_label.swt_widget
+      }
+    }
+    button {
+      layout_data(:fill, :center, true, false)
+      text 'Maximize Red Label'
+      foreground :red
+      font height: 16
+      
+      on_widget_selected {
+        @sash_form.maximized_control = @red_label.swt_widget
+      }
+    }
+    
+    button {
+      layout_data(:fill, :center, true, false) {
+        horizontal_span 2
+      }
+      text 'Maximize None'
+      font height: 16
+      
+      on_widget_selected {
+        @sash_form.maximized_control = nil
+      }
+    }
+  }
+}.open

data/samples/hello/hello_styled_text.rb

@@ -0,0 +1,138 @@
+# 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.
+
+verbiage = <<-MULTI_LINE_STRING
+
+Glimmer DSL for SWT is a native-GUI cross-platform desktop development library written in JRuby, 
+an OS-threaded faster version of Ruby. 
+Glimmer's main innovation is a declarative Ruby DSL that enables productive and efficient authoring 
+of desktop application user-interfaces while relying on the robust Eclipse SWT library. 
+Glimmer additionally innovates by having built-in data-binding support, which greatly facilitates 
+synchronizing the GUI with domain models, thus achieving true decoupling of object oriented components 
+and enabling developers to solve business problems (test-first) without worrying about GUI concerns. 
+To get started quickly, Glimmer offers scaffolding options for Apps, Gems, and Custom Widgets. 
+Glimmer also includes native-executable packaging support, sorely lacking in other libraries, 
+thus enabling the delivery of desktop apps written in Ruby as truly native DMG/PKG/APP files on 
+the Mac + App Store, MSI/EXE files on Windows, and Gem Packaged Shell Scripts on Linux.
+
+MULTI_LINE_STRING
+
+class StyledTextPresenter
+  include Glimmer
+  attr_accessor :text, :caret_offset, :selection_count, :selection, :top_pixel
+    
+  def line_index_for_offset(line_offset)
+    text[0..line_offset].split("\n").size
+  end
+end
+
+include Glimmer
+
+@presenter = StyledTextPresenter.new
+@presenter.text = verbiage*8
+@presenter.caret_offset = 0
+@presenter.selection_count = 0
+@presenter.selection = Point.new(0, 0)
+@presenter.top_pixel = 0
+
+shell {
+  text 'Hello, Styled Text!'
+  
+  composite {
+    @styled_text = styled_text {
+      layout_data :fill, :fill, true, true
+      text bind(@presenter, :text)
+      left_margin 5
+      top_margin 5
+      right_margin 5
+      bottom_margin 5
+      # caret offset scrolls text to view when out of page
+      caret_offset bind(@presenter, :caret_offset)
+      # selection_count is not needed if selection is used
+      selection_count bind(@presenter, :selection_count)
+      # selection contains both caret_offset and selection_count, but setting it does not scroll text into view if out of page
+      selection bind(@presenter, :selection)
+      # top_pixel indicates vertically what pixel scrolling is at in a long multi-page text document
+      top_pixel bind(@presenter, :top_pixel)
+      
+      # This demonstrates how to set styles via a listener
+      on_line_get_style { |line_style_event|        
+        line_offset = line_style_event.lineOffset
+        if @presenter.line_index_for_offset(line_offset) % 52 < 13
+          line_size = line_style_event.lineText.size
+          style_range = StyleRange.new(line_offset, line_size, color(:blue).swt_color, nil, swt(:italic))
+          style_range.font = Font.new(display.swt_display, 'Times New Roman', 18, swt(:normal))
+          line_style_event.styles = [style_range].to_java(StyleRange)
+        elsif @presenter.line_index_for_offset(line_offset) % 52 < 26
+          line_size = line_style_event.lineText.size
+          style_range = StyleRange.new(line_offset, line_size, color(:dark_green).swt_color, color(:yellow).swt_color, swt(:bold))
+          line_style_event.styles = [style_range].to_java(StyleRange)
+        elsif @presenter.line_index_for_offset(line_offset) % 52 < 39
+          line_size = line_style_event.lineText.size
+          style_range = StyleRange.new(line_offset, line_size, color(:red).swt_color, nil, swt(:normal))
+          style_range.underline = true
+          style_range.font = Font.new(display.swt_display, 'Arial', 16, swt(:normal))
+          line_style_event.styles = [style_range].to_java(StyleRange)
+        else
+          line_size = line_style_event.lineText.size
+          style_range = StyleRange.new(line_offset, line_size, color(:dark_magenta).swt_color, color(:cyan).swt_color, swt(:normal))
+          style_range.strikeout = true
+          line_style_event.styles = [style_range].to_java(StyleRange)        
+        end
+      }
+    }
+    
+    composite {
+      row_layout :horizontal
+      
+      label {
+        text 'Caret Offset:'
+      }
+      text {
+        text bind(@presenter, :caret_offset, on_read: ->(o) {"%04d" % [o] })
+      }
+      label {
+        text 'Selection Count:'
+      }
+      text {
+        text bind(@presenter, :selection_count, on_read: ->(o) {"%04d" % [o] })
+      }
+      label {
+        text 'Selection Start:'
+      }
+      text {
+        text bind(@presenter, 'selection.x', on_read: ->(o) {"%04d" % [o] })
+      }
+      label {
+        text 'Selection End:'
+      }
+      text {
+        text bind(@presenter, 'selection.y', on_read: ->(o) {"%04d" % [o] })
+      }
+      label {
+        text 'Top Pixel:'
+      }
+      text {
+        text bind(@presenter, :top_pixel, on_read: ->(o) {"%04d" % [o] })
+      }      
+    }    
+  }
+}.open