glimmer 0.8.2 → 0.9.0

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

@@ -1,33 +0,0 @@
-require 'glimmer'
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/parent_expression'
-require 'glimmer/swt/menu_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class MenuBarExpression < StaticExpression
-        include ParentExpression
-  
-        include_package 'org.eclipse.swt.widgets'
-  
-        def can_interpret?(parent, keyword, *args, &block)
-          initial_condition = (keyword == 'menu_bar')
-          if initial_condition
-            if parent.swt_widget.is_a?(Shell)
-              return true
-            else
-              raise Glimmer::Error, "menu_bar may only be nested under a shell!"
-            end
-          end
-          false
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          args = args.unshift(:bar)
-          Glimmer::SWT::MenuProxy.new(parent, args)
-        end
-      end
-    end
-  end
-end

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

@@ -1,32 +0,0 @@
-require 'glimmer'
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/parent_expression'
-require 'glimmer/swt/menu_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class MenuExpression < StaticExpression
-        include ParentExpression
-  
-        include_package 'org.eclipse.swt.widgets'
-  
-        def can_interpret?(parent, keyword, *args, &block)
-          initial_condition = (keyword == 'menu')
-          if initial_condition
-            if widget?(parent)
-              return true
-            else
-              raise Glimmer::Error, "menu may only be nested under a widget (like shell or another menu)!"
-            end
-          end
-          false
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          Glimmer::SWT::MenuProxy.new(parent, args)
-        end
-      end
-    end
-  end
-end

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

@@ -1,29 +0,0 @@
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/parent_expression'
-require 'glimmer/dsl/top_level_expression'
-require 'glimmer/swt/shell_proxy'
-require 'glimmer/swt/message_box_proxy'
-require 'glimmer/swt/swt_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class MessageBoxExpression < StaticExpression
-        include TopLevelExpression
-        include ParentExpression
-
-        include_package 'org.eclipse.swt.widgets'
-
-        def can_interpret?(parent, keyword, *args, &block)
-          keyword == 'message_box'
-        end
-
-        def interpret(parent, keyword, *args, &block)
-          potential_parent = args.first
-          parent = args.shift if potential_parent.is_a?(Shell) || (potential_parent.respond_to?(:swt_widget) && potential_parent.swt_widget.is_a?(Shell))
-          Glimmer::SWT::MessageBoxProxy.new(parent, Glimmer::SWT::SWTProxy[args])
-        end
-      end
-    end
-  end
-end

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

@@ -1,32 +0,0 @@
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/top_level_expression'
-require 'glimmer/data_binding/observer'
-require 'glimmer/data_binding/model_binding'
-
-module Glimmer
-  module DSL
-    module SWT
-      class ObserveExpression < StaticExpression
-        include TopLevelExpression
-
-        REGEX_NESTED_OR_INDEXED_PROPERTY = /([^\[]+)(\[[^\]]+\])?/
-  
-        def can_interpret?(parent, keyword, *args, &block)
-          keyword == 'observe' and
-            block_given? and
-            (args.size == 2) and
-            textual?(args[1])
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          observer = DataBinding::Observer.proc(&block)
-          if args[1].to_s.match(REGEX_NESTED_OR_INDEXED_PROPERTY)
-            observer.observe(DataBinding::ModelBinding.new(args[0], args[1]))
-          else
-            observer.observe(args[0], args[1])
-          end
-        end
-      end
-    end
-  end
-end

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

@@ -1,22 +0,0 @@
-require 'glimmer/dsl/expression'
-
-module Glimmer
-  module DSL
-    module SWT
-      class PropertyExpression < Expression
-        def can_interpret?(parent, keyword, *args, &block)
-          block.nil? and
-            args.size > 0 and
-            parent.respond_to?(:set_attribute) and
-            parent.respond_to?(:has_attribute?) and
-            parent.has_attribute?(keyword, *args)
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          parent.set_attribute(keyword, *args)
-          nil
-        end
-      end
-    end
-  end
-end

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

