glimmer 0.8.2 → 0.9.4

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

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

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

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

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

@@ -1,23 +0,0 @@
-require 'glimmer/dsl/xml/node_parent_expression'
-require 'glimmer/dsl/xml/xml_expression'
-require 'glimmer/dsl/static_expression'
-
-module Glimmer
-  module DSL
-    module XML
-      # This static html expression flips the DSL switch on for 
-      # XML DSL in Glimmer
-      class MetaExpression < StaticExpression
-        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

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

@@ -1,37 +0,0 @@
-require 'glimmer/dsl/static_expression'
-require 'glimmer/dsl/top_level_expression'
-require 'glimmer/xml/node'
-require 'glimmer/xml/depth_first_search_iterator'
-require 'glimmer/xml/name_space_visitor'
-
-module Glimmer
-  module DSL
-    module XML
-      class NameSpaceExpression < StaticExpression
-        include TopLevelExpression
-
-        def can_interpret?(parent, keyword, *args, &block)
-          (parent == nil or parent.is_a?(Glimmer::XML::Node)) and
-          (keyword.to_s == "name_space")
-          (args.size == 1) and
-          (args[0].is_a?(Symbol)) and
-          block
-        end
-
-        def interpret(parent, keyword, *args, &block)
-          node = block.call
-          unless node.is_a?(String)
-            name_space_visitor = Glimmer::XML::NameSpaceVisitor.new(args[0].to_s)
-            Glimmer::XML::DepthFirstSearchIterator.new(node, name_space_visitor).iterate
-            def node.process_block(block)
-              Glimmer::Config.logger&.debug 'block'
-              #NOOP
-            end
-          end
-          parent.children << node if parent and !parent.children.include?(node)
-          node
-        end
-      end
-    end
-  end
-end

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

@@ -1,33 +0,0 @@
-require 'glimmer'
-require 'glimmer/dsl/parent_expression'
-require 'glimmer/xml/node'
-
-module Glimmer
-  module DSL
-    module XML
-      module NodeParentExpression
-        include ParentExpression
-        include Glimmer
-
-        def add_content(parent, &block)
-          return_value = block.call(parent)      
-          if !return_value.is_a?(Glimmer::XML::Node) and !parent.children.include?(return_value)
-            text = return_value.to_s
-            first_match = text.match(/[#][^{]+[{][^}]+[}]/)
-            match = first_match
-            while (match)
-              instance_eval(parent.text_command(match.pre_match))
-              tag_text = match.to_s
-              instance_eval(parent.rubyize(tag_text))
-              text = tag_text
-              post_match = match.post_match
-              match = text.match(/[#]\w+[{]\w+[}]/)
-            end
-            instance_eval(parent.text_command(post_match)) if post_match
-            parent.children << return_value unless first_match
-          end
-        end
-      end
-    end
-  end
-end