glimmer-dsl-opal 0.0.9 → 0.5.0

data/lib/glimmer/swt/style_constantizable.rb

@@ -0,0 +1,154 @@
+# 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/error'
+
+module Glimmer
+  module SWT
+    # Mixin for all proxy classes that manage style constants (e.g. SWT, DND, etc...)
+    module StyleConstantizable
+      module ClassMethods
+        REGEX_SYMBOL_NEGATIVITY = /^([^!]+)(!)?$/
+      
+        def constant_source_class
+          raise 'Not implemented! Mixer must implement!'
+        end
+ 
+        def constant_value_none
+          # TODO instead of raising error try a convention instead like CLASSNAME::NONE by default
+          raise 'Not implemented! Mixer must implement!'
+        end
+        
+        # hash of extra styles (i.e. new style combinations)
+        def extra_styles
+          raise 'Not implemented! Mixer must implement!'
+        end
+                
+        def error_message_invalid_style
+          " is an invalid #{constant_source_class.name.split(':').last} style! Please choose a style from #{constant_source_class.name} class constants." # TODO parameterize
+        end
+
+        # Gets constants (e.g. SWT::CONSTANT) where constant is
+        # passed in as a lower case symbol
+        def [](*symbols)
+          symbols = symbols.first if symbols.size == 1 && symbols.first.is_a?(Array)
+          result = symbols.compact.map do |symbol|
+            constant(symbol).tap do |constant_value|
+              raise Glimmer::Error, symbol.to_s + error_message_invalid_style unless constant_value.is_a?(Integer)
+            end
+          end.reduce do |output, constant_value|
+            if constant_value < 0
+              output & constant_value
+            else
+              output | constant_value
+            end
+          end
+          result.nil? ? constant_value_none : result
+        end
+
+        # Returns style integer value for passed in symbol or allows
+        # passed in object to pass through (e.g. Integer). This makes is convenient
+        # to use symbols or actual style integers in Glimmer
+        # Does not raise error for invalid values. Just lets them pass as is.
+        # (look into [] operator if you want an error raised on invalid values)
+        def constant(symbol)
+          return symbol unless symbol.is_a?(Symbol) || symbol.is_a?(String)
+          symbol_string, negative = extract_symbol_string_negativity(symbol)
+          swt_constant_symbol = symbol_string.downcase == symbol_string ? symbol_string.upcase.to_sym : symbol_string.to_sym
+          bit_value = constant_source_class.const_get(swt_constant_symbol)
+          negative ? ~bit_value : bit_value
+        rescue => e
+          begin
+#             Glimmer::Config.logger.debug {e.full_message}
+            alternative_swt_constant_symbol = constant_source_class.constants.find {|c| c.to_s.upcase == swt_constant_symbol.to_s.upcase}
+            bit_value = constant_source_class.const_get(alternative_swt_constant_symbol)
+            negative ? ~bit_value : bit_value
+          rescue => e
+#             Glimmer::Config.logger.debug {e.full_message}
+            bit_value = extra_styles[swt_constant_symbol]
+            if bit_value
+              negative ? ~bit_value : bit_value
+            else
+              symbol
+            end
+          end
+        end
+        
+        def extract_symbol_string_negativity(symbol)
+          if symbol.is_a?(Symbol) || symbol.is_a?(String)
+            symbol_negativity_match = symbol.to_s.match(REGEX_SYMBOL_NEGATIVITY)
+            symbol = symbol_negativity_match[1]
+            negative = !!symbol_negativity_match[2]
+            [symbol, negative]
+          else
+            negative = symbol < 0
+            [symbol, negative]
+          end
+         end
+
+        def negative?(symbol)
+          extract_symbol_string_negativity(symbol)[1]
+        end
+
+        def has_constant?(symbol)
+          return false unless symbol.is_a?(Symbol) || symbol.is_a?(String)
+          constant(symbol).is_a?(Integer)
+        end
+
+        def constantify_args(args)
+          args.map {|arg| constant(arg)}
+        end
+
+        # Deconstructs a style integer into symbols
+        # Useful for debugging
+        def deconstruct(integer)
+          constant_source_class.constants.reduce([]) do |found, c|
+            constant_value = constant_source_class.const_get(c) rescue -1
+            is_found = constant_value.is_a?(Integer) && (integer & constant_value) == integer
+            is_found ? found += [c] : found
+          end
+        end
+
+        # Reverse engineer a style integer into a symbol
+        # Useful for debugging
+        def reverse_lookup(integer)
+          constant_source_class.constants.reduce([]) do |found, c|
+            constant_value = constant_source_class.const_get(c) rescue -1
+            is_found = constant_value.is_a?(Integer) && integer == constant_value
+            is_found ? found += [c] : found
+          end
+        end
+
+        def include?(swt_constant, *symbols)
+          swt_constant & self[symbols] == self[symbols]
+        end
+        
+      end
+      
+      def self.included(klass)
+        klass.extend(ClassMethods)
+      end
+      
+    end
+    
+  end
+  
+end

data/lib/glimmer/swt/styled_text_proxy.rb

@@ -0,0 +1,44 @@
+require 'glimmer/swt/widget_proxy'
+require 'glimmer/swt/text_proxy'
+require 'glimmer/swt/swt_proxy'
+
+module Glimmer
+  module SWT
+    class StyledTextProxy < TextProxy
+      attr_reader :alignment, :right_margin, :editable, :caret
+      
+      def alignment=(value)
+        @alignment = %w[left center right].detect {|alignment_value| SWTProxy[alignment_value] == value}
+        dom_element.css('text-align', @alignment)
+      end
+      
+      def right_margin=(value)
+        @right_margin = value.to_i
+        dom_element.css('padding-right', @right_margin)
+      end
+      
+      def editable=(value)
+        @editable = value
+        if !@editable
+          dom_element.attr('disabled', true)
+          dom_element.css('background', :white)
+          dom_element.css('border', 'solid 1px rgb(118, 118, 118)')
+          dom_element.css('border-radius', '3px')
+          # :hover {
+          #     border-color: rgb(80, 80, 80);
+          # }        
+        else
+          dom_element.prop('disabled', false)
+          dom_element.css('background', nil)
+          dom_element.css('border', nil)
+          dom_element.css('border-radius', nil)
+        end
+      end
+      
+      def caret=(value)
+        @caret = value
+        # TODO implement (not needed for disabling caret though)
+      end
+    end
+  end
+end

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/element_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,42 +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
       
-      def redraw
-        super()
-        @children.each do |child|
-          add_child(child) # TODO think of impact of this on performance
-        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/{opal/table_column.rb → swt/table_column_proxy.rb}

@@ -1,9 +1,10 @@
-require 'glimmer/opal/element_proxy'
+require 'glimmer/swt/widget_proxy'
 
 module Glimmer
-  module Opal
-    class TableColumn < ElementProxy
+  module SWT
+    class TableColumnProxy < WidgetProxy
       include Glimmer
+      
       attr_reader :text, :width      
       
       def text=(value)
@@ -16,13 +17,17 @@ module Glimmer
         redraw
       end
       
+      def parent_path
+        parent.columns_path
+      end
+      
       def css
         <<~CSS
-          width: #{width};
+          width: #{width}px;
         CSS
       end
     
-      def name
+      def element
         'th'
       end
       
@@ -39,11 +44,12 @@ module Glimmer
         table_column_id = id
         table_column_id_style = css
         table_column_css_classes = css_classes
-        @dom ||= DOM {
+        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