glimmer-dsl-opal 0.7.2 → 0.9.0

data/lib/glimmer/swt/label_proxy.rb

@@ -4,16 +4,19 @@ require 'glimmer/swt/widget_proxy'
 module Glimmer
   module SWT
     class LabelProxy < WidgetProxy
-      attr_reader :text, :background_image, :image, :alignment
+      attr_reader :text, :background_image, :image
       
       def initialize(parent, args, block)
         super(parent, args, block)
-        self.alignment = [:left, :center, :right].detect {|align| args.detect { |arg| SWTProxy[align] == arg } }
       end
 
       def text=(value)
         @text = value
-        dom_element.html(value)
+        dom_element.html(html_text)
+      end
+      
+      def html_text
+        text.gsub("\n", '<br />')
       end
       
       def background_image=(*image_options)
@@ -32,6 +35,15 @@ module Glimmer
       def element
         'label'
       end
+      
+      def alignment
+        if @alignment.nil?
+          found_arg = nil
+          @alignment = [:left, :center, :right].detect {|align| found_arg = args.detect { |arg| SWTProxy[align] == SWTProxy[arg] } }
+          args.delete(found_arg)
+        end
+        @alignment
+      end
 
       def alignment=(value)
         # TODO consider storing swt value in the future instead
@@ -40,12 +52,11 @@ module Glimmer
       end
       
       def dom
-        label_text = @text
         label_id = id
         label_class = name
         @dom ||= html {
-          label(id: label_id, class: label_class) {
-            label_text
+          label(id: label_id, class: label_class, style: "text-align: #{alignment};") {
+            html_text
           }
         }.to_s
       end

data/lib/glimmer/swt/latest_message_box_proxy.rb

@@ -0,0 +1,20 @@
+module Glimmer
+  module SWT
+    class LatestMessageBoxProxy #< MessageBoxProxy
+      # TODO consider overriding all methods from MessageBoxProxy and proxying to them
+      
+      def initialize(parent, args, block)
+        # No Op
+      end
+      
+      def open
+        Document.ready? do
+          DisplayProxy.instance.message_boxes.last&.open
+        end
+      end
+
+    end
+    
+  end
+  
+end

data/lib/glimmer/swt/layout_data_proxy.rb

@@ -45,10 +45,9 @@ module Glimmer
       def horizontal_alignment=(horizontal_alignment)
         @horizontal_alignment = horizontal_alignment
         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)
+        if @horizontal_alignment != 'fill'
+          @parent.dom_element.css('text-align', @horizontal_alignment.to_s)
+          @parent.dom_element.css('place-self', @horizontal_alignment.to_s)
           @parent.dom_element.css('margin-left', 'auto') if ['right', 'center'].include?(@horizontal_alignment.to_s)
           @parent.dom_element.css('margin-right', 'auto') if ['left', 'center'].include?(@horizontal_alignment.to_s)
         end
@@ -88,18 +87,19 @@ module Glimmer
       
       def grab_excess_horizontal_space=(grab_excess_horizontal_space)
         @grab_excess_horizontal_space = grab_excess_horizontal_space
-        @parent.dom_element.css('width', "100%") if @grab_excess_horizontal_space && @horizontal_alignment == 'fill' && width_hint.nil?
+        @parent.dom_element.css('justify-self', @horizontal_alignment) if @grab_excess_horizontal_space && @horizontal_alignment != 'fill' && width_hint.nil?
+        @parent.parent.dom_element.css('justify-content', "normal") if @grab_excess_horizontal_space
 #         reapply
       end
 
       def grab_excess_vertical_space=(grab_excess_vertical_space)
         @grab_excess_vertical_space = grab_excess_vertical_space
         @parent.dom_element.css('height', "100%") if @grab_excess_vertical_space && @vertical_alignment == 'fill' && height_hint.nil?
-        # TODO
 #         reapply
       end
 
       def reapply
+        # TODO remove reapply method
 #         @parent.css = <<~CSS
 #         CSS
       end

data/lib/glimmer/swt/list_proxy.rb

@@ -3,6 +3,21 @@ require 'glimmer/swt/widget_proxy'
 module Glimmer
   module SWT
     class ListProxy < WidgetProxy
