glimmer-dsl-opal 0.0.1 → 0.0.2

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

@@ -1,6 +1,6 @@
 require 'glimmer/dsl/static_expression'
 require 'glimmer/dsl/parent_expression'
-require 'glimmer/opal/label'
+require 'glimmer/opal/label_proxy'
 
 module Glimmer
   module DSL
@@ -9,7 +9,7 @@ module Glimmer
         include ParentExpression
 
         def interpret(parent, keyword, *args, &block)
-          Glimmer::Opal::Label.new(parent, args)
+          Glimmer::Opal::LabelProxy.new(parent, args)
         end
       end
     end

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

@@ -7,7 +7,7 @@ module Glimmer
         include TopLevelExpression
 
         def can_interpret?(parent, keyword, *args, &block)          
-          keyword.to_s == 'text'
+          parent and keyword and block.nil?
         end
 
         def interpret(parent, keyword, *args, &block)

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

@@ -1,7 +1,7 @@
 require 'glimmer/dsl/static_expression'
 require 'glimmer/dsl/top_level_expression'
 require 'glimmer/dsl/parent_expression'
-require 'glimmer/opal/shell'
+require 'glimmer/opal/document_proxy'
 
 module Glimmer
   module DSL
@@ -11,7 +11,7 @@ module Glimmer
         include ParentExpression
 
         def interpret(parent, keyword, *args, &block)
-          Glimmer::Opal::Shell.new(args)
+          Glimmer::Opal::DocumentProxy.new(args)
         end
       end
     end

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

@@ -0,0 +1,18 @@
+require 'glimmer/dsl/expression'
+
+module Glimmer
+  module DSL
+    module Opal
+      class WidgetListenerExpression < Expression
+
+        def can_interpret?(parent, keyword, *args, &block)          
+          keyword.start_with?('on_') and args.empty? and block_given?
+        end
+
+        def interpret(parent, keyword, *args, &block)
+          parent.handle_observation_request(keyword, &block)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/opal/div_proxy.rb

@@ -0,0 +1,14 @@
+require 'glimmer/opal/element_proxy'
+
+module Glimmer
+  module Opal
+    class DivProxy < ElementProxy
+      def dom
+        div_id = id
+        @dom ||= DOM {
+          div(id: div_id, class: 'grid_layout')
+        }
+      end
+    end
+  end
+end

data/lib/glimmer/opal/{shell.rb → document_proxy.rb}

@@ -1,10 +1,15 @@
+require 'glimmer/opal/element_proxy'
+
 module Glimmer
   module Opal
-    class Shell
+    class DocumentProxy < ElementProxy
+      # TODO consider renaming to ShellProxy to match SWT API
+    
       def initialize(args)
         @args = args
         @children = []
         $document.ready do
+          $document.head.replace(head_dom)
           $document.body.replace(dom)
         end
       end      
@@ -17,10 +22,19 @@ module Glimmer
         $document.title = value
       end
 
-      def add_child(child)
-        return if @children.include?(child)
-        @children << child
-        dom << child.dom
+      def head_dom
+        @head_dom ||= DOM {
+          head {
+            <<~CSS
+            <style>
+              div.grid_layout > * {
+                display: block;
+                margin-bottom: 10px;
+              }
+            </style>
+            CSS
+          }
+        }
       end
 
       def dom

data/lib/glimmer/opal/element_proxy.rb

@@ -0,0 +1,52 @@
+module Glimmer
+  module Opal
+    class ElementProxy
+      attr_reader :parent, :args
+      
+      def initialize(parent, args)
+        @parent = parent
+        @args = args
+        @children = []
+        @parent.add_child(self)
+      end
+
+      def add_child(child)
+        return if @children.include?(child)
+        @children << child
+        dom << child.dom
+      end
+
+      def redraw
+        old_dom = @dom
+        @dom = nil
+        old_dom.replace dom
+      end
+      
+      # Subclasses must override with their own mappings
+      def observation_request_to_event_mapping
+        {}
+      end
+      
+      def name
+        self.class.name.split('::').last.underscore.sub(/_proxy$/, '')
+      end
+      
+      def id
+        "#{name}-#{hash}"
+      end
+      
+      # Subclasses can override with their own selector
+      def selector
+        "#{name}##{id}"
+      end
+      
+      def handle_observation_request(keyword, &event_listener)
+        event = observation_request_to_event_mapping[keyword][:event]
+        event_handler = observation_request_to_event_mapping[keyword][:event_handler]
+        event_listener = event_handler&.call(event_listener) || event_listener
+        delegate = $document.on(event, selector, &event_listener)
+        EventListenerProxy.new(element_proxy: self, event: event, selector: selector, delegate: delegate)
+      end         
+    end
+  end
+end

