glimmer-dsl-opal 0.0.3 → 0.0.8

data/VERSION

@@ -1 +1 @@
-0.0.3
+0.0.8

data/lib/glimmer-dsl-opal.rb

@@ -1,5 +1,7 @@
 require 'opal'
-require 'opal-parser'
+require 'opal-async'
+require 'browser'
+require 'browser/effects'
 require 'glimmer'
 
 GLIMMER_DSL_OPAL_ROOT = File.expand_path('../..', __FILE__)
@@ -7,4 +9,5 @@ GLIMMER_DSL_OPAL_LIB = File.join(GLIMMER_DSL_OPAL_ROOT, 'lib')
 
 $LOAD_PATH.unshift(GLIMMER_DSL_OPAL_LIB)
 
-require 'glimmer/dsl/opal/dsl' 
+require 'glimmer/dsl/opal/dsl'
+require 'glimmer/data_binding/ext/observable_model'

data/lib/glimmer/data_binding/ext/observable_model.rb

@@ -0,0 +1,40 @@
+require 'glimmer/data_binding/observable'
+require 'glimmer/data_binding/observer'
+require 'glimmer/opal/display_proxy'
+
+# This ensures all data-binding events happen async and block on modal display
+
+module Glimmer
+  module DataBinding
+    # TODO prefix utility methods with double-underscore
+    module ObservableModel
+      include Observable
+#       include Glimmer
+
+      def add_property_writer_observers(property_name)
+        property_writer_name = "#{property_name}="
+        method(property_writer_name)
+        ensure_array_object_observer(property_name, send(property_name))
+        begin
+          method("__original_#{property_writer_name}")
+        rescue
+          old_method = self.class.instance_method(property_writer_name)
+          define_singleton_method("__original_#{property_writer_name}", old_method)
+          define_singleton_method(property_writer_name) do |value|
+            old_value = self.send(property_name)
+            unregister_dependent_observers(property_name, old_value)
+            self.send("__original_#{property_writer_name}", value)
+            Glimmer::Opal::DisplayProxy.instance.async_exec do
+              notify_observers(property_name)
+              ensure_array_object_observer(property_name, value, old_value)
+            end
+          end
+        end
+      rescue => e
+        # ignore writing if no property writer exists
+        Glimmer::Config.logger&.debug "No need to observe property writer: #{property_writer_name}\n#{e.message}\n#{e.backtrace.join("\n")}"
+      end
+      
+    end
+  end
+end

data/lib/glimmer/data_binding/list_selection_binding.rb

@@ -0,0 +1,51 @@
+require 'glimmer/data_binding/observable'
+require 'glimmer/data_binding/observer'
+
+module Glimmer
+  module DataBinding
+    # SWT List element selection binding
+    class ListSelectionBinding
+      include Glimmer
+      include Observable
+      include Observer
+
+      attr_reader :element_proxy
+
+      PROPERTY_TYPE_UPDATERS = {
+        :string => lambda { |element_proxy, value| element_proxy.select(element_proxy.index_of(value.to_s)) },
+        :array => lambda { |element_proxy, value| element_proxy.selection=(value || []) }
+      }
+
+      PROPERTY_EVALUATORS = {
+        :string => lambda do |selection_array|
+          return nil if selection_array.empty?
+          selection_array[0]
+        end,
+        :array => lambda do |selection_array|
+          selection_array
+        end
+      }
+
+      # Initialize with list element and property_type
+      # property_type :string represents default list single selection
+      # property_type :array represents list multi selection
+      def initialize(element_proxy, property_type)
+        property_type = :string if property_type.nil? or property_type == :undefined
+        @element_proxy = element_proxy
+        @property_type = property_type
+        @element_proxy.on_widget_disposed do |dispose_event|
+          unregister_all_observables
+        end
+      end
+
+      def call(value)
+        PROPERTY_TYPE_UPDATERS[@property_type].call(@element_proxy, value) unless evaluate_property == value
+      end
+
+      def evaluate_property
+        selection_array = @element_proxy.selection.to_a #TODO refactor send('selection') into proper method invocation
+        PROPERTY_EVALUATORS[@property_type].call(selection_array)
+      end
+    end
+  end
+end

