glimmer 0.4.9 → 0.5.0

data/lib/glimmer/swt/g_layout_data.rb

@@ -1,56 +0,0 @@
-require_relative '../parent'
-require_relative 'g_swt'
-
-module Glimmer
-  module SWT
-    class GLayoutData
-      include_package 'org.eclipse.swt.layout'
-
-      include Parent
-
-      attr_reader :widget
-      attr_reader :layout_data
-
-      def initialize(widget, args)
-        @widget = widget
-        args = GSWT.constantify_args(args)
-        begin
-          @layout_data = swt_layout_data_class.new(*args)
-        rescue => e
-          Glimmer.logger.debug "#{e.message}\n#{e.backtrace.join("\n")}"
-          @layout_data = args.first if args.count == 1
-        end
-        @widget.setLayoutData(@layout_data)
-      end
-
-      def process_block(block)
-        block.call(self)
-      end
-
-      def swt_layout_data_class
-        parent_layout_class_name = @widget.getParent.getLayout.class.name
-        layout_data_class_name = parent_layout_class_name.sub(/Layout$/, 'Data')
-        eval(layout_data_class_name)
-      end
-
-      def has_attribute?(attribute_name, *args)
-        @layout_data.respond_to?(attribute_setter(attribute_name), args)
-      end
-
-      def set_attribute(attribute_name, *args)
-        apply_property_type_converters(attribute_name, args)
-        @layout_data.send(attribute_setter(attribute_name), *args)
-      end
-
-      def apply_property_type_converters(attribute_name, args)
-        if args.count == 1 && GSWT.has_constant?(args.first)
-          args[0] = GSWT.constant(args.first)
-        end
-      end
-
-      def attribute_setter(attribute_name)
-        "#{attribute_name.to_s.camelcase(:lower)}="
-      end
-    end
-  end
-end

data/lib/glimmer/swt/g_runnable.rb

@@ -1,15 +0,0 @@
-module Glimmer
-  module SWT
-    class GRunnable
-      include java.lang.Runnable
-
-      def initialize(&block)
-        @block = block
-      end
-
-      def run
-        @block.call
-      end
-    end
-  end
-end

data/lib/glimmer/swt/g_shell.rb

@@ -1,106 +0,0 @@
-require_relative 'g_widget'
-require_relative 'g_display'
-
-module Glimmer
-  module SWT
-    class GShell < GWidget
-      WIDTH_MIN = 130
-      HEIGHT_MIN = 0
-
-      include_package 'org.eclipse.swt.layout'
-      include_package 'org.eclipse.swt.widgets'
-
-      attr_reader :display, :opened_before
-      alias opened_before? opened_before
-
-      # Instantiates shell with same arguments expected by SWT Shell
-      def initialize(*args)
-        if !args.first.is_a?(Display) && !args.first.is_a?(Shell)
-          @display = GDisplay.instance.display
-          args = [@display] + args
-        end
-        args = GSWT.constantify_args(args)
-        @widget = Shell.new(*args)
-        @display ||= @widget.getDisplay
-        @widget.setLayout(FillLayout.new)
-        @widget.setMinimumSize(WIDTH_MIN, HEIGHT_MIN)
-      end
-
-      # Centers shell within screen
-      def center
-        primary_monitor = @display.getPrimaryMonitor()
-        monitor_bounds = primary_monitor.getBounds()
-        shell_bounds = @widget.getBounds()
-        location_x = monitor_bounds.x + (monitor_bounds.width - shell_bounds.width) / 2
-        location_y = monitor_bounds.y + (monitor_bounds.height - shell_bounds.height) / 2
-        @widget.setLocation(location_x, location_y)
-      end
-
-      # Opens shell and starts SWT's UI thread event loop
-      def open
-        if @opened_before
-          @widget.setVisible(true)
-          # notify_observers('visible')
-        else
-          @opened_before = true
-          @widget.pack
-          center
-          @widget.open
-          # NOTE: the following line runs after scheduled sync exec events,
-          # but ensures visible status is only updated upon true visibility
-          # async_exec do
-            # notify_observers('visible')
-          # end
-          start_event_loop
-        end
-      end
-      alias show open
-
-      def hide
-        @widget.setVisible(false)
-        # notify_observers('visible')
-      end
-
-      def close
-        @widget.close
-        # notify_observers('visible')
-      end
-
-      # TODO implement and notify_observers('visible') based on open and hide
-
-      def visible?
-        @widget.isDisposed ? false : @widget.isVisible
-      end
-
-      # TODO evaluate if this is needed
-
-      def visible=(visibility)
-        visibility ? show : hide
-      end
-
-      def start_event_loop
-        until @widget.isDisposed
-          @display.sleep unless @display.readAndDispatch
-        end
-        @display.dispose
-      end
-
-      def add_observer(observer, property_name)
-        case property_name.to_s
-        when 'visible?'
-          @widget.addListener(GSWT[:show]) do |event|
-            observer.call(visible?)
-          end
-          @widget.addListener(GSWT[:hide]) do |event|
-            observer.call(visible?)
-          end
-          @widget.addListener(GSWT[:close]) do |event|
-            observer.call(visible?)
-          end
-        else
-          super
-        end
-      end
-    end
-  end
-end

