glimmer 0.5.11 → 0.6.0

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

@@ -0,0 +1,33 @@
+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

@@ -0,0 +1,32 @@
+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/observe_expression.rb

@@ -0,0 +1,32 @@
+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

@@ -0,0 +1,22 @@
+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

@@ -0,0 +1,12 @@
+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

@@ -0,0 +1,12 @@
+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

@@ -0,0 +1,20 @@
+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 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

@@ -0,0 +1,25 @@
+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

@@ -0,0 +1,15 @@
+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

@@ -0,0 +1,33 @@
+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.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

@@ -0,0 +1,31 @@
+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

@@ -0,0 +1,31 @@
+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

@@ -0,0 +1,26 @@
+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

@@ -0,0 +1,27 @@
+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)
+          Glimmer::SWT::WidgetProxy.new(keyword, parent, args)
+        end
+      end
+    end
+  end
+end
+
+require 'glimmer/swt/widget_proxy'

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

@@ -0,0 +1,32 @@
+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.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.logger&.debug "parent is a widget or display: #{widget_or_display_parentage}"
+          return false unless widget_or_display_parentage
+          Glimmer.logger&.debug "block exists?: #{!block.nil?}"
+          raise Glimmer::Error, "Listener is missing block for keyword: #{keyword}" unless block_given?
+          Glimmer.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.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

data/lib/glimmer/dsl/top_level_expression.rb

@@ -0,0 +1,7 @@
+module Glimmer
+  module DSL
+    # Mixin that represents expressions that are always at the top with parent nil
+    module TopLevelExpression
+    end
+  end
+end

data/lib/glimmer/dsl/xml/dsl.rb

@@ -0,0 +1,11 @@
+require 'glimmer/dsl/engine'
+Dir[File.expand_path('../*_expression.rb', __FILE__)].each {|f| require f}
+
+Glimmer::DSL::Engine.add_dynamic_expressions(
+  Glimmer::DSL::XML,
+  %w[
+    text
+    tag
+    xml
+  ]
+)

data/lib/glimmer/dsl/xml/html_expression.rb

@@ -0,0 +1,25 @@
+require 'glimmer/dsl/xml/node_parent_expression'
+require 'glimmer/dsl/xml/xml_expression'
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/top_level_expression'
+
+module Glimmer
+  module DSL
+    module XML
+      # This static html expression flips the DSL switch on for 
+      # XML DSL in Glimmer
+      class HtmlExpression < StaticExpression
+        include TopLevelExpression
+        include NodeParentExpression
+
+        def interpret(parent, keyword, *args, &block)
+          xml_expression.interpret(parent, keyword, *args, &block)
+        end
+
+        def xml_expression
+          @xml_expression ||= XmlExpression.new
+        end
+      end
+    end
+  end
+end