glimmer-dsl-swt 0.1.0

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

@@ -0,0 +1,27 @@
+require 'glimmer'
+require 'glimmer/dsl/expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/swt/layout_proxy'
+
+module Glimmer
+  module DSL
+    module SWT
+      class LayoutExpression < Expression
+        include ParentExpression
+  
+        include_package 'org.eclipse.swt.widgets'
+  
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword.to_s.end_with?('_layout') and
+            parent.respond_to?(:swt_widget) and
+            parent.swt_widget.is_a?(Composite) and
+            Glimmer::SWT::LayoutProxy.layout_exists?(keyword.to_s)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::SWT::LayoutProxy.new(keyword, parent, args)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,44 @@
+require 'glimmer/dsl/expression'
+require 'glimmer/data_binding/model_binding'
+require 'glimmer/data_binding/widget_binding'
+require 'glimmer/data_binding/list_selection_binding'
+
+module Glimmer
+  module DSL
+    module SWT
+      class ListSelectionDataBindingExpression < Expression
+        include_package 'org.eclipse.swt.widgets'
+  
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword == 'selection' and
+            block.nil? and
+            parent.respond_to?(:swt_widget) and
+            parent.swt_widget.is_a?(List) and
+            args.size == 1 and
+            args[0].is_a?(DataBinding::ModelBinding) and
+            args[0].evaluate_options_property.is_a?(Array)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          model_binding = args[0]
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'items')
+          widget_binding.call(model_binding.evaluate_options_property)
+          model = model_binding.base_model
+          #TODO make this options observer dependent and all similar observers in widget specific data binding interpretrs
+          widget_binding.observe(model, model_binding.options_property_name)
+  
+          property_type = :string
+          property_type = :array if parent.has_style?(:multi)
+          list_selection_binding = DataBinding::ListSelectionBinding.new(parent, property_type)
+          list_selection_binding.call(model_binding.evaluate_property)
+          #TODO check if nested data binding works for list widget and other widgets that need custom data binding
+          list_selection_binding.observe(model, model_binding.property_name_expression)
+  
+          parent.on_widget_selected do
+            model_binding.call(list_selection_binding.evaluate_property)
+          end
+        end
+      end
+    end
+  end
+end

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 parent.respond_to?(:swt_widget)
+              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

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

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

@@ -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 parent.respond_to?(:swt_widget)
+          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

@@ -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
+            parent.respond_to?(:swt_widget) 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 parent.respond_to?(:swt_widget) 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
+            parent.respond_to?(:swt_widget) and
+            parent.swt_widget.is_a?(Tree)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          args
+        end
+      end
+    end
+  end
+end