@@ -1,12 +0,0 @@
-require 'glimmer/dsl/swt/color_expression'
-require 'glimmer/swt/color_proxy'
-require 'glimmer/swt/display_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class RgbExpression < ColorExpression
-      end
-    end
-  end
-end

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

@@ -1,12 +0,0 @@
-require 'glimmer/dsl/swt/color_expression'
-require 'glimmer/swt/color_proxy'
-require 'glimmer/swt/display_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class RgbaExpression < ColorExpression
-      end
-    end
-  end
-end

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

@@ -1,25 +0,0 @@
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/parent_expression'
-require 'glimmer/dsl/top_level_expression'
-require 'glimmer/swt/shell_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class ShellExpression < StaticExpression
-        include TopLevelExpression
-        include ParentExpression
-
-        def can_interpret?(parent, keyword, *args, &block)
-          keyword == 'shell' and
-            (parent.nil? or parent.is_a?(Glimmer::SWT::ShellProxy))
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          args = [parent] + args unless parent.nil?
-          Glimmer::SWT::ShellProxy.send(:new, *args)
-        end
-      end
-    end
-  end
-end

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

@@ -1,25 +0,0 @@
-require 'glimmer/dsl/static_expression'
-require 'glimmer/swt/swt_proxy'
-
-# TODO consider turning static keywords like bind into methods
-
-module Glimmer
-  module DSL
-    module SWT
-      # Responsible for returning SWT constant values
-      #
-      # Named SwtExpression (not SWTExpression) so that the DSL engine
-      # discovers quickly by convention
-      class SwtExpression < StaticExpression
-        def can_interpret?(parent, keyword, *args, &block)
-          block.nil? &&
-            args.size > 0
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          Glimmer::SWT::SWTProxy[*args]
-        end
-      end
-    end
-  end
-end

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

@@ -1,15 +0,0 @@
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/swt/exec_expression'
-
-module Glimmer
-  module DSL
-    module SWT
-      # Synchronously executes code block against the SWT Event Loop
-      # to manipulate SWT UI objects on the UI thread safely with
-      # immediate priority when needed.
-      class SyncExecExpression < StaticExpression
-        include ExecExpression
-      end
-    end
-  end
-end

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

@@ -1,33 +0,0 @@
-require 'glimmer'
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/parent_expression'
-require 'glimmer/swt/widget_proxy'
-require 'glimmer/swt/tab_item_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class TabItemExpression < StaticExpression
-        include ParentExpression
-  
-        include_package 'org.eclipse.swt.widgets'
-  
-        def can_interpret?(parent, keyword, *args, &block)
-          initial_condition = (keyword == 'tab_item') and widget?(parent)
-          if initial_condition
-            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!"
-            end
-          end
-          false
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          Glimmer::SWT::TabItemProxy.new(parent, args)
-        end
-      end
-    end
-  end
-end

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

@@ -1,31 +0,0 @@
-require 'glimmer/dsl/expression'
-require 'glimmer/data_binding/model_binding'
-require 'glimmer/data_binding/table_items_binding'
-
-module Glimmer
-  module DSL
-    module SWT
-      #Depends on BindCommandHandler and TableColumnPropertiesDataBindingCommandHandler
-      class TableItemsDataBindingExpression < Expression
-        include_package 'org.eclipse.swt.widgets'
-  
-        def can_interpret?(parent, keyword, *args, &block)
-          keyword == "items" and
-            block.nil? and
-            widget?(parent) and
-            parent.swt_widget.is_a?(Table) and
-            args.size == 2 and
-            args[0].is_a?(DataBinding::ModelBinding) and
-            args[0].evaluate_property.is_a?(Array) and
-            args[1].is_a?(Array)
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          model_binding = args[0]
-          column_properties = args[1]
-          DataBinding::TableItemsBinding.new(parent, model_binding, column_properties)
-        end
-      end
-    end
-  end
-end

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

