glimmer-dsl-opal 0.2.0 → 0.6.0

data/lib/glimmer/swt/date_time_proxy.rb

@@ -0,0 +1,144 @@
+require 'glimmer/swt/widget_proxy'
+
+module Glimmer
+  module SWT
+    class DateTimeProxy < WidgetProxy
+      class << self
+        def create(keyword, parent, args)
+          case keyword
+          when 'date'
+            args += [:date]
+          when 'date_drop_down'
+            args += [:date, :drop_down]
+          when 'time'
+            args += [:time]
+          when 'calendar'
+            args += [:calendar]
+          end
+          new(parent, args)
+        end
+      end
+      
+      def initialize(parent, args)
+        super(parent, args)
+      end
+      
+      def post_add_content
+        # TODO handle date_drop_down version
+        if time?
+          dom_element.timepicker({
+            showPeriod: true,
+            showLeadingZero: true,
+            showOn: 'both',
+            button: "##{time_button_id}",
+          })
+        else
+          options = {}
+          if drop_down?
+            options = {
+              showOn: 'both',
+              buttonImage: 'assets/glimmer/images/calendar.gif',
+              buttonImageOnly: true,
+              buttonText: 'Select date'
+            }
+          end
+          dom_element.datepicker(options)
+        end
+        date_time_value = self.date_time
+        @added_content = true
+        self.date_time = date_time_value
+      end
+      
+      def date?
+        args.to_a.include?(:date)
+      end
+      
+      def time?
+        args.to_a.include?(:time)
+      end
+      
+      def drop_down?
+        args.to_a.include?(:drop_down)
+      end
+      
+      def calendar?
+        args.to_a.include?(:calendar)
+      end
+      
+      def date_time
+        if @added_content
+          default_date = DateTime.new if @date_time.nil?
+          default_year = @date_time&.year || default_date.year
+          default_month = @date_time&.month || default_date.month
+          default_day = @date_time&.day || default_date.day
+          default_hour = @date_time&.hour || default_date.hour
+          default_min = @date_time&.min || default_date.min
+          default_sec = @date_time&.sec || default_date.sec
+          if time?
+            @date_time = DateTime.new(default_year, default_month, default_day, dom_element.timepicker('getHour').to_i, dom_element.timepicker('getMinute').to_i, default_sec)
+          else
+            @date_time = DateTime.new(dom_element.datepicker('getDate')&.year.to_i, dom_element.datepicker('getDate')&.month.to_i, dom_element.datepicker('getDate')&.day.to_i, default_hour, default_min, default_sec)
+          end
+          @date_time = @date_time&.to_datetime
+        else
+          @initial_date_time
+        end
+      end
+      
+      def date_time=(value)
+        if @added_content
+          @date_time = value&.to_datetime || DateTime.new
+          if time?
+            dom_element.timepicker('setTime', "#{@date_time.hour}:#{@date_time.min}")
+          else
+            dom_element.datepicker('setDate', @date_time.to_time)
+          end
+        else
+          @initial_date_time = value
+        end
+      end
+      
+      # TODO add date, time, year, month, day, hours, minutes, seconds attribute methods
+      
+      def observation_request_to_event_mapping
+        {
+          'on_widget_selected' => [
+            {
+              event: 'change'
+            },
+          ],
+        }
+      end
+      
+      def time_button_id
+        "#{id}-time-button"
+      end
+      
+      def time_button_class
+        "#{name}-time-button"
+      end
+      
+      def element
+        calendar? ? 'div' : 'input'
+      end
+      
+      def dom
+        @dom ||= html {
+          span {
+            send(element, type: 'text', id: id, class: name)
+            button(id: time_button_id, class: time_button_class, style: "border: none; background: url(assets/glimmer/images/ui-icons_222222_256x240.png) -80px, -96px; width: 16px; height: 16px;") if time?
+          }
+        }.to_s
+      end
+      
+    end
+    
+    # Aliases: `date`, `date_drop_down`, `time`, and `calendar`
+    DateProxy         = DateTimeProxy
+    DateDropDownProxy = DateTimeProxy
+    TimeProxy         = DateTimeProxy
+    CalendarProxy     = DateTimeProxy
+    
+  end
+  
+end

data/lib/glimmer/swt/display_proxy.rb

@@ -1,12 +1,33 @@
 module Glimmer
   module SWT
-    class DisplayProxy
+    class DisplayProxy < WidgetProxy
       class << self
         def instance
           @instance ||= new
         end
       end
       
+      def initialize
+        # Do not call super
+      end
+      
+      def path
+        "html body"
+      end
+
+      # Root element representing widget. Must be overridden by subclasses if different from div
+      def element
+        'body'
+      end
+      
+      def listener_dom_element
+        Document
+      end
+      
+      def render
+        # No rendering as body is rendered as part of ShellProxy.. this class only serves as an SWT Display utility
+      end
+      
       def async_exec(&block)
         executer = lambda do
           if Document.find('.modal').to_a.empty?
