glimmer-dsl-swt 0.2.4 → 0.5.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: e33ae73c95946ba7fce0d3dc221cee2ca817968a03bbfe678ff9e0ecfbaf5a65
-  data.tar.gz: c95f41b789e3dee67c94dbf79d6e8367d5ad7a1fb94749e784a8c3b13ef8a4aa
+  metadata.gz: 91bef52f38fc050af058a464dd68675a122042eff60633b3b466773a40b039e9
+  data.tar.gz: d8e7173b1914566b0725e58d389828d8def76e3845c9b5addaf3dd72b0f174a1
 SHA512:
-  metadata.gz: c4784a352196f496c4fce136da828352c9c92c2f7092e917f9c47a403bd91964566a2d493680b35f13d240a87dd37830153f3a37ea050ea0d84aa8b02071cfdc
-  data.tar.gz: 9080d1bdc15f375db58fa8719d5c6fb8d2017313fe52ea7e2ad7b4dd042f47daa8bf87edecffa819c6e1596839af619f989335839fa757dd2e645ce6c6e13fdb
+  metadata.gz: a4a7cc3f907d3ea343dd3dcbb412a237fe7a8528dc87c80c69f5aab5f81513def8a95bd060899dc386720b7477bec53a9daea1891b39c50f720c6d98a75b471e
+  data.tar.gz: c69cb5ccc38a677e38dd5ab7d2bd9b7df9216cebd3ecd83073b9acae7ef8c2030ae3e424971662bd80fbef33752766d77e585b9f38c20e7a89e93a395f1fb8a5

data/README.md