@@ -1,31 +0,0 @@
-require 'glimmer/dsl/expression'
-require 'glimmer/data_binding/model_binding'
-require 'glimmer/data_binding/tree_items_binding'
-
-module Glimmer
-  module DSL
-    module SWT
-      class TreeItemsDataBindingExpression < Expression
-        include_package 'org.eclipse.swt.widgets'
-  
-        def can_interpret?(parent, keyword, *args, &block)
-          initial_condition = ((keyword == "items") and block.nil? and widget?(parent) and parent.swt_widget.is_a?(Tree))
-          return false unless initial_condition
-          raise Glimmer::Error, 'Tree items args must be 2' unless args.size == 2
-          raise Glimmer::Error, 'Tree items first arg must be a bind expression' unless args[0].is_a?(DataBinding::ModelBinding)
-          raise Glimmer::Error, 'Tree items data-binding initial value must not be an array yet a single item representing tree root' unless !args[0].evaluate_property.is_a?(Array)
-          raise Glimmer::Error, 'Tree items second arg must be an array' unless args[1].is_a?(Array)
-          raise Glimmer::Error, 'Tree items second arg must not be empty' unless !args[1].empty?
-          raise Glimmer::Error, 'Tree items second arg array elements must be of type hash' unless args[1].first.is_a?(Hash)
-          true
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          model_binding = args[0]
-          tree_properties = args[1]
-          DataBinding::TreeItemsBinding.new(parent, model_binding, tree_properties)
-        end
-      end
-    end
-  end
-end

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

@@ -1,26 +0,0 @@
-require 'glimmer/dsl/static_expression'
-require 'glimmer/data_binding/model_binding'
-require 'glimmer/data_binding/tree_items_binding'
-
-module Glimmer
-  module DSL
-    module SWT
-      # Responsible for providing a readable keyword (command symbol) to capture
-      # and return tree properties for use in TreeItemsDataBindingCommandHandler
-      class TreePropertiesExpression < StaticExpression
-        include_package 'org.eclipse.swt.widgets'
-  
-        def can_interpret?(parent, keyword, *args, &block)
-          keyword == "tree_properties" and
-            block.nil? and
-            widget?(parent) and
-            parent.swt_widget.is_a?(Tree)
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          args
-        end
-      end
-    end
-  end
-end

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

@@ -1,35 +0,0 @@
-require 'glimmer'
-require 'glimmer/dsl/expression'
-require 'glimmer/dsl/parent_expression'
-
-module Glimmer
-  module DSL
-    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
-            widget?(parent) and #TODO change to composite?(parent)
-            Glimmer::SWT::WidgetProxy.widget_exists?(keyword)
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          begin
-            class_name = "#{keyword.camelcase(:upper)}Proxy".to_sym
-            widget_class = Glimmer::SWT.const_get(class_name)
-          rescue
-            widget_class = Glimmer::SWT::WidgetProxy
-          end
-          widget_class.new(keyword, parent, args)
-        end
-      end
-    end
-  end
-end
-
-require 'glimmer/swt/widget_proxy'
-require 'glimmer/swt/tree_proxy'
-require 'glimmer/swt/table_proxy'

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

@@ -1,32 +0,0 @@
-require 'glimmer/dsl/expression'
-require 'glimmer/swt/display_proxy'
-
-module Glimmer
-  module DSL
-    module SWT
-      class WidgetListenerExpression < Expression
-        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_')}"
-          return false unless keyword.start_with?('on_')
-          widget_or_display_parentage = widget?(parent) || parent.is_a?(Glimmer::SWT::DisplayProxy)
-          Glimmer::Config.logger&.debug "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?}"
-          raise Glimmer::Error, "Listener is missing block for keyword: #{keyword}" unless block_given?
-          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}"
-          raise Glimmer::Error, "Invalid listener keyword: #{keyword}" unless result
-          true
-        end
-  
-        def interpret(parent, keyword, *args, &block)
-          parent.handle_observation_request(keyword, &block)
-        end
-      end
-    end
-  end
-end