@@ -20,6 +41,39 @@ module Glimmer
       end
       # sync_exec kept for API compatibility reasons
       alias sync_exec async_exec
+      
+      def observation_request_to_event_mapping
+        {
+          'on_swt_keydown' => [
+            {
+              event: 'keypress',
+              event_handler: -> (event_listener) {
+                -> (event) {
+                  event.singleton_class.define_method(:character) do
+                    which || key_code
+                  end
+                  event_listener.call(event)
+                }
+              }
+            },
+            {
+              event: 'keydown',
+              event_handler: -> (event_listener) {
+                -> (event) {
+                  event.singleton_class.define_method(:character) do
+                    which || key_code
+                  end
+                  event_listener.call(event) if event.key_code != 13 && (event.key_code == 127 || event.key_code <= 31)
+                }
+              }
+            }          
+          ]
+        }
+      end      
+      
+      def shells
+        @shells ||= []
+      end
     end
   end
 end

data/lib/glimmer/swt/fill_layout_proxy.rb

@@ -54,8 +54,8 @@ module Glimmer
       
       def margin_height=(pixels)
         @margin_height = pixels
-        @parent.dom_element.css('margin-top', @margin_height)
-        @parent.dom_element.css('margin-bottom', @margin_height)
+        @parent.dom_element.css('padding-top', @margin_height)
+        @parent.dom_element.css('padding-bottom', @margin_height)
       end
       
       def spacing=(spacing)

data/lib/glimmer/swt/grid_layout_proxy.rb

@@ -3,6 +3,15 @@ require 'glimmer/swt/layout_proxy'
 module Glimmer
   module SWT
     class GridLayoutProxy < LayoutProxy
+      STYLE = <<~CSS
+        .grid-layout {
+          display: grid;
+          grid-template-rows: min-content;
+          justify-content: start;
+          place-content: start;
+          align-items: stretch;      
+        }
+      CSS
       attr_reader :num_columns, :make_columns_equal_width, :horizontal_spacing, :vertical_spacing, :margin_width, :margin_height
     
       def initialize(parent, args)
@@ -47,24 +56,26 @@ module Glimmer
       
       def margin_height=(pixels)
         @margin_height = pixels
-        @parent.dom_element.css('margin-top', @margin_height)
-        @parent.dom_element.css('margin-bottom', @margin_height)
+        @parent.dom_element.css('padding-top', @margin_height)
+        @parent.dom_element.css('padding-bottom', @margin_height)
       end
             
       def reapply
+        # TODO get rid of this method
         layout_css = <<~CSS
-          display: grid;
           grid-template-columns: #{'auto ' * @num_columns.to_i};
-          grid-template-rows: min-content;
           grid-row-gap: #{@vertical_spacing}px;
           grid-column-gap: #{@horizontal_spacing}px;
-          justify-content: start;
-          align-items: start;
-          align-content: start;
         CSS
-        layout_css.split(";").map(&:strip).map {|l| l.split(':').map(&:strip)}.each do |key, value|          
-          @parent.dom_element.css(key, value) unless key.nil?
-        end      
+        if @parent.css_classes.include?('grid-layout')
+          layout_css.split(";").map(&:strip).map {|l| l.split(':').map(&:strip)}.each do |key, value|          
+            @parent.dom_element.css(key, value) unless key.nil?
+          end
+        else
+          layout_css.split(";").map(&:strip).map {|l| l.split(':').map(&:strip)}.each do |key, value|          
+            @parent.dom_element.css(key, 'initial') unless key.nil?
+          end        
+        end
       end      
     end
   end

data/lib/glimmer/swt/group_proxy.rb

@@ -0,0 +1,38 @@
+require 'glimmer/swt/widget_proxy'
+
+module Glimmer
+  module SWT
+    # Adapter for org.eclipse.swt.widgets.Group
+    #
+    # Follows Adapter Pattern
+    class GroupProxy < CompositeProxy
+      attr_reader :text
+      
+      def text=(value)
+        @text = value
+        if @text.nil?
+          legend_dom_element.add_class('hide')
+        else
+          legend_dom_element.remove_class('hide')
+        end
+        legend_dom_element.html(@text)
+      end
+      
+      def element
+        'fieldset'
+      end
+      
+      def legend_dom_element
+        dom_element.find('legend')
+      end
+      
+      def dom
+        @dom ||= html {
+          fieldset(id: id, class: name) {
+            legend(class: 'hide') { text }
+          }
+        }.to_s
+      end
+    end
+  end
+end

data/lib/glimmer/swt/label_proxy.rb

@@ -1,30 +1,50 @@
 require 'glimmer/swt/widget_proxy'