data/lib/glimmer/swt/g_tab_item_composite.rb

@@ -1,41 +0,0 @@
-require File.dirname(__FILE__) + "/g_runnable"
-
-module Glimmer
-  module SWT
-    class GTabItemComposite < GWidget
-      include_package 'org.eclipse.swt.widgets'
-
-      attr_reader :tab_item
-      def initialize(tab_item, parent, style, &contents)
-        super("composite", parent, style, &contents)
-        @tab_item = tab_item
-        @tab_item.widget.control = self.widget
-      end
-
-      def has_attribute?(attribute_name, *args)
-        if attribute_name.to_s == "text"
-          true
-        else
-          super(attribute_name, *args)
-        end
-      end
-
-      def set_attribute(attribute_name, *args)
-        if attribute_name.to_s == "text"
-          text_value = args[0]
-          @tab_item.widget.text = text_value
-        else
-          super(attribute_name, *args)
-        end
-      end
-
-      def get_attribute(attribute_name)
-        if attribute_name.to_s == "text"
-          @tab_item.widget.text
-        else
-          super(attribute_name)
-        end
-      end
-    end
-  end
-end

data/lib/glimmer/swt/g_widget.rb

@@ -1,349 +0,0 @@
-require_relative 'g_widget_listener'
-require_relative 'g_runnable'
-require_relative 'g_color'
-require_relative 'g_font'
-require_relative 'g_swt'
-require_relative '../parent'
-
-module Glimmer
-  module SWT
-    class GWidget
-      include_package 'org.eclipse.swt'
-      include_package 'org.eclipse.swt.widgets'
-      include_package 'org.eclipse.swt.layout'
-      include_package 'org.eclipse.swt.graphics'
-      include_package 'org.eclipse.swt.browser'
-
-      include Glimmer # TODO consider removing when no longer needed
-      include Parent
-
-      attr_reader :widget
-
-      #TODO externalize
-      @@default_styles = {
-        "text" => GSWT[:border],
-        "table" => GSWT[:border],
-        "spinner" => GSWT[:border],
-        "list" => GSWT[:border, :v_scroll],
-        "button" => GSWT[:push],
-      }
-
-      #TODO externalize
-      @@default_initializers = {
-        "composite" => Proc.new {|composite| composite.setLayout(GridLayout.new) },
-        "table" => Proc.new do |table|
-          table.setHeaderVisible(true)
-          table.setLinesVisible(true)
-        end,
-        "table_column" => Proc.new { |table_column| table_column.setWidth(80) },
-        "group" => Proc.new {|group| group.setLayout(GridLayout.new) },
-      }
-
-      #styles is a comma separate list of symbols representing SWT styles in lower case
-      def initialize(underscored_widget_name, parent, styles, &contents)
-        @widget = self.class.swt_widget_class_for(underscored_widget_name).new(parent, style(underscored_widget_name, styles))
-        @@default_initializers[underscored_widget_name].call(@widget) if @@default_initializers[underscored_widget_name]
-      end
-
-      def widget_custom_attribute_mapping
-        @widget_custom_attribute_mapping ||= {
-          'focus' => {
-            getter: {name: 'isFocusControl'},
-            setter: {name: 'setFocus', invoker: lambda { |widget, args| widget.setFocus if args.first }},
-          }
-        }
-      end
-
-      def has_attribute?(attribute_name, *args)
-        widget_custom_attribute = widget_custom_attribute_mapping[attribute_name.to_s]
-        if widget_custom_attribute
-          @widget.respond_to?(widget_custom_attribute[:setter][:name])
-        else
-          @widget.respond_to?(attribute_setter(attribute_name), args)
-        end
-      end
-
-      def set_attribute(attribute_name, *args)
-        widget_custom_attribute = widget_custom_attribute_mapping[attribute_name.to_s]
-        if widget_custom_attribute
-          widget_custom_attribute[:setter][:invoker].call(@widget, args)
-        else
-          apply_property_type_converters(attribute_name, args)
-          @widget.send(attribute_setter(attribute_name), *args)
-        end
-      end
-
-      def get_attribute(attribute_name)
-        widget_custom_attribute = widget_custom_attribute_mapping[attribute_name.to_s]
-        if widget_custom_attribute
-          @widget.send(widget_custom_attribute[:getter][:name])
-        else
-          @widget.send(attribute_getter(attribute_name))
-        end
-      end
-
-      def property_type_converters
-        color_converter = Proc.new do |value|
-          if value.is_a?(Symbol) || value.is_a?(String)
-            GColor.color_for(widget.getDisplay, value)
-          else
-            value
-          end
-        end
-        @property_type_converters ||= {
-          :text => Proc.new { |value| value.to_s },
-          :items => Proc.new { |value| value.to_java :string},
-          :visible => Proc.new { |value| !!value},
-          :background => color_converter,
-          :background_image => Proc.new do |value|
-            if value.is_a?(String)
-              image_data = ImageData.new(value)
-              # TODO in the future, look into unregistering this listener when no longer needed
-              on_event_Resize do |resize_event|
-                new_image_data = image_data.scaledTo(widget.getSize.x, widget.getSize.y)
-                widget.getBackgroundImage&.dispose
-                widget.setBackgroundImage(Image.new(widget.getDisplay, new_image_data))
-              end
-              Image.new(widget.getDisplay, image_data)
-            else
-              value
-            end
-          end,
-          :foreground => color_converter,
-          :font => Proc.new do |value|
-            if value.is_a?(Hash)
-              font_properties = value
-              GFont.for(self).font(font_properties)
-            else
-              value
-            end
-          end,
-        }
-      end
-
-      def widget_property_listener_installers
-        @widget_property_listener_installers ||= {
-          Java::OrgEclipseSwtWidgets::Control => {
-            :focus => Proc.new do |observer|
-              add_contents(self) {
-                on_focus_gained { |focus_event|
-                  observer.call(true)
-                }
-                on_focus_lost { |focus_event|
-                  observer.call(false)
-                }
-              }
-            end,
-          },
-          Java::OrgEclipseSwtWidgets::Text => {
-            :text => Proc.new do |observer|
-              add_contents(self) {
-                on_modify_text { |modify_event|
-                  observer.call(widget.getText)
-                }
-              }
-            end,
-          },
-          Java::OrgEclipseSwtWidgets::Button => {
-            :selection => Proc.new do |observer|
-              add_contents(self) {
-                on_widget_selected { |selection_event|
-                  observer.call(widget.getSelection)
-                }
-              }
-            end
-          },
-          Java::OrgEclipseSwtWidgets::Spinner => {
-            :selection => Proc.new do |observer|
-              add_contents(self) {
-                on_widget_selected { |selection_event|
-                  observer.call(widget.getSelection)
-                }
-              }
-            end
-          }
-        }
-      end
-
-      def apply_property_type_converters(attribute_name, args)
-        if args.count == 1
-          value = args.first
-          converter = property_type_converters[attribute_name.to_sym]
-          args[0] = converter.call(value) if converter
-        end
-        if args.count == 1 && args.first.is_a?(GColor)
-          g_color = args.first
-          g_color.display = widget.display if g_color.display.nil? || g_color.display != widget.display
-          args[0] = g_color.color
-        end
-      end
-
-      def self.widget_exists?(underscored_widget_name)
-        !!swt_widget_class_for(underscored_widget_name)
-      end
-
-      # This supports widgets in and out of basic SWT
-      def self.swt_widget_class_for(underscored_widget_name)
-        swt_widget_name = underscored_widget_name.camelcase(:upper)
-        swt_widget_class = eval(swt_widget_name)
-        unless swt_widget_class.ancestors.include?(org.eclipse.swt.widgets.Widget)
-          Glimmer.logger.debug("Class #{swt_widget_class} matching #{underscored_widget_name} is not a subclass of org.eclipse.swt.widgets.Widget")
-          return nil
-        end
-        swt_widget_class
-      rescue NameError => e
-        Glimmer.logger.debug("#{e.message}\n#{e.backtrace.join("\n")}")
-        nil
-      rescue => e
-        Glimmer.logger.debug("#{e.message}\n#{e.backtrace.join("\n")}")
-        nil
-      end
-
-      # TODO refactor following methods to eliminate duplication
-      # perhaps consider relying on raising an exception to avoid checking first
-      # unless that gives obscure SWT errors
-      # Otherwise, consider caching results from can_add_lsitener and using them in
-      # add_listener knowing it will be called for sure afterwards
-
-      def can_add_listener?(underscored_listener_name)
-        listener_method_name = underscored_listener_name.camelcase(:lower)
-        @widget.getClass.getMethods.each do |widget_method|
-          if widget_method.getName.match(/add.*Listener/)
-            widget_method.getParameterTypes.each do |listener_type|
-              listener_type.getMethods.each do |listener_method|
-                if (listener_method.getName == listener_method_name)
-                  return true
-                end
-              end
-            end
-          end
-        end
-        return false
-      end
-
-      def add_listener(underscored_listener_name, &block)
-        listener_method_name = underscored_listener_name.camelcase(:lower)
-        @widget.getClass.getMethods.each do |widget_method|
-          if widget_method.getName.match(/add.*Listener/)
-            widget_method.getParameterTypes.each do |listener_type|
-              listener_type.getMethods.each do |listener_method|
-                if (listener_method.getName == listener_method_name)
-                  listener_class = Class.new(Object)
-                  listener_class.send :include, (eval listener_type.to_s.sub("interface", ""))
-                  listener = listener_class.new
-                  listener_type.getMethods.each do |t_method|
-                    eval "def listener.#{t_method.getName}(event) end"
-                  end
-                  def listener.block=(block)
-                    @block = block
-                  end
-                  listener.block=block
-                  eval "def listener.#{listener_method.getName}(event) @block.call(event) if @block end"
-                  @widget.send(widget_method.getName, listener)
-                  return GWidgetListener.new(listener)
-                end
-              end
-            end
-          end
-        end
-      end
-
-      def process_block(block)
-        block.call(self)
-      end
-
-      def async_exec(&block)
-        GDisplay.instance.async_exec(&block)
-      end
-
-      def sync_exec(&block)
-        GDisplay.instance.sync_exec(&block)
-      end
-
-      def has_style?(style)
-        (widget.style & GSWT[style]) == GSWT[style]
-      end
-
-      def dispose
-        @widget.dispose
-      end
-
-      # TODO Consider renaming these methods as they are mainly used for data-binding
-
-      def can_add_observer?(property_name)
-        @widget.class.ancestors.map {|ancestor| widget_property_listener_installers[ancestor]}.compact.map(&:keys).flatten.map(&:to_s).include?(property_name.to_s)
-      end
-
-      def add_observer(observer, property_name)
-        property_listener_installers = @widget.class.ancestors.map {|ancestor| widget_property_listener_installers[ancestor]}.compact
-        widget_listener_installers = property_listener_installers.map{|installer| installer[property_name.to_s.to_sym]}.compact if !property_listener_installers.empty?
-        widget_listener_installers.each do |widget_listener_installer|
-          widget_listener_installer.call(observer)
-        end
-      end
-
-      def remove_observer(observer, property_name)
-        # TODO consider implementing if remove_observer is needed (consumers can remove listener via SWT API)
-      end
-
-      # TODO eliminate duplication in the following methods perhaps by relying on exceptions
-
-      def can_handle_observation_request?(observation_request)
-        observation_request = observation_request.to_s
-        if observation_request.start_with?('on_event_')
-          constant_name = observation_request.sub(/^on_event_/, '')
-          GSWT.has_constant?(constant_name)
-        elsif observation_request.start_with?('on_')
-          event = observation_request.sub(/^on_/, '')
-          can_add_listener?(event)
-        else
-          false
-        end
-      end
-
-      def handle_observation_request(observation_request, &block)
-        if observation_request.start_with?('on_event_')
-          constant_name = observation_request.sub(/^on_event_/, '')
-          @widget.addListener(GSWT[constant_name], &block)
-        elsif observation_request.start_with?('on_')
-          event = observation_request.sub(/^on_/, '')
-          add_listener(event, &block)
-        end
-        nil
-      end
-
-      def method_missing(method, *args, &block)
-        method_name = method.to_s
-        if can_handle_observation_request?(method_name)
-          handle_observation_request(method_name, &block)
-        else
-          super
-        end
-      end
-
-      def add_content(&block)
-        Glimmer.add_contents(self, &block)
-      end
-
-      private
-
-      def style(underscored_widget_name, styles)
-        styles.empty? ? default_style(underscored_widget_name) : GSWT[*styles]
-      end
-
-      def default_style(underscored_widget_name)
-        style = @@default_styles[underscored_widget_name] if @@default_styles[underscored_widget_name]
-        style = GSWT[:none] unless style
-        style
-      end
-
-      def attribute_setter(attribute_name)
-        "set#{attribute_name.to_s.camelcase(:upper)}"
-      end
-
-      def attribute_getter(attribute_name)
-        "get#{attribute_name.to_s.camelcase(:upper)}"
-      end
-    end
-  end
-end