+      STYLE = <<~CSS
+        ul {
+          list-style: none;
+          padding: 0;
+        }
+        li {
+          cursor: default;
+          padding-left: 10px;
+          padding-right: 10px;
+        }
+        li.empty-list-item {
+          color: transparent;
+        }
+      CSS
+    
       ITEM_EMPTY = '_____'
       attr_reader :items, :selection
       

data/lib/glimmer/swt/menu_item_proxy.rb

@@ -0,0 +1,174 @@
+# 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.
+
+# TODO implement set_menu or self.menu=
+
+require 'glimmer/swt/widget_proxy'
+
+module Glimmer
+  module SWT
+    # Proxy for org.eclipse.swt.widgets.MenuItem
+    #
+    # Follows the Proxy Design Pattern since it's a proxy for an HTML based menu
+    # Follows the Adapter Design Pattern since it's adapting a Glimmer DSL for SWT widget
+    class MenuItemProxy < WidgetProxy
+      STYLE = <<~CSS
+        .menu-item.disabled {
+          background-color: lightgrey;
+          color: grey;
+        }
+        .menu-item.disabled .menu, .menu-item.disabled .menu * {
+          display: none;
+          opacity: 0;
+        }
+      CSS
+      
+      attr_accessor :accelerator # TODO consider doing something with it
+    
+      def initialize(parent, args)
+        args.push(:push) if args.empty?
+        super(parent, args)
+        # TODO do not add the following event till post_add_content to avoid adding if already one on_widget_selected event existed
+        on_widget_selected {
+          # No Op, just trigger selection
+        }
+      end
+      
+      def post_initialize_child(child)
+        @children << child
+      end
+      
+      def cascade?
+        args.include?(:cascade)
+      end
+      
+      def push?
+        args.include?(:push)
+      end
+      
+      def radio?
+        args.include?(:radio)
+      end
+      
+      def check?
+        args.include?(:check)
+      end
+      
+      def separator?
+        args.include?(:separator)
+      end
+      
+      def text
+        @text
+      end
+      
+      def text=(value)
+        @text = value
+        dom_element.find('.menu-item-text').html(@text)
+        @text
+      end
+      
+      def selection
+        @selection
+      end
+      
+      def selection=(value)
+        @selection = value
+        icon_suffix = check? ? 'check' : 'bullet'
+        dom_element.find('.menu-item-selection').toggle_class("ui-icon ui-icon-#{icon_suffix}", @selection)
+        @selection
+      end
+      
+      def toggle_selection!
+        self.selection = !selection
+      end
+      
+      def enabled=(value)
+        @enabled = value
+        dom_element.toggle_class('disabled', !@enabled)
+        @enabled
+      end
+      
+      def div_content
+        div_attributes = {}
+        icon_suffix = check? ? 'check' : 'bullet'
+        div(div_attributes) {
+          unless separator? # empty content automatically gets a separator style in jQuery-UI
+            span(class: "menu-item-selection #{"ui-icon ui-icon-#{icon_suffix}" if selection}") {}
+            span(class: 'ui-menu-icon ui-icon ui-icon-caret-1-e') {} if cascade? && !parent.bar?
+            span(class: 'menu-item-text') {
+              @text
+            }
+            ''
+          end
+        }
+      end
+      
+      def root_menu
+        the_menu = parent
+        the_menu = the_menu.parent_menu until the_menu.root_menu?
+        the_menu
+      end
+      
+      def skip_content_on_render_blocks?
+        true
+      end
+      
+      def observation_request_to_event_mapping
+        {
+          'on_widget_selected' => {
+            event: 'mouseup',
+            event_handler: -> (event_listener) {
+              -> (event) {
+                if enabled && (push? || radio? || check?)
+                  if check?
+                    self.toggle_selection!
+                  elsif radio? && !selection
+                    parent.children.detect(&:selection)&.selection = false
+                    self.selection = true
+                  end
+                  if !root_menu.bar?
+                    remove_event_listener_proxies
+                    root_menu.close
+                  end
+                  event_listener.call(event)
+                end
+              }
+            },
+          },
+        }
+      end
+      
+      def element
+        'li'
+      end
+      
+      def dom
+        # TODO support rendering image
+        @dom ||= html {
+          li(id: id, class: "#{name} #{'disabled' unless enabled}") {
+            div_content
+          }
+        }.to_s
+      end
+    end
+  end
+end

data/lib/glimmer/swt/menu_proxy.rb

@@ -0,0 +1,273 @@
+# 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/widget_proxy'
+require 'glimmer/swt/menu_item_proxy'
+
+module Glimmer
+  module SWT
+    # Proxy for org.eclipse.swt.widgets.Menu
+    #
+    # Functions differently from other widget proxies.
+    #
+    # Glimmer automatically detects if this is a drop down menu
+    # or pop up menu from its parent if no SWT style is passed in.
+    #
+    # There are 3 possibilities:
+    # - SWT :bar style is passed in: Menu Bar
+    # - Parent is ShellProxy: Pop Up Menu (having style :pop_up)
+    # - Parent is another Menu: Drop Down Menu (having style :drop_down)
+    #
+    # In order to get the SWT Menu object, one must call `#swt_widget`.
+    #
+    # In the case of a Drop Down menu, this automatically creates an
+    # SWT MenuItem object with style :cascade
+    #
+    # In order to retrieve the menu item widget proxy, one must call `#menu_item_proxy`
+    #
+    # Follows the Proxy Design Pattern
+    class MenuProxy < WidgetProxy
+      STYLE = <<~CSS
+        .menu.menu-bar {
+          position: absolute;
+          top: -30px;
+          border-radius: 0;
+          width: 100%;
+        }
+        .menu.menu-bar .menu {
+          border-radius: 0;
+        }
+        .menu-bar .menu-item {
+          width: 180px;
+        }
+        .menu-bar > .menu-item {
+          display: inline-block;
+          width: 150px;
+        }
+        li.menu-item {
+          padding-left: initial;
+          padding-right: initial;
+        }
+        .menu {
+          /* TODO consider auto-sizing in the future */
+          font-size: initial;
+          border-radius: 5px;
+        }
+        .menu:not(.menu-bar) {
+          width: 150px;
+        }
+        .menu-bar .ui-menu:not(.menu-bar) {
+          width: 180px;
+        }
+        .ui-menu-item:first-child > .ui-menu-item-wrapper {
+          border-top-left-radius: 5px;
+          border-top-right-radius: 5px;
+        }
+        .ui-menu-item:last-child > .ui-menu-item-wrapper {
+          border-bottom-left-radius: 5px;
+          border-bottom-right-radius: 5px;
+        }
+        .menu-bar .ui-menu-item:first-child > .ui-menu-item-wrapper {
+          border-top-left-radius: 0;
+          border-top-right-radius: 0;
+        }
+        .menu-bar .ui-menu-item:last-child > .ui-menu-item-wrapper {
+          border-bottom-left-radius: 0;
+          border-bottom-right-radius: 0;
+        }
+        
+      CSS
+      
+      attr_reader :menu_item_proxy, :menu_parent
+
+      def initialize(parent, args)
+        # TODO refactor/simplify code below
+        @children = []
+        index = args.delete(args.last) if args.last.is_a?(Numeric)
+        args = args.map {|arg| arg.is_a?(String) ? arg.to_sym : arg}
+        if parent.is_a?(ShellProxy)
+          args = args.unshift(:bar)
+        elsif parent.is_a?(MenuProxy)
+          args = args.unshift(:drop_down)
+        else
+          args = args.unshift(:pop_up)
+        end
+        if parent.is_a?(MenuProxy)
+          @menu_item_proxy = SWT::WidgetProxy.for('menu_item', parent, [:cascade] + [index].compact)
+          super(@menu_item_proxy, args)
+          @menu_item_proxy.menu = self
+        elsif parent.is_a?(ShellProxy)
+          super(parent, args)
+        else # widget pop up
+          super(parent, args)
+        end
+
+        if bar?
+          # Assumes a parent shell
+          parent.menu_bar = self
+        elsif pop_up?
+          parent.menu = self
+        end
+        # TODO IMPLEMENT PROPERLY
+#         on_focus_lost {
+#           dispose
+#         }
+      end
+      
+      def bar?
+        args.include?(:bar)
+      end
+      
+      def pop_up?
+        args.include?(:pop_up)
+      end
+      
+      def drop_down?
+        args.include?(:drop_down)
+      end
+      
+      def text
+        @menu_item_proxy&.text
+      end
+      
+      def text=(text_value)
+        @menu_item_proxy&.text = text_value
+      end
+      
+      def enabled
+        if drop_down?
+          menu_item_proxy.enabled
+        else
+          true
+        end
+      end
+      
+      def enabled=(value)
+        if drop_down?
+          menu_item_proxy.enabled = value
+        end
+      end
+      
+      def can_handle_observation_request?(observation_request, super_only: false)
+        super_result = super(observation_request)
+        if observation_request.start_with?('on_') && !super_result && !super_only
+          return menu_item_proxy.can_handle_observation_request?(observation_request)
+        else
+          super_result
+        end
+      end
+      
+      def handle_observation_request(observation_request, block)
+        if can_handle_observation_request?(observation_request, super_only: true)
+          super
+        else
+          menu_item_proxy.handle_observation_request(observation_request, block)
+        end
+      end
+      
+      def post_initialize_child(child)
+        if child && !@children.include?(child)
+          if child.is_a?(MenuItemProxy)
+            @children << child
+          else
+            @children << child.menu_item_proxy
+          end
+        end
+      end
+      
+      def post_add_content
+        if bar?
+          # delay this till all children rendered (perhaps post_add_content block)
+          parent_dom_element.css('position', 'relative')
+          parent_dom_element.css('margin-top', '30px')
+          redraw
+          `$(#{path}).menu({
+            position: { my: "top", at: "bottom" },
+            icons: { submenu: "ui-icon-blank" }
+          });`
+          the_element = dom_element
+          the_element.on('mouseover') { |event|
+            if event.page_x.between?(the_element.offset.left, the_element.offset.left + the_element.width) and
+               event.page_y.between?(the_element.offset.top, the_element.offset.top + the_element.height)
+              `$(#{path}).menu('option', 'position', { my: 'left top', at: 'left bottom' });`
+            end
+          }
+          the_element.on('menublur') {
+            `$(#{path}).menu('option', 'position', { my: 'left top', at: 'right top' });`
+          }
+          minimum_width = children.to_a.map(&:dom_element).map(&:width).reduce(:+)
+          the_element.css('min-width', minimum_width)
+        end
+      end
+      
+      def render(custom_parent_dom_element: nil, brand_new: false)
+        # TODO attach to top nav bar if parent is shell
+        # TODO attach listener to parent to display on right click
+        if parent.is_a?(MenuProxy) || parent.is_a?(MenuItemProxy) || parent.menu_requested? || parent.is_a?(ShellProxy)
+          super(custom_parent_dom_element: custom_parent_dom_element, brand_new: brand_new)
+          if root_menu? && !bar?
+            `$(#{path}).menu();`
+            @close_event_handler = lambda do |event|
+              close if event.target.parents('.ui-menu').empty?
+            end
+            Element['body'].on('click', &@close_event_handler)
+          end
+        end
+      end
+      
+      def close
+        dom_element.remove
+        Element['body'].off('click', &@close_event_handler)
+      end
+      
+      def root_menu?
+        !parent.is_a?(MenuProxy) && !parent.is_a?(MenuItemProxy)
+      end
+      
+      def root_menu
+        the_menu = self
+        the_menu = the_menu.parent_menu until the_menu.root_menu?
+        the_menu
+      end
+      
+      def parent_menu
+        parent.parent unless root_menu?
+      end
+      
+      def element
+        'ul'
+      end
+      
+      def dom
+        css_class = name
+        css_class += ' menu-bar' if bar?
+        css_class += ' menu-drop-down' if drop_down?
+        css_class += ' menu-pop-up' if pop_up?
+        @dom ||= html {
+          ul(id: id, class: css_class) {
+          }
+        }.to_s
+      end
+    end
+    
+    MenuBarProxy = MenuProxy
+  end
+end