glimmer-dsl-opal 0.0.7 → 0.3.0

data/lib/glimmer/swt/swt_proxy.rb

@@ -0,0 +1,53 @@
+# Copyright (c) 2020 Andy Maleh
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/swt'
+require 'glimmer/swt/style_constantizable'
+
+module Glimmer
+  module SWT
+    # Proxy for org.eclipse.swt.SWT
+    #
+    # Follows the Proxy Design Pattern
+    class SWTProxy            
+      include StyleConstantizable      
+
+      class << self
+        def constant_source_class
+          SWT
+        end
+
+        def constant_value_none
+          SWT::NONE
+        end
+        
+        def extra_styles
+          EXTRA_STYLES
+        end
+      end
+      
+      EXTRA_STYLES = {
+        NO_RESIZE: self[:shell_trim, :resize!, :max!],
+        NO_SORT: -7,
+      }            
+    end
+  end
+end

data/lib/glimmer/{opal/tab_folder.rb → swt/tab_folder_proxy.rb}

@@ -1,8 +1,8 @@
-require 'glimmer/opal/div_proxy'
+require 'glimmer/swt/widget_proxy'
 
 module Glimmer
-  module Opal
-    class TabFolder < ElementProxy
+  module SWT
+    class TabFolderProxy < WidgetProxy      
       attr_reader :tabs
       
       def initialize(parent, args)
@@ -11,35 +11,41 @@ module Glimmer
       end
       
       def add_child(child)
-        super(child)
+        unless @children.include?(child)
+          @children << child 
+          tabs_dom_element.append(child.tab_dom)
+          child.render
+        end
+        
         if @children.size == 1
           child.show
         end
-      end      
+      end
       
       def hide_all_tab_content
         @children.each(&:hide)
       end
     
-      def name
-        'div'
+      def tabs_path
+        path + " > ##{tabs_id}"
+      end
+      
+      def tabs_id
+        id + '-tabs'
       end
       
-      def tabs_dom
-        tabs_id = id + '-tabs'
-        @tabs_dom ||= DOM {
-          div(id: tabs_id, class: 'tabs')
-        }
+      def tabs_dom_element
+        Document.find(tabs_path)
       end
       
       def dom
         tab_folder_id = id
         tab_folder_id_style = css
-        @dom ||= DOM {
+        @dom ||= html {
           div(id: tab_folder_id, style: tab_folder_id_style, class: 'tab-folder') {
-            
+            div(id: tabs_id, class: 'tabs')
           }
-        }.tap {|the_dom| the_dom << tabs_dom }
+        }.to_s
       end
     end
   end

data/lib/glimmer/swt/tab_item_proxy.rb

@@ -0,0 +1,84 @@
+require 'glimmer/swt/composite_proxy'
+
+module Glimmer
+  module SWT
+    class TabItemProxy < CompositeProxy
+      include Glimmer
+      attr_reader :text, :content_visible      
+      
+      def initialize(parent, args)
+        super(parent, args)
+        content {
+          on_widget_selected {
+            @parent.hide_all_tab_content
+            show
+          }
+        }
+      end
+      
+      def show
+        @content_visible = true
+        dom_element.remove_class('hide')
+        tab_dom_element.add_class('selected')
+      end
+      
+      def hide
+        @content_visible = false
+        dom_element.add_class('hide')
+        tab_dom_element.remove_class('selected')
+      end
+    
+      def text=(value)
+        @text = value
+        tab_dom_element.html(@text)
+      end
+    
+      def selector
+        super + '-tab'
+      end      
+      
+      def observation_request_to_event_mapping
+        {
+          'on_widget_selected' => {
+            event: 'click'
+          },
+        }
+      end
+      
+      def listener_path
+        tab_path
+      end      
+      
+      def tab_path
+        "#{parent.tabs_path} > ##{tab_id}"
+      end
+      
+      def tab_dom_element
+        Document.find(tab_path)
+      end
+      
+      def tab_id
+        id + '-tab'
+      end
+        
+      # This contains the clickable tab area with tab names
+      def tab_dom
+        @tab_dom ||= html {
+          button(id: tab_id, class: "tab") {
+            @text
+          }
+        }.to_s
+      end
+      
+      # This contains the tab content
+      def dom
+        tab_item_id = id        
+        tab_item_class_string = [name, 'hide'].join(' ')
+        @dom ||= html {
+          div(id: tab_item_id, class: tab_item_class_string) {
+          }
+        }.to_s
+      end      
+    end
+  end
+end

data/lib/glimmer/swt/table_column_proxy.rb

