glimmer-dsl-opal 0.1.0 → 0.5.1

data/lib/glimmer/swt/browser_proxy.rb

@@ -7,7 +7,7 @@ module Glimmer
       
       def url=(value)
         @url = value
-        redraw
+        dom_element.attr('src', @url)
       end
     
       def element

data/lib/glimmer/swt/button_proxy.rb

@@ -1,13 +1,27 @@
 require 'glimmer/swt/widget_proxy'
+require 'glimmer/swt/radio_proxy'
+require 'glimmer/swt/checkbox_proxy'
 
 module Glimmer
   module SWT
     class ButtonProxy < WidgetProxy
+      class << self
+        def create(parent, args)
+          if args.to_a.include?(:radio)
+            RadioProxy.new(parent, args)
+          elsif args.to_a.include?(:check)
+            CheckboxProxy.new(parent, args)
+          else
+            new(parent, args)
+          end
+        end
+      end
+    
       attr_reader :text
       
       def text=(value)
         @text = value
-        redraw
+        dom_element.html(@text)
       end
       
       def element
@@ -18,7 +32,7 @@ module Glimmer
         {
           'on_widget_selected' => {
             event: 'click'
-          }, 
+          },
         }
       end
       
@@ -30,7 +44,7 @@ module Glimmer
         input_disabled = @enabled ? {} : {'disabled': 'disabled'}
         input_args = input_args.merge(type: 'password') if has_style?(:password)
         @dom ||= html {
-          button(input_args.merge(id: input_id, class: name, style: input_style, style: 'min-width: 27px;').merge(input_disabled)) {
+          button(input_args.merge(id: input_id, class: name, style: input_style, style: 'min-width: 27px; min-height: 27px;').merge(input_disabled)) {
             input_text.to_s == '' ? '&nbsp;' : input_text
           }
         }.to_s

data/lib/glimmer/swt/checkbox_proxy.rb

@@ -0,0 +1,80 @@
+require 'glimmer/swt/widget_proxy'
+
+module Glimmer
+  module SWT
+    class CheckboxProxy < WidgetProxy
+      STYLE=<<~CSS
+        .checkbox {
+          display: inline;
+        }
+        .checkbox-label {
+          display: inline;
+        }
+      CSS
+      # TODO consider reuse of logic in Radioproxy
+      attr_reader :text
+      
+      def text=(value)
+        @text = value
+        dom_element.val(@text)
+        label_dom_element.html(@text)
+      end
+
+      def selection
+        dom_element.prop('checked')
+      end
+      
+      def selection=(value)
+        @selection = value
+        dom_element.prop('checked', @selection)
+      end
+      
+      def element
+        'input'
+      end
+
+      def observation_request_to_event_mapping
+        {
+          'on_widget_selected' => {
+            event: 'change'
+          },
+        }
+      end
+      
+      def label_id
+        "#{id}-label"
+      end
+      
+      def label_class
+        "#{name}-label"
+      end
+      
+      def label_dom_element
+        Element.find("##{label_id}")
+      end
+      
+      def dom
+        check_text = @text
+        check_id = id
+        check_style = css
+        check_class = name
+        check_selection = @selection
+        options = {type: 'checkbox', id: check_id, name: parent.id, style: check_style, class: check_class, value: check_text, style: 'min-width: 27px;'}
+        options[checked: 'checked'] if check_selection
+        @dom ||= html {
+          span {
+            input(options) {
+            }
+            label(id: label_id, class: label_class, for: check_id) {
+              check_text
+            }
+          }
+        }.to_s
+      end
+      
+    end
+    
+    CheckProxy = CheckboxProxy # alias
+  end
+  
+end

data/lib/glimmer/swt/color_proxy.rb

@@ -0,0 +1,119 @@
+# 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.
+
+module Glimmer
+  module SWT
+    # Proxy for org.eclipse.swt.graphics.Color
+    #
+    # Invoking `#swt_color` returns the SWT Color object wrapped by this proxy
+    #
+    # Follows the Proxy Design Pattern
+    class ColorProxy
+      SWT_COLOR_TRANSLATION = {
+        "widget_foreground"                   => [0, 0, 0], 
+        "blue"                                => [0, 0, 255], 
+        "widget_dark_shadow"                  => [0, 0, 0], 
+        "title_foreground"                    => [0, 0, 0], 
+        "yellow"                              => [255, 255, 0], 
+        "widget_highlight_shadow"             => [255, 255, 255], 
+        "dark_cyan"                           => [0, 128, 128], 
+        "list_foreground"                     => [0, 0, 0], 
+        "dark_blue"                           => [0, 0, 128], 
+        "dark_yellow"                         => [128, 128, 0], 
+        "cyan"                                => [0, 255, 255], 
+        "info_background"                     => [236, 235, 236], 
+        "link_foreground"                     => [0, 104, 218], 
+        "title_inactive_foreground"           => [0, 0, 0], 
+        "title_background_gradient"           => [179, 215, 255], 
+        "red"                                 => [255, 0, 0], 
+        "title_inactive_background_gradient"  => [220, 220, 220], 
+        "transparent"                         => [255, 255, 255], 
+        "widget_light_shadow"                 => [232, 232, 232], 
+        "dark_magenta"                        => [128, 0, 128], 
+        "white"                               => [255, 255, 255], 
+        "list_selection"                      => [179, 215, 255], 
+        "gray"                                => [192, 192, 192], 
+        "widget_border"                       => [0, 0, 0], 
+        "widget_background"                   => [236, 236, 236], 
+        "info_foreground"                     => [0, 0, 0], 
+        "title_inactive_background"           => [220, 220, 220], 
+        "widget_disabled_foreground"          => [220, 220, 220], 
+        "list_background"                     => [255, 255, 255], 
+        "magenta"                             => [255, 0, 255], 
+        "title_background"                    => [0, 99, 225], 
+        "text_disabled_background"            => [255, 255, 255], 
+        "black"                               => [0, 0, 0], 
+        "dark_gray"                           => [128, 128, 128], 
+        "list_selection_text"                 => [0, 0, 0], 
+        "dark_red"                            => [128, 0, 0], 
+        "widget_normal_shadow"                => [159, 159, 159], 
+        "dark_green"                          => [0, 128, 0], 
+        "green"                               => [0, 255, 0]
+      }
+    
+      attr_reader :args, :red, :green, :blue, :alpha
+    
+      # Initializes a proxy for an SWT Color object
+      #
+      # Takes a standard color single argument, rgba 3 args, or rgba 4 args
+      #
+      # A standard color is a string/symbol representing one of the
+      # SWT.COLOR_*** constants like SWT.COLOR_RED, but in underscored string
+      # format (e.g :color_red).
+      # Glimmer can also accept standard color names without the color_ prefix,
+      # and it will automatically figure out the SWT.COLOR_*** constant
+      # (e.g. :red)
+      #
+      # rgb is 3 arguments representing Red, Green, Blue numeric values
+      #
+      # rgba is 4 arguments representing Red, Green, Blue, and Alpha numeric values
+      #
+      def initialize(*args)
+        @args = args        
+        case @args.size
+        when 1
+          @alpha = nil
+          if @args.first.is_a?(String) || @args.first.is_a?(Symbol)              
+            standard_color = @args.first.to_s.downcase.sub('COLOR_', '')             
+            @red, @green, @blue = SWT_COLOR_TRANSLATION[standard_color]
+          else
+            @red, @green, @blue = [0, 0, 0]
+          end
+        when 3..4
+          @red, @green, @blue, @alpha = @args
+        end        
+      end
+      
+      def to_css
+        if alpha.nil?
+          "rgb(#{red}, #{green}, #{blue})"
+        else
+          "rgba(#{red}, #{green}, #{blue}, #{alpha_css})"
+        end
+      end
+      
+      def alpha_css
+        alpha.to_f / 255
+      end
+
+    end
+  end
+end

data/lib/glimmer/swt/combo_proxy.rb

@@ -23,17 +23,26 @@ module Glimmer
       
       def items=(the_items)
         @items = the_items
-        redraw
+        items_dom = items.to_a.map do |item|
+          option_hash = {value: item}
+          option_hash[:selected] = 'selected' if @text == item
+          html {
+            option(option_hash) {
+              item
+            }
+          }.to_s
+        end
+        dom_element.html(items_dom)
       end
 
-      def observation_request_to_event_mapping      
+      def observation_request_to_event_mapping
         {
           'on_widget_selected' => {
             event: 'change',
             event_handler: -> (event_listener) {
-              -> (event) {                
+              -> (event) {
                 @text = event.target.value
-                event_listener.call(event)              
+                event_listener.call(event)
               }
             }
           }
@@ -41,20 +50,12 @@ module Glimmer
       end
       
       def dom
-        select_text = @text        
         items = @items
         select_id = id
         select_style = css
         select_class = name
         @dom ||= html {
           select(id: select_id, class: select_class, style: select_style) {
-            items.to_a.each do |item|
-              option_hash = {value: item}
-              option_hash[:selected] = 'selected' if select_text == item
-              option(option_hash) {
-                item
-              } 
-            end
           }
         }.to_s
       end

data/lib/glimmer/swt/composite_proxy.rb

@@ -11,21 +11,21 @@ module Glimmer
         @layout = GridLayoutProxy.new(self, [])
       end
       
-      def redraw
-        super()
-        @children.each do |child|
-          add_child(child) # TODO think of impact of this on performance, and of other alternatives
-        end
-      end
-      
       def dom
         div_id = id
         div_style = css
-        div_class = "#{name} grid-layout"
+        div_class = name
         @dom ||= html {
           div(id: div_id, class: div_class, style: div_style)
         }.to_s
       end
+      
+      def layout=(the_layout)
+        @layout = the_layout
+      end
+      
     end
+    
   end
+  
 end

data/lib/glimmer/swt/custom/checkbox_group.rb

@@ -0,0 +1,142 @@
+# 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/ui/custom_widget'
+
+module Glimmer
+  module SWT
+    module Custom
+      # A custom widget rendering a group of checkboxes generated via data-binding
+      class CheckboxGroup
+        include Glimmer::UI::CustomWidget
+        
+        body {
+          composite # just an empty composite to hold checkboxs upon data-binding `selection`
+        }
+        
+        def items=(text_array)
+          selection_value = selection
+          @items = Array[*text_array]
+          build_checkboxes
+        end
+        
+        def items
+          @items || []
+        end
+        
+        def selection=(selection_texts)
+          items.count.times do |index|
+            checkbox = checkboxes[index]
+            item = items[index]
+            checkbox_text = checkbox&.text
+            checkbox.selection = selection_texts.to_a.include?(checkbox_text)
+          end
+          selection_texts
+        end
+        
+        def selection
+          selection_indices.map do |selection_index|
+            checkboxes[selection_index]&.text
+          end
+        end
+        
+        def selection_indices=(indices)
+          self.selection=(indices.to_a.map {|index| items[index]})
+        end
+        alias select selection_indices=
+        
+        def selection_indices
+          checkboxes.each_with_index.map do |checkbox, index|
+            index if checkbox.selection
+          end.to_a.compact
+        end
+        
+        def checkboxes
+          @checkboxes ||= []
+        end
+        alias checks checkboxes
+        
+        def can_handle_observation_request?(observation_request)
+          checkboxes.first&.can_handle_observation_request?(observation_request) || super(observation_request)
+        end
+        
+        def handle_observation_request(observation_request, &block)
+          observation_requests << [observation_request, block]
+          delegate_observation_request_to_checkboxes(observation_request, &block)
+          super
+        end
+        
+        def delegate_observation_request_to_checkboxes(observation_request, &block)
+          if observation_request != 'on_widget_disposed'
+            checkboxes.count.times do |index|
+              checkbox = checkboxes[index]
+              checkbox.handle_observation_request(observation_request, &block) if checkbox.can_handle_observation_request?(observation_request)
+            end
+          end
+        end
+        
+        def observation_requests
+          @observation_requests ||= Set.new
+        end
+        
+        def has_attribute?(attribute_name, *args)
+          @checkboxes.to_a.map do |widget_proxy|
+            return true if widget_proxy.has_attribute?(attribute_name, *args)
+          end
+          super
+        end
+         
+        def set_attribute(attribute_name, *args)
+          excluded_attributes = ['selection']
+          unless excluded_attributes.include?(attribute_name.to_s)
+            @checkboxes.to_a.each do |widget_proxy|
+              widget_proxy.set_attribute(attribute_name, *args) if widget_proxy.has_attribute?(attribute_name, *args)
+            end
+          end
+          super
+        end
+        
+        private
+        
+        def build_checkboxes
+          current_selection = selection
+          @checkboxes = []
+          items.each do |item|
+            body_root.content {
+              checkboxes << checkbox { |checkbox_proxy|
+                text item
+                on_widget_selected {
+                  self.selection_indices = checkboxes.each_with_index.map {|cb, i| i if cb.selection}.to_a.compact
+                }
+              }
+            }
+          end
+          observation_requests.to_a.each do |observation_request, block|
+            delegate_observation_request_to_checkboxes(observation_request, &block)
+          end
+          self.selection = current_selection
+        end
+      end
+      
+      CheckGroup = CheckboxGroup # alias
+    end
+  end
+end