+# require 'glimmer/swt/image_proxy'
 
 module Glimmer
   module SWT
     class LabelProxy < WidgetProxy
-      attr_reader :text
+      attr_reader :text, :background_image, :image, :alignment
+      
+      def initialize(parent, args)
+        super(parent, args)
+        self.alignment = [:left, :center, :right].detect {|align| args.detect { |arg| SWTProxy[align] == arg } }
+      end
 
       def text=(value)
         @text = value
         dom_element.html(value)
       end
       
+      def background_image=(*image_options)
+        # TODO consider if there is a difference between background_image and image in label and to have one reuse the other
+        # TODO finish implementation
+#         @background_image = Glimmer::SWT::ImageProxy.create(*image_options)
+#         dom_element.css('background-image', @background_image.image_data.dom_element.src)
+      end
+      
+      def image=(*image_options)
+        # TODO finish implementation
+#         @image = Glimmer::SWT::ImageProxy.create(*image_options)
+#         dom_element.css('background-image', @image.image_data.dom_element.src)
+      end
+      
       def element
         'label'
       end
-      
-      def alignment
-        [:left, :center, :right].detect {|value| args.detect { |arg| SWTProxy[value] == arg } }
+
+      def alignment=(value)
+        # TODO consider storing swt value in the future instead
+        @alignment = value
+        dom_element.css('text-align', @alignment.to_s)
       end
       
-      def dom        
+      def dom
         label_text = @text
         label_id = id
-        label_style = "text-align: #{alignment};"
         label_class = name
         @dom ||= html {
-          label(id: label_id, style: label_style, class: label_class) {
+          label(id: label_id, class: label_class) {
             label_text
           }
         }.to_s

data/lib/glimmer/swt/layout_data_proxy.rb

@@ -8,39 +8,92 @@ module Glimmer
                   :args, 
                   :horizontal_alignment, 
                   :vertical_alignment, 
+                  :horizontal_span, 
+                  :vertical_span, 
+                  :horizontal_indent, 
+                  :vertical_indent, 
                   :grab_excess_horizontal_space,
                   :grab_excess_vertical_space,
+                  :width_hint,
                   :height_hint
     
       def initialize(parent, args)
         @parent = parent
         @args = args
-        reapply
+        self.horizontal_alignment = @args[0] if @args[0]
+        self.vertical_alignment = @args[1] if @args[1]
+        self.grab_excess_horizontal_space = @args[2] if @args[2]
+        self.grab_excess_vertical_space = @args[3] if @args[3]
+        # TODO spread args correctly as per SWT LayoutData API
+        # TODO avoid using reapply
+#         reapply
+      end
+
+      def width_hint=(width_hint)
+        @width_hint = width_hint
+        @parent.dom_element.css('width', "#{@width_hint}px")
+#         reapply
       end
 
       def height_hint=(height_hint)
         @height_hint = height_hint
-        reapply
+        @parent.dom_element.css('height', "#{@height_hint}px")
+#         reapply
       end
 
       def horizontal_alignment=(horizontal_alignment)
         @horizontal_alignment = horizontal_alignment
-        reapply
+        return if @horizontal_alignment.nil?
+        if @horizontal_alignment == 'fill'
+          @parent.dom_element.css('width', '100%') if width_hint.nil?
+        else
+          @parent.dom_element.css('text-align', @horizontal_alignment)
+        end
+        # TODO
+#         reapply
       end
       
       def vertical_alignment=(vertical_alignment)
         @vertical_alignment = vertical_alignment
-        reapply
+        # TODO
+#         reapply
+      end
+      
+      def horizontal_span=(value)
+        @horizontal_span = value
+        @parent.dom_element.css('grid-column-start', "span #{@horizontal_span}")
+#         reapply
+      end
+      
+      def vertical_span=(value)
+        @vertical_span = value
+        @parent.dom_element.css('grid-row-start', "span #{@vertical_span}")
+#         reapply
+      end
+      
+      def horizontal_indent=(value)
+        @horizontal_indent = value
+        @parent.dom_element.css('padding-left', @horizontal_indent)
+#         reapply
+      end
+      
+      def vertical_indent=(value)
+        @vertical_indent = value
+        @parent.dom_element.css('padding-top', @vertical_indent)
+#         reapply
       end
       
       def grab_excess_horizontal_space=(grab_excess_horizontal_space)
         @grab_excess_horizontal_space = grab_excess_horizontal_space
-        reapply
+        @parent.dom_element.css('width', "100%") if @grab_excess_horizontal_space && width_hint.nil?
+#         reapply
       end
 
       def grab_excess_vertical_space=(grab_excess_vertical_space)
         @grab_excess_vertical_space = grab_excess_vertical_space
-        reapply
+        @parent.dom_element.css('height', "100%") if @grab_excess_vertical_space && height_hint.nil?
+        # TODO
+#         reapply
       end
 
       def reapply