@@ -0,0 +1,56 @@
+require 'glimmer/swt/widget_proxy'
+
+module Glimmer
+  module SWT
+    class TableColumnProxy < WidgetProxy
+      include Glimmer
+      
+      attr_reader :text, :width      
+      
+      def text=(value)
+        @text = value
+        redraw
+      end
+    
+      def width=(value)
+        @width = value
+        redraw
+      end
+      
+      def parent_path
+        parent.columns_path
+      end
+      
+      def css
+        <<~CSS
+          width: #{width}px;
+        CSS
+      end
+    
+      def element
+        'th'
+      end
+      
+      def observation_request_to_event_mapping
+        {
+          'on_widget_selected' => {
+            event: 'click'
+          },
+        }
+      end      
+      
+      def dom
+        table_column_text = text
+        table_column_id = id
+        table_column_id_style = css
+        table_column_css_classes = css_classes
+        table_column_css_classes << name
+        @dom ||= html {
+          th(id: table_column_id, style: table_column_id_style, class: table_column_css_classes.to_a.join(' ')) {
+            table_column_text
+          }
+        }.to_s
+      end      
+    end
+  end
+end

data/lib/glimmer/swt/table_item_proxy.rb

@@ -0,0 +1,147 @@
+require 'glimmer/swt/widget_proxy'
+
+module Glimmer
+  module SWT
+    class TableItemProxy < WidgetProxy
+      attr_reader :data
+      
+      def initialize(parent, args)
+        super(parent, args)
+        on_widget_selected { |event|
+          parent.select(parent.index_of(self), event.meta?)
+        }
+      end
+      
+      def get_text(index)
+        text_array[index]
+      end
+      
+      def set_text(index, text_value)
+        text_array[index] = text_value
+        redraw
+      end
+      
+      def text_array
+        @text_array ||= []
+      end
+
+      def get_data(key = nil)
+        if key.nil?
+          @data
+        else
+          data_hash[key]
+        end
+      end
+      
+      def set_data(key = nil, data_value)
+        if key.nil?
+          @data = data_value
+        else
+          data_hash[key] = data_value
+        end
+      end
+      
+      def data_hash
+        @data_hash ||= {}
+      end
+      
+      def parent_path
+        parent.items_path
+      end
+      
+      def element
+        'tr'
+      end
+      
+      def redraw
+        super() #TODO re-enalbe and remove below lines
+
+        # TODO perhaps turn the following lambdas into methods
+        table_item_edit_handler = lambda do |event, cancel = false|
+          Async::Task.new do
+            text_value = event.target.value
+            edit_property = parent.column_properties[@edit_column_index]
+            edit_model = get_data
+            if !cancel && edit_model.send(edit_property) != text_value
+              edit_model.send("#{edit_property}=", text_value)
+              set_text(@edit_column_index, text_value)
+            end
+            @edit_column_index = nil
+            redraw
+          end
+        end
+        table_item_edit_cancel_handler = lambda do |event|           
+          Async::Task.new do
+            table_item_edit_handler.call(event, true)
+          end
+        end   
+        table_item_edit_key_handler = lambda do |event|
+          Async::Task.new do
+            if event.key_code == 13
+              table_item_edit_handler.call(event)
+            elsif event.key_code == 27
+              table_item_edit_cancel_handler.call(event)
+            end
+          end
+        end
+        
+        if @edit_column_index
+          table_item_input = dom_element.find("td:nth-child(#{@edit_column_index + 1}) input")
+          if !table_item_input.empty?
+            Async::Task.new do
+              table_item_input.focus
+              table_item_input.on('keyup', &table_item_edit_key_handler)
+              table_item_input.on('focusout', &table_item_edit_cancel_handler)                
+            end
+          end
+        end
+      end
+      
+      def edit(column_index)
+        return if @edit_column_index == column_index.to_i
+        parent.select(parent.index_of(self), false)
+        @edit_column_index = column_index.to_i
+        redraw
+      end
+      
+      def on_widget_selected(&block)
+        event = 'click'
+        delegate = $document.on(event, selector, &block)
+        EventListenerProxy.new(element_proxy: self, event: event, selector: selector, delegate: delegate)
+      end
+      
+      def max_column_width(column_index)
+        parent_dom_element.find("tr td:nth-child(#{column_index + 1})").first.width
+      end
+      
+      def dom
+        table_item_id = id
+        table_item_id_style = css
+        table_item_css_classes = css_classes
+        table_item_css_classes << name
+        table_item_selection = parent.selection.include?(self)
+        if table_item_selection
+          table_item_css_classes << 'selected'
+        else
+          table_item_css_classes.delete('selected')
+        end
+        table_item_text_array = text_array
+        table_item_max_width = max_column_width(@edit_column_index) if @edit_column_index
+
+        @dom ||= html {
+          tr(id: table_item_id, style: table_item_id_style, class: table_item_css_classes.to_a.join(' ')) {
+            table_item_text_array.each_with_index do |table_item_text, column_index|
+              td('data-column-index' => column_index) {
+                if @edit_column_index == column_index                  
+                  input(type: 'text', value: table_item_text, style: "max-width: #{table_item_max_width - 11}px;")
+                else
+                  table_item_text
+                end
+              }
+            end
+          }
+        }.to_s
+      end
+    end
+  end
+end

data/lib/glimmer/swt/table_proxy.rb

@@ -0,0 +1,159 @@
+require 'glimmer/swt/widget_proxy'
+require 'glimmer/swt/table_column_proxy'
+
+module Glimmer
+  module SWT
+    class TableProxy < WidgetProxy
+      attr_reader :columns, :selection
+      attr_accessor :column_properties
+      alias items children
+      
+      def initialize(parent, args)
+        super(parent, args)
+        @columns = []
+        @children = []
+        @selection = []
+      end
+      
+      # Only table_columns may be added as children
+      def add_child(child)
+        if child.is_a?(TableColumnProxy)
+          @columns << child
+        else
+          @children << child        
+        end
+        child.redraw
+      end
+      
+      def remove_all
+        items.clear
+        redraw
+      end
+      
+      def selection=(new_selection)
+        changed = (@selection + new_selection) - (@selection & new_selection)
+        @selection = new_selection
+        changed.each(&:redraw)
+      end
+            
+      def items=(new_items)        
+        @children = new_items
+        redraw
+      end
+      
+      def search(&condition)
+        items.select {|item| condition.nil? || condition.call(item)}
+      end      
+      
+      def index_of(item)
+        items.index(item)
+      end
+      
+      def select(index, meta = false)
+        new_selection = @selection.clone
+        selected_item = items[index]
+        if @selection.include?(selected_item)
+          new_selection.delete(selected_item) if meta
+        else
+          new_selection = [] if !meta || (!has_style?(:multi) && @selection.to_a.size >= 1)
+          new_selection << selected_item
+        end
+        self.selection = new_selection
+      end
+      
+      def edit_table_item(table_item, column_index)
+        table_item.edit(column_index)
+      end
+      
+      def selector
+        super + ' tbody'
+      end
+      
+      def observation_request_to_event_mapping
+        mouse_handler = -> (event_listener) {
+          -> (event) {
+            event.singleton_class.send(:define_method, :table_item=) do |item|
+              @table_item = item
+            end
+            event.singleton_class.send(:define_method, :table_item) do
+              @table_item
+            end
+            table_row = event.target.parents('tr').first
+            table_data = event.target.parents('td').first
+            event.table_item = items.detect {|item| item.id == table_row.attr('id')}
+            event.singleton_class.send(:define_method, :column_index) do
+              (table_data || event.target).attr('data-column-index')
+            end
+            event_listener.call(event)              
+          }
+        } 
+
+        {
+          'on_mouse_down' => {
+            event: 'mousedown',
+            event_handler: mouse_handler,
+          },
+          'on_mouse_up' => {
+            event: 'mouseup',
+            event_handler: mouse_handler,
+          }
+        }
+      end
+      
+      def redraw
+        super()
+        @columns.to_a.each(&:redraw)  
+      end
+      
+      def element
+        'table'
+      end
+      
+      def columns_path
+        path + ' thead tr'
+      end
+
+      def columns_dom_element
+        Document.find(columns_path)
+      end
+      
+      def items_path
+        path + ' tbody'
+      end
+
+      def items_dom_element
+        Document.find(items_path)
+      end
+      
+      def columns_dom        
+        tr {
+        }
+      end
+      
+      def thead_dom
+        thead {
+          columns_dom
+        }
+      end            
+      
+      def items_dom        
+        tbody {
+        }
+      end
+      
+      def dom
+        table_id = id
+        table_id_style = css
+        table_id_css_classes = css_classes
+        table_id_css_classes << 'table'
+        table_id_css_classes_string = table_id_css_classes.to_a.join(' ')
+        @dom ||= html {
+          table(id: table_id, style: table_id_style, class: table_id_css_classes_string) {
+            thead_dom
+            items_dom
+          }
+        }.to_s
+      end
+    end
+  end
+end