data/lib/glimmer/opal/event_listener_proxy.rb

@@ -0,0 +1,18 @@
+module Glimmer
+  module Opal
+    class EventListenerProxy
+      attr_reader :element_proxy, :event, :selector, :delegate
+
+      def initialize(element_proxy:, event:, selector:, delegate:)
+        @element_proxy = element_proxy
+        @event = event
+        @selector = selector
+        @delegate = delegate
+      end
+      
+      def unregister
+        $document.off(@delegate)
+      end
+    end
+  end
+end

data/lib/glimmer/opal/input_proxy.rb

@@ -0,0 +1,30 @@
+require 'glimmer/opal/element_proxy'
+
+module Glimmer
+  module Opal
+    class InputProxy < ElementProxy
+      attr_reader :text
+      
+      def text=(value)
+        @text = value
+        redraw
+      end
+
+      def observation_request_to_event_mapping
+        {
+          'on_widget_selected' => {
+            event: 'click'
+          }
+        }
+      end
+      
+      def dom
+        input_text = @text
+        input_id = id
+        @dom ||= DOM {
+          input id: input_id, type: 'button', value: input_text
+        }
+      end
+    end
+  end
+end

data/lib/glimmer/opal/label_proxy.rb

@@ -0,0 +1,24 @@
+require 'glimmer/opal/element_proxy'
+
+module Glimmer
+  module Opal
+    class LabelProxy < ElementProxy
+      attr_reader :text
+
+      def text=(value)
+        @text = value
+        redraw
+      end
+
+      def dom
+        label_text = @text
+        label_id = id
+        @dom ||= DOM {
+          label(id: label_id) {
+            label_text
+          }
+        }
+      end
+    end
+  end
+end

data/lib/glimmer/opal/select_proxy.rb

@@ -0,0 +1,58 @@
+require 'glimmer/data_binding/observable_element'
+require 'glimmer/opal/event_listener_proxy'
+require 'glimmer/opal/element_proxy'
+
+module Glimmer
+  module Opal
+    class SelectProxy < ElementProxy
+      include Glimmer::DataBinding::ObservableElement
+      attr_reader :text, :items
+      
+      def initialize(parent, args)
+        super(parent, args)
+        @items = []
+      end
+      
+      def text=(value)
+        @text = value
+        redraw
+      end
+      
+      def items=(the_items)
+        @items = the_items
+        redraw
+      end
+
+      def observation_request_to_event_mapping
+        {
+          'on_widget_selected' => {
+            event: 'change',
+            event_handler: -> (event_listener) {
+              -> (event) {
+                @text = event.target.value
+                event_listener.call(event)              
+              }
+            }
+          }
+        }
+      end
+      
+      def dom
+        select_text = @text        
+        items = @items
+        select_id = id
+        @dom ||= DOM {
+          select(id: select_id) {
+            items.to_a.each do |item|
+              option_hash = {value: item}
+              option_hash[:selected] = 'selected' if select_text == item
+              option(option_hash) {
+                item
+              } 
+            end
+          }
+        }
+      end
+    end
+  end
+end

data/lib/samples/elaborate/contact_manager.rb

@@ -0,0 +1,95 @@
+require_relative "contact_manager/contact_manager_presenter"
+
+class ContactManager
+  include Glimmer
+
+  def initialize
+    @contact_manager_presenter = ContactManagerPresenter.new
+    @contact_manager_presenter.list
+  end
+
+  def launch
+    shell {
+      text "Contact Manager"
+      composite {
+        composite {
+          grid_layout 2, false
+          label {text "First &Name: "}
+          text {
+            text bind(@contact_manager_presenter, :first_name)
+            on_key_pressed {|key_event|
+              @contact_manager_presenter.find if key_event.keyCode == Glimmer::SWT::SWTProxy[:cr]
+            }
+          }
+          label {text "&Last Name: "}
+          text {
+            text bind(@contact_manager_presenter, :last_name)
+            on_key_pressed {|key_event|
+              @contact_manager_presenter.find if key_event.keyCode == Glimmer::SWT::SWTProxy[:cr]
+            }
+          }
+          label {text "&Email: "}
+          text {
+            text bind(@contact_manager_presenter, :email)
+            on_key_pressed {|key_event|
+              @contact_manager_presenter.find if key_event.keyCode == Glimmer::SWT::SWTProxy[:cr]
+            }
+          }
+          composite {
+            grid_layout 2, false
+            button {
+              text "&Find"
+              on_widget_selected {
+                @contact_manager_presenter.find
+              }
+            }
+            button {
+              text "&List All"
+              on_widget_selected {
+                @contact_manager_presenter.list
+              }
+            }
+          }
+        }
+
+        table(:multi) { |table_proxy|
+          layout_data {
+            horizontal_alignment :fill
+            vertical_alignment :fill
+            grab_excess_horizontal_space true
+            grab_excess_vertical_space true
+            height_hint 200
+          }
+          table_column {
+            text "First Name"
+            width 80
+            on_widget_selected {
+              @contact_manager_presenter.toggle_sort(:first_name)
+            }
+          }
+          table_column {
+            text "Last Name"
+            width 80
+            on_widget_selected {
+              @contact_manager_presenter.toggle_sort(:last_name)
+            }
+          }
+          table_column {
+            text "Email"
+            width 200
+            on_widget_selected {
+              @contact_manager_presenter.toggle_sort(:email)
+            }
+          }
+          items bind(@contact_manager_presenter, :results),
+          column_properties(:first_name, :last_name, :email)
+          on_mouse_down { |event|
+            table_proxy.edit_table_item(event.table_item, event.column_index)
+          }
+        }
+      }
+    }.open
+  end
+end
+
+ContactManager.new.launch

data/lib/samples/elaborate/contact_manager/contact.rb

@@ -0,0 +1,11 @@
+class ContactManager
+  class Contact
+    attr_accessor :first_name, :last_name, :email
+  
+    def initialize(attribute_map)
+      @first_name = attribute_map[:first_name]
+      @last_name = attribute_map[:last_name]
+      @email = attribute_map[:email]
+    end
+  end
+end

data/lib/samples/elaborate/contact_manager/contact_manager_presenter.rb

@@ -0,0 +1,36 @@
+require_relative "contact_repository"
+
+class ContactManager
+  class ContactManagerPresenter
+    attr_accessor :results
+    @@contact_attributes = [:first_name, :last_name, :email]
+    @@contact_attributes.each {|attribute_name| attr_accessor attribute_name}
+  
+    def initialize(contact_repository = nil)
+      @contact_repository = contact_repository || ContactRepository.new
+      @results = []
+    end
+  
+    def list
+      self.results = @contact_repository.find({})
+    end
+  
+    def find
+      filter_map = {}
+      @@contact_attributes.each do |attribute_name|
+        filter_map[attribute_name] = self.send(attribute_name) if self.send(attribute_name)
+      end
+      self.results = @contact_repository.find(filter_map)
+      @sort_attribute_name = nil
+      @sort_direction_ascending = nil
+    end
+  
+    def toggle_sort(attribute_name)
+      @sort_attribute_name = attribute_name
+      @sort_direction_ascending = !@sort_direction_ascending
+      sorted_results = self.results.sort_by {|contact| contact.send(attribute_name).downcase}
+      sorted_results = sorted_results.reverse unless @sort_direction_ascending
+      self.results = sorted_results
+    end
+  end
+end