@@ -1,7 +1,8 @@
-# <img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 /> Glimmer DSL for SWT 0.2.4 (Desktop GUI)
+# [<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=85 />](https://github.com/AndyObtiva/glimmer) Glimmer DSL for SWT 0.5.0 (Desktop GUI)
 [![Gem Version](https://badge.fury.io/rb/glimmer-dsl-swt.svg)](http://badge.fury.io/rb/glimmer-dsl-swt)
 [![Travis CI](https://travis-ci.com/AndyObtiva/glimmer-dsl-swt.svg?branch=master)](https://travis-ci.com/github/AndyObtiva/glimmer-dsl-swt)
 [![Coverage Status](https://coveralls.io/repos/github/AndyObtiva/glimmer-dsl-swt/badge.svg?branch=master)](https://coveralls.io/github/AndyObtiva/glimmer-dsl-swt?branch=master)
+[![Maintainability](https://api.codeclimate.com/v1/badges/aaf1cba142dd351f84bd/maintainability)](https://codeclimate.com/github/AndyObtiva/glimmer-dsl-swt/maintainability)
 [![Join the chat at https://gitter.im/AndyObtiva/glimmer](https://badges.gitter.im/AndyObtiva/glimmer.svg)](https://gitter.im/AndyObtiva/glimmer?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
 
 [Glimmer](https://github.com/AndyObtiva/glimmer) DSL for [SWT](https://www.eclipse.org/swt/) enables desktop development with [Glimmer](https://github.com/AndyObtiva/glimmer).
@@ -10,7 +11,7 @@
 
 You may find full setup/usage instructions at the main [Glimmer project page](https://github.com/AndyObtiva/glimmer).
 
-Other Glimmer DSL gems:
+Other [Glimmer](https://github.com/AndyObtiva/glimmer) DSL gems:
 - [glimmer-dsl-opal](https://github.com/AndyObtiva/glimmer-dsl-opal): Glimmer DSL for Opal (Web GUI Adapter for Desktop Apps)
 - [glimmer-dsl-xml](https://github.com/AndyObtiva/glimmer-dsl-xml): Glimmer DSL for XML (& HTML)
 - [glimmer-dsl-css](https://github.com/AndyObtiva/glimmer-dsl-css): Glimmer DSL for CSS (Cascading Style Sheets)
@@ -66,5 +67,11 @@ These features have been suggested. You might see them in a future version of Gl
 
 ## License
 
-Copyright (c) 2020 Andy Maleh.
-See LICENSE.txt for further details.
+[MIT](https://opensource.org/licenses/MIT)
+
+Copyright (c) 2020 - Andy Maleh. 
+See [LICENSE.txt](LICENSE.txt) for further details.
+
+--
+
+[<img src="https://raw.githubusercontent.com/AndyObtiva/glimmer/master/images/glimmer-logo-hi-res.png" height=40 />](https://github.com/AndyObtiva/glimmer) Built for [Glimmer](https://github.com/AndyObtiva/glimmer) (Ruby Desktop Development GUI Library).

data/VERSION

@@ -1 +1 @@
-0.2.4
+0.5.0

data/lib/ext/glimmer/config.rb

@@ -21,6 +21,94 @@ module Glimmer
         @@import_swt_packages = DEFAULT_IMPORT_SWT_PACKAGES if !defined?(@@import_swt_packages) || (defined?(@@import_swt_packages) && @@import_swt_packages == true)
         @@import_swt_packages
       end
+      
+      # Returns Logging Devices. Default is [:stdout, :syslog]
+      def logging_devices
+        unless defined? @@logging_devices
+          @@logging_devices = [:stdout, :syslog]
+        end
+        @@logging_devices
+      end
+      
+      # Logging Devices is an array of these possible values: :stdout (default), :stderr, :file, :syslog (default), :stringio
+      def logging_devices=(devices)
+        @@logging_devices = devices
+        reset_logger!
+      end
+      
+      def logging_device_file_options
+        @@logging_device_file_options = {size: 1_000_000, age: 'daily', roll_by: 'number'} unless defined? @@logging_device_file_options
+        @@logging_device_file_options
+      end
+      
+      def logging_device_file_options=(custom_options)
+        @@logging_device_file_options = custom_options
+        reset_logger!
+      end
+      
+      def logging_appender_options
+        @@logging_appender_options = {async: true, auto_flushing: 500, write_size: 500, flush_period: 60, immediate_at: [:error, :fatal], layout: logging_layout} unless defined? @@logging_appender_options
+        @@logging_appender_options
+      end
+      
+      def logging_appender_options=(custom_options)
+        @@logging_appender_options = custom_options
+        reset_logger!
+      end
+      
+      def logging_layout
+        unless defined? @@logging_layout
+          @@logging_layout = Logging.layouts.pattern(
+            pattern: '[%d] %-5l %c: %m\n',
+            date_pattern: '%Y-%m-%d %H:%M:%S'
+          )
+        end
+        @@logging_layout
+      end
+      
+      def logging_layout=(custom_layout)
+        @@logging_layout = custom_layout
+        reset_logger!
+      end
+      
+      def reset_logger!
+        @first_time = !defined?(@@logger)        
+        old_level = logger.level unless @first_time
+        self.logger = Logging.logger['glimmer'].tap do |logger| 
+          logger.level = old_level || :error
+          appenders = []
+          appenders << Logging.appenders.stdout(logging_appender_options) if logging_devices.include?(:stdout)
+          appenders << Logging.appenders.stderr(logging_appender_options) if logging_devices.include?(:stderr)
+          if logging_devices.include?(:file)
+            require 'fileutils'
+            FileUtils.mkdir_p('log')
+            appenders << Logging.appenders.rolling_file('log/glimmer.log', logging_appender_options.merge(logging_device_file_options)) if logging_devices.include?(:file)
+          end
+          if Object.const_defined?(:Syslog) && logging_devices.include?(:syslog)
+            Syslog.close if Syslog.opened?
+            appenders << Logging.appenders.syslog('glimmer', logging_appender_options)
+          end
+          logger.appenders = appenders
+        end
+      end
     end
   end
 end
+
+Glimmer::Config.reset_logger!
+if ENV['GLIMMER_LOGGER_LEVEL']
+  # if glimmer log level is being overridden for debugging purposes, then disable async logging making logging immediate
+  Glimmer::Config.logging_appender_options = Glimmer::Config.logging_appender_options.merge(async: false, auto_flushing: 1)
+  Glimmer::Config.logging_devices = [:stdout]
+  Glimmer::Config.logger.level = ENV['GLIMMER_LOGGER_LEVEL']
+end
+Glimmer::Config.excluded_keyword_checkers << lambda do |method_symbol, *args|
+  method = method_symbol.to_s
+  result = false
+  result ||= method.start_with?('on_swt_') && is_a?(Glimmer::UI::CustomWidget) && respond_to?(method)
+  result ||= method == 'dispose' && is_a?(Glimmer::UI::CustomWidget) && respond_to?(method)
+  result ||= ['drag_source_proxy', 'drop_target_proxy'].include?(method) && is_a?(Glimmer::UI::CustomWidget)
+  result ||= method == 'post_initialize_child'
+  result ||= method.end_with?('=')
+  result ||= ['finish_edit!', 'search', 'all_tree_items', 'depth_first_search'].include?(method) && is_a?(Glimmer::UI::CustomWidget) && body_root.respond_to?(method)
+end

data/lib/glimmer-dsl-swt.rb

@@ -6,9 +6,10 @@ if ENV['BUNDLER_REQUIRE'].to_s.downcase == 'true'
   require 'bundler'
   Bundler.require
 else
+  require 'glimmer'
+  require 'logging'
   require 'nested_inherited_jruby_include_package'
   require 'super_module'
-  require 'glimmer'
 end
 
 # Internal requires

data/lib/glimmer/data_binding/table_items_binding.rb

@@ -23,16 +23,18 @@ module Glimmer
           @table.body_root.column_properties = @column_properties
         end
         call(@model_binding.evaluate_property)
-        observe(model_binding)
+        @table_observer_registration = observe(model_binding)
         @table.on_widget_disposed do |dispose_event|
           unregister_all_observables
         end
       end
 
       def call(new_model_collection=nil)
-        new_model_collection = @model_binding.evaluate_property # this ensures applying converters (e.g. :on_read)
+        new_model_collection = @model_binding.evaluate_property # this ensures applying converters (e.g. :on_read)        
         if new_model_collection and new_model_collection.is_a?(Array)
-          observe(new_model_collection, @column_properties)
+          @table_items_observer_registration&.unobserve
+          @table_items_observer_registration = observe(new_model_collection, @column_properties)
+          add_dependent(@table_observer_registration => @table_items_observer_registration)
           @model_collection = new_model_collection
         end
         populate_table(@model_collection, @table, @column_properties)        
@@ -41,6 +43,7 @@ module Glimmer
       def populate_table(model_collection, parent, column_properties)
         selected_table_item_models = parent.swt_widget.getSelection.map(&:getData)
         parent.finish_edit!
+        parent.swt_widget.items.each(&:dispose)
         parent.swt_widget.removeAll
         model_collection.each do |model|
           table_item = TableItem.new(parent.swt_widget, SWT::SWTProxy[:none])
@@ -52,6 +55,7 @@ module Glimmer
         selected_table_items = parent.search {|item| selected_table_item_models.include?(item.getData) }
         selected_table_items = [parent.swt_widget.getItems.first].to_java(TableItem) if selected_table_items.empty? && !parent.swt_widget.getItems.empty?
         parent.swt_widget.setSelection(selected_table_items) unless selected_table_items.empty?
+        parent.sort
       end
     end
   end

data/lib/glimmer/data_binding/tree_items_binding.rb

@@ -41,10 +41,9 @@ module Glimmer
         old_tree_items = parent.all_tree_items
         old_tree_item_expansion_by_data = old_tree_items.reduce({}) {|hash, ti| hash.merge(ti.getData => ti.getExpanded)}
         old_tree_items.each do |tree_item|
-          tree_item.getData('observer_registrations').each do |key, observer_registration|
-            observer_registration.unregister
-          end          
+          tree_item.getData('observer_registrations').each(&:unregister)
         end        
+        parent.swt_widget.items.each(&:dispose)
         parent.swt_widget.removeAll
         populate_tree_node(model_tree_root_node, parent.swt_widget, tree_properties)
         parent.all_tree_items.each { |ti| ti.setExpanded(!!old_tree_item_expansion_by_data[ti.getData]) }
@@ -54,10 +53,9 @@ module Glimmer
 
       def populate_tree_node(model_tree_node, parent, tree_properties)
         return if model_tree_node.nil?
-        # TODO anticipate default tree properties if none were passed (like literal values text and children)
         tree_item = TreeItem.new(parent, SWT::SWTProxy[:none])
-        observer_registrations = @tree_properties.reduce({}) do |hash, key_value_pair|
-          hash.merge(key_value_pair.first => observe(model_tree_node, key_value_pair.last))
+        observer_registrations = @tree_properties.reduce([]) do |array, key_value_pair|
+          array + [observe(model_tree_node, key_value_pair.last)]
         end
         tree_item.setData('observer_registrations', observer_registrations)
         tree_item.setData(model_tree_node)

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

@@ -1,3 +1,4 @@
+
 require 'glimmer'
 require 'glimmer/dsl/expression'
 require 'glimmer/dsl/parent_expression'

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

@@ -20,7 +20,7 @@ module Glimmer
         end
   
         def interpret(parent, keyword, *args, &block)
-          Glimmer::SWT::DisplayProxy.instance.send(exec_operation, &block)
+          Glimmer::SWT::DisplayProxy.instance.swt_display.send(exec_operation, &block)
         end
       end
     end

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

@@ -18,7 +18,7 @@ module Glimmer
             if parent.swt_widget.is_a?(TabFolder)
               return true
             else
-              Glimmer::Config.logger&.error "tab_item widget may only be used directly under a tab_folder widget!"
+              Glimmer::Config.logger.error {"tab_item widget may only be used directly under a tab_folder widget!"}
             end
           end
           false

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

@@ -8,17 +8,17 @@ module Glimmer
         include_package 'org.eclipse.swt.widgets'
   
         def can_interpret?(parent, keyword, *args, &block)
-          Glimmer::Config.logger&.debug "keyword starts with on_: #{keyword.start_with?('on_')}"
+          Glimmer::Config.logger.debug {"keyword starts with on_: #{keyword.start_with?('on_')}"}
           return false unless keyword.start_with?('on_')
           widget_or_display_parentage = parent.respond_to?(:swt_widget) || parent.is_a?(Glimmer::SWT::DisplayProxy)
-          Glimmer::Config.logger&.debug "parent is a widget or display: #{widget_or_display_parentage}"
+          Glimmer::Config.logger.debug {"parent #{parent} is a widget or display: #{widget_or_display_parentage}"}
           return false unless widget_or_display_parentage
-          Glimmer::Config.logger&.debug "block exists?: #{!block.nil?}"
+          Glimmer::Config.logger.debug {"block exists?: #{!block.nil?}"}
           raise Glimmer::Error, "Listener is missing block for keyword: #{keyword}" unless block_given?
-          Glimmer::Config.logger&.debug "args are empty?: #{args.empty?}"
+          Glimmer::Config.logger.debug {"args are empty?: #{args.empty?}"}
           raise Glimmer::Error, "Invalid listener arguments for keyword: #{keyword}(#{args})" unless args.empty?
           result = parent.can_handle_observation_request?(keyword)
-          Glimmer::Config.logger&.debug "can add listener? #{result}"
+          Glimmer::Config.logger.debug {"can add listener? #{result}"}
           raise Glimmer::Error, "Invalid listener keyword: #{keyword}" unless result
           true
         end

data/lib/glimmer/package.rb

@@ -17,7 +17,7 @@ module Glimmer
         project_name = File.basename(File.expand_path('.'))
         if !File.exists?('config/warble.rb')
           puts 'Generating JAR configuration (config/warble.rb) to use with Warbler...'
-          system('mkdir -p config')
+          FileUtils.mkdir_p('config')
           system('warble config')
           new_config = File.read('config/warble.rb').split("\n").inject('') do |output, line|
             if line.include?('config.dirs =')
@@ -36,7 +36,7 @@ module Glimmer
       end
       
       def jar
-        system('mkdir -p dist')
+        FileUtils.mkdir_p('dist')
         puts "Generating JAR with Warbler..."
         system('warble')      
       end
@@ -49,11 +49,13 @@ module Glimmer
         version = (File.read(version_file).strip if File.exists?(version_file) && File.file?(version_file)) rescue nil
         license_file = File.expand_path('./LICENSE.txt')
         license = (File.read(license_file).strip if File.exists?(license_file) && File.file?(license_file)) rescue nil
+        copyright = license.split("\n").first
         human_name = project_name.underscore.titlecase
-        command = "javapackager -deploy -native -outdir packages -outfile \"#{project_name}\" -srcfiles \"dist/#{project_name}.jar\" -appclass JarMain -name \"#{human_name}\" -title \"#{human_name}\" -Bmac.CFBundleName=\"#{human_name}\" -Bmac.CFBundleIdentifier=\"org.#{project_name}.application.#{project_name}\" -Bmac.category=\"public.app-category.business\" "
+        command = "javapackager -deploy -native -outdir packages -outfile \"#{project_name}\" -srcfiles \"dist/#{project_name}.jar\" -appclass JarMain -name \"#{human_name}\" -title \"#{human_name}\" -Bmac.CFBundleName=\"#{human_name}\" -Bmac.CFBundleIdentifier=\"org.#{project_name}.application.#{project_name}\" -Bmac.category=\"public.app-category.business\" -BinstalldirChooser=true -Bvendor=\"#{human_name}\" -Bwin.menuGroup=\"#{human_name}\" -BsystemWide=false "
         command += " -BjvmOptions=-XstartOnFirstThread " if OS.mac?
         command += " -BappVersion=#{version} -Bmac.CFBundleVersion=#{version} " if version
         command += " -srcfiles LICENSE.txt -BlicenseFile=LICENSE.txt " if license
+        command += " -Bcopyright=\"#{copyright}\" " if copyright
         command += " #{javapackager_extra_args} " if javapackager_extra_args
         command += " #{ENV['JAVAPACKAGER_EXTRA_ARGS']} " if ENV['JAVAPACKAGER_EXTRA_ARGS']
         puts "Generating DMG/PKG/APP/JNLP with javapackager..."

data/lib/glimmer/rake_task.rb

@@ -33,57 +33,97 @@ namespace :glimmer do
   end
 
 
-  desc 'Scaffold a Glimmer application directory structure to begin building a new app'
+  desc 'Scaffold Glimmer application directory structure to build a new app'
   task :scaffold, [:app_name] do |t, args|
     require_relative 'scaffold'
     Scaffold.app(args[:app_name])
   end
 
   namespace :scaffold do
-    desc 'Scaffold a Glimmer::UI::CustomShell subclass (represents a full window view) under app/views (namespace is optional)'
-    task :custom_shell, [:custom_shell_name, :namespace] do |t, args|
+    desc 'Scaffold Glimmer::UI::CustomShell subclass (full window view) under app/views (namespace is optional) [alt: scaffold:cs]'
+    task :customshell, [:name, :namespace] do |t, args|
       require_relative 'scaffold'
-      Scaffold.custom_shell(args[:custom_shell_name], args[:namespace])
+      Scaffold.custom_shell(args[:name], args[:namespace])
     end
     
-    desc 'Scaffold a Glimmer::UI::CustomWidget subclass (represents a part of a view) under app/views (namespace is optional)'
-    task :custom_widget, [:custom_widget_name, :namespace] do |t, args|
-      require_relative 'scaffold'
-      Scaffold.custom_widget(args[:custom_widget_name], args[:namespace])
-    end
+    task :cs, [:name, :namespace] => :customshell
+    task :custom_shell, [:name, :namespace] => :customshell
+    task :"custom-shell", [:name, :namespace] => :customshell
     
-    desc 'Scaffold a Glimmer::UI::CustomShell subclass (represents a full window view) under its own Ruby gem + app project (namespace is required)'
-    task :custom_shell_gem, [:custom_shell_name, :namespace] do |t, args|
+    desc 'Scaffold Glimmer::UI::CustomWidget subclass (part of a view) under app/views (namespace is optional) [alt: scaffold:cw]'
+    task :customwidget, [:name, :namespace] do |t, args|
       require_relative 'scaffold'
-      Scaffold.custom_shell_gem(args[:custom_shell_name], args[:namespace])
+      Scaffold.custom_widget(args[:name], args[:namespace])
     end
     
-    desc 'Scaffold a Glimmer::UI::CustomWidget subclass (represents a part of a view) under its own Ruby gem project (namespace is required)'
-    task :custom_widget_gem, [:custom_widget_name, :namespace] do |t, args|
-      require_relative 'scaffold'
-      Scaffold.custom_widget_gem(args[:custom_widget_name], args[:namespace])
+    task :cw, [:name, :namespace] => :customwidget
+    task :custom_widget, [:name, :namespace] => :customwidget
+    task :"custom-widget", [:name, :namespace] => :customwidget
+    
+    namespace :gem do
+      desc 'Scaffold Glimmer::UI::CustomShell subclass (full window view) under its own Ruby gem + app project (namespace is required) [alt: scaffold:gem:cs]'
+      task :customshell, [:name, :namespace] do |t, args|
+        require_relative 'scaffold'
+        Scaffold.custom_shell_gem(args[:name], args[:namespace])
+      end
+      
+      task :cs, [:name, :namespace] => :customshell
+      task :custom_shell, [:name, :namespace] => :customshell
+      task :"custom-shell", [:name, :namespace] => :customshell
+      
+      desc 'Scaffold Glimmer::UI::CustomWidget subclass (part of a view) under its own Ruby gem project (namespace is required) [alt: scaffold:gem:cw]'
+      task :customwidget, [:name, :namespace] do |t, args|
+        require_relative 'scaffold'
+        Scaffold.custom_widget_gem(args[:name], args[:namespace])
+      end
+    
+      task :cw, [:name, :namespace] => :customwidget
+      task :custom_widget, [:name, :namespace] => :customwidget
+      task :"custom-widget", [:name, :namespace] => :customwidget      
     end
+    
+    # legacy support
+    
+    task :custom_shell_gem, [:name, :namespace] => 'gem:customshell'
+    task :custom_widget_gem, [:name, :namespace] => 'gem:customwidget'
+    
   end
   
   namespace :list do
     task :list_require do
       require_relative 'rake_task/list'
     end
-  
-    desc 'List Glimmer custom widget gems available at rubygems.org (query is optional)'
-    task :custom_widget_gems, [:query] => :list_require do |t, args|
-      Glimmer::RakeTask::List.custom_widget_gems(args[:query])
-    end
     
-    desc 'List Glimmer custom shell gems available at rubygems.org (query is optional)'
-    task :custom_shell_gems, [:query] => :list_require do |t, args|
-      Glimmer::RakeTask::List.custom_shell_gems(args[:query])
-    end
+    namespace :gems do
+      desc 'List Glimmer custom widget gems available at rubygems.org (query is optional) [alt: list:gems:cw]'
+      task :customwidget, [:query] => :list_require do |t, args|
+        Glimmer::RakeTask::List.custom_widget_gems(args[:query])
+      end
+      
+      task :cw, [:query] => :customwidget
+      task :custom_widget, [:query] => :customwidget
+      task :"custom-widget", [:query] => :customwidget
+      
+      desc 'List Glimmer custom shell gems available at rubygems.org (query is optional) [alt: list:gems:cs]'
+      task :customshell, [:query] => :list_require do |t, args|
+        Glimmer::RakeTask::List.custom_shell_gems(args[:query])
+      end
+      
+      task :cs, [:query] => :customshell
+      task :custom_shell, [:query] => :customshell
+      task :"custom-shell", [:query] => :customshell
+      
+      desc 'List Glimmer DSL gems available at rubygems.org (query is optional)'
+      task :dsl, [:query] => :list_require do |t, args|
+        Glimmer::RakeTask::List.dsl_gems(args[:query])
+      end
     
-    desc 'List Glimmer DSL gems available at rubygems.org (query is optional)'
-    task :dsl_gems, [:query] => :list_require do |t, args|
-      Glimmer::RakeTask::List.dsl_gems(args[:query])
     end
     
+    # legacy support
+    
+    task :custom_shell_gems, [:name, :namespace] => 'gems:customshell'
+    task :custom_widget_gems, [:name, :namespace] => 'gems:customwidget'    
+    
   end
 end

data/lib/glimmer/scaffold.rb

@@ -485,12 +485,10 @@ class Scaffold
         custom_shell_file_content += <<-MULTI_LINE_STRING
 
     def display_about_dialog
-      message_box = MessageBox.new(swt_widget)
-      message_box.setText("About")
-      message = "#{human_name(namespace)} - #{human_name(custom_shell_name)} \#{VERSION}\n\n"
-      message += LICENSE
-      message_box.setMessage(message)
-      message_box.open
+      message_box(body_root) {
+        text 'About'
+        message "#{human_name(namespace)} - #{human_name(custom_shell_name)} \#{VERSION}\\n\\n\#{LICENSE}"
+      }.open
     end
     
     def display_preferences_dialog

data/lib/glimmer/swt/color_proxy.rb

@@ -48,6 +48,17 @@ module Glimmer
         end
         @swt_color
       end
+      
+      def method_missing(method, *args, &block)
+        swt_color.send(method, *args, &block)
+      rescue => e
+        Glimmer::Config.logger.debug {"Neither ColorProxy nor #{swt_color.class.name} can handle the method ##{method}"}
+        super
+      end
+      
+      def respond_to?(method, *args, &block)
+        super || swt_color.respond_to?(method, *args, &block)
+      end      
     end
   end
 end