data/lib/glimmer/data_binding/table_items_binding.rb

@@ -0,0 +1,67 @@
+require 'glimmer/data_binding/observable_array'
+require 'glimmer/data_binding/observable_model'
+require 'glimmer/data_binding/observable'
+require 'glimmer/data_binding/observer'
+require 'glimmer/opal/table_proxy'
+require 'glimmer/opal/table_item'
+
+module Glimmer
+  module DataBinding
+    class TableItemsBinding
+      include DataBinding::Observable
+      include DataBinding::Observer
+
+      def initialize(parent, model_binding, column_properties)
+        @last_model_collection = nil
+        @table = parent
+        @model_binding = model_binding
+        @column_properties = column_properties
+        if @table.respond_to?(:column_properties=)
+          @table.column_properties = @column_properties
+        ##else # assume custom widget
+        ##  @table.body_root.column_properties = @column_properties
+        end
+        call(@model_binding.evaluate_property)
+        model = model_binding.base_model
+        observe(model, model_binding.property_name_expression)
+        ##@table.on_widget_disposed do |dispose_event| # doesn't seem needed within Opal
+        ##  unregister_all_observables
+        ##end
+      end
+
+      def call(new_model_collection=nil)
+        if new_model_collection and new_model_collection.is_a?(Array)
+          observe(new_model_collection, @column_properties)
+          @model_collection = new_model_collection
+        end
+        populate_table(@model_collection, @table, @column_properties)
+        sort_table(@model_collection, @table, @column_properties)
+      end
+      
+      def populate_table(model_collection, parent, column_properties)
+        return if model_collection&.sort_by(&:hash) == @last_model_collection&.sort_by(&:hash)
+        @last_model_collection = model_collection
+        # TODO improve performance
+        selected_table_item_models = parent.selection.map(&:get_data)
+        parent.remove_all
+        model_collection.each do |model|
+          table_item = Glimmer::Opal::TableItem.new(parent)
+          for index in 0..(column_properties.size-1)
+            table_item.set_text(index, model.send(column_properties[index]).to_s)
+          end
+          table_item.set_data(model)
+        end
+        selected_table_items = parent.search {|item| selected_table_item_models.include?(item.get_data) }
+        selected_table_items = [parent.items.first] if selected_table_items.empty? && !parent.items.empty?
+        parent.selection = selected_table_items unless selected_table_items.empty?
+        parent.redraw
+      end
+      
+      def sort_table(model_collection, parent, column_properties)
+        return if model_collection == @last_model_collection
+        parent.items = parent.items.sort_by { |item| model_collection.index(item.get_data) }
+        @last_model_collection = model_collection
+      end      
+    end
+  end
+end

data/lib/glimmer/dsl/opal/async_exec_expression.rb

@@ -0,0 +1,17 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/top_level_expression'
+require 'glimmer/opal/display_proxy'
+
+module Glimmer
+  module DSL
+    module Opal
+      class AsyncExecExpression < StaticExpression
+        include TopLevelExpression
+
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::Opal::DisplayProxy.instance.async_exec(&block)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/opal/browser_expression.rb

@@ -0,0 +1,17 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/opal/iframe_proxy'
+
+module Glimmer
+  module DSL
+    module Opal
+      class BrowserExpression < StaticExpression
+        include ParentExpression
+
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::Opal::IframeProxy.new(parent, args)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/opal/column_properties_expression.rb

@@ -0,0 +1,22 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/opal/table_proxy'
+
+module Glimmer
+  module DSL
+    module Opal
+      # Responsible for providing a readable keyword (command symbol) to capture
+      # and return column properties for use in TreeItemsDataBindingCommandHandler
+      class ColumnPropertiesExpression < StaticExpression
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword == 'column_properties' and
+            block.nil? and
+            parent.is_a?(Glimmer::Opal::TableProxy)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          args
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/opal/dsl.rb

@@ -15,7 +15,19 @@ require 'glimmer/dsl/opal/combo_selection_data_binding_expression'
 require 'glimmer/dsl/opal/widget_listener_expression'
 require 'glimmer/dsl/opal/grid_layout_expression'
 require 'glimmer/dsl/opal/text_expression'
+require 'glimmer/dsl/opal/list_expression'
+require 'glimmer/dsl/opal/browser_expression'
+require 'glimmer/dsl/opal/tab_folder_expression'
+require 'glimmer/dsl/opal/tab_item_expression'
+require 'glimmer/dsl/opal/message_box_expression'
+require 'glimmer/dsl/opal/async_exec_expression'
+require 'glimmer/dsl/opal/observe_expression'
 require 'glimmer/dsl/opal/layout_data_expression'
+require 'glimmer/dsl/opal/list_selection_data_binding_expression'
+require 'glimmer/dsl/opal/table_expression'
+require 'glimmer/dsl/opal/table_column_expression'
+require 'glimmer/dsl/opal/table_items_data_binding_expression'
+require 'glimmer/dsl/opal/column_properties_expression'
 
 module Glimmer
   module DSL
@@ -24,7 +36,9 @@ module Glimmer
        Opal,
        %w[
          widget_listener
+         table_items_data_binding
          combo_selection_data_binding
+         list_selection_data_binding
          data_binding
          text
          property

data/lib/glimmer/dsl/opal/list_expression.rb

@@ -0,0 +1,17 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/opal/list_proxy'
+
+module Glimmer
+  module DSL
+    module Opal
+      class ListExpression < StaticExpression
+        include ParentExpression
+
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::Opal::ListProxy.new(parent, args)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,42 @@
+require 'glimmer/dsl/expression'
+require 'glimmer/data_binding/model_binding'
+require 'glimmer/data_binding/element_binding'
+require 'glimmer/data_binding/list_selection_binding'
+require 'glimmer/opal/list_proxy'
+
+module Glimmer
+  module DSL
+    module Opal
+      class ListSelectionDataBindingExpression < Expression
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword == 'selection' and
+            block.nil? and
+            parent.is_a?(Glimmer::Opal::ListProxy) 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]
+          element_binding = DataBinding::ElementBinding.new(parent, 'items')
+          element_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
+          element_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/opal/message_box_expression.rb

@@ -0,0 +1,20 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/top_level_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/opal/modal'
+
+module Glimmer
+  module DSL
+    module Opal
+      class MessageBoxExpression < StaticExpression
+        include TopLevelExpression
+        include ParentExpression
+
+        def interpret(parent, keyword, *args, &block)
+          parent = args.delete_at(0)
+          Glimmer::Opal::Modal.new(parent, args)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/opal/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 Opal
+      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/opal/tab_folder_expression.rb

@@ -0,0 +1,17 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/opal/tab_folder'
+
+module Glimmer
+  module DSL
+    module Opal
+      class TabFolderExpression < StaticExpression
+        include ParentExpression
+        
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::Opal::TabFolder.new(parent, args)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,17 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/opal/tab_item'
+
+module Glimmer
+  module DSL
+    module Opal
+      class TabItemExpression < StaticExpression
+        include ParentExpression
+
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::Opal::TabItem.new(parent, args)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/opal/table_column_expression.rb

@@ -0,0 +1,17 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/parent_expression'
+require 'glimmer/opal/table_column'
+
+module Glimmer
+  module DSL
+    module Opal
+      class TableColumnExpression < StaticExpression
+        include ParentExpression
+
+        def interpret(parent, keyword, *args, &block)
+          Glimmer::Opal::TableColumn.new(parent, args)
+        end
+      end
+    end
+  end
+end