shoes-swt 4.0.0.pre2

data/lib/shoes/swt/border.rb

@@ -0,0 +1,41 @@
+class Shoes
+  module Swt
+    class Border
+      extend Forwardable
+      include Common::Fill
+      include Common::Stroke
+      include Common::Remove
+      include Common::Visibility
+      include ::Shoes::BackendDimensionsDelegations
+
+      def_delegators :dsl, :angle
+
+      attr_reader :app, :dsl, :painter, :transform
+
+      def initialize(dsl, app)
+        @dsl = dsl
+        @app = app
+        @container = @app.real
+
+        @painter = Painter.new(self)
+        @app.add_paint_listener @painter
+      end
+
+      def corners
+        dsl.curve
+      end
+
+      class Painter < RectPainter
+
+        def fill_setup(gc)
+          # don't draw
+        end
+
+        def draw_setup(gc)
+          @obj.apply_stroke gc
+          true
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/button.rb

@@ -0,0 +1,18 @@
+class Shoes
+  module Swt
+    class Button < SwtButton
+      include Common::Child
+
+      # Create a button
+      #
+      # @param [Shoes::Button] dsl The Shoes DSL button this represents
+      # @param [::Swt::Widgets::Composite] parent The parent element of this button
+      # @param [Proc] blk The block of code to call when this button is activated
+      def initialize(dsl, parent)
+        super(dsl, parent, ::Swt::SWT::PUSH) do |button|
+          button.set_text @dsl.text
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/check.rb

@@ -0,0 +1,14 @@
+class Shoes
+  module Swt
+    class Check < CheckButton
+      # Create a check box
+      #
+      # @param [Shoes::Button] dsl The Shoes DSL check box this represents
+      # @param [::Swt::Widgets::Composite] parent The parent element of this button
+      # @param [Proc] blk The block of code to call when this button is activated
+      def initialize(dsl, parent)
+        super(dsl, parent, ::Swt::SWT::CHECK)
+      end
+    end
+  end
+end

data/lib/shoes/swt/check_button.rb

@@ -0,0 +1,19 @@
+class Shoes
+  module Swt
+    class CheckButton < SwtButton
+      include Common::Child
+
+      def initialize(dsl, parent, type)
+        super(dsl, parent, type)
+      end
+
+      def checked?
+        @real.get_selection
+      end
+
+      def checked=(bool)
+        @real.set_selection bool
+      end
+    end
+  end
+end

data/lib/shoes/swt/color.rb

@@ -0,0 +1,49 @@
+class Shoes
+  module Swt
+    class Color
+      include DisposedProtection
+
+      def self.create(color)
+        color ? new(color) : NullColor.new
+      end
+
+      # @param [Shoes::Color] color the DSL representation of this color
+      def initialize(color)
+        @dsl = color
+        @real = ::Swt::Graphics::Color.new(Shoes.display, @dsl.red, @dsl.green, @dsl.blue)
+      end
+
+      def dispose
+        @real.dispose unless @real.disposed?
+      end
+
+      attr_reader :dsl
+
+      # @return [Integer] the alpha value, from 0 (transparent) to 255 (opaque)
+      def alpha
+        @dsl.alpha
+      end
+
+      # @param [Swt::Graphics::GC] gc the graphics context on which to apply fill
+      # @note left, top, width, height, and angle are not used in this method, and only
+      #   exist to satisfy the Pattern interface
+      def apply_as_fill(gc, left = nil, top = nil, width = nil, height = nil, angle = nil)
+        gc.set_background real
+        gc.set_alpha alpha
+      end
+
+      # @param [Swt::Graphics::GC] gc the graphics context on which to apply stroke
+      def apply_as_stroke(gc, left = nil, top = nil, width = nil, height = nil, angle = nil)
+        gc.set_foreground real
+        gc.set_alpha alpha
+      end
+    end
+
+    class NullColor
+      attr_reader :alpha, :dsl, :real
+      def apply_as_fill(gc); end
+      def apply_as_stroke(gc); end
+    end
+  end
+end
+

data/lib/shoes/swt/color_factory.rb

@@ -0,0 +1,32 @@
+class Shoes
+  module Swt
+    # ColorFactory is used for tracking SWT-backed resources related to colors
+    # that potentially need to get disposed. It can additionally take gradients
+    # and maybe other values, though, so it can't assume values will be
+    # disposable.
+    #
+    # Additionally this factory does caching against the DSL element so we
+    # don't needlessly generate things like OS colors over and over again.
+    class ColorFactory
+      def initialize
+        @swt_elements = {}
+      end
+
+      def dispose
+        @swt_elements.each_value do |swt_element|
+          swt_element.dispose if swt_element.respond_to?(:dispose)
+        end
+        @swt_elements.clear
+      end
+
+      def create(element)
+        return nil if element.nil?
+        return @swt_elements[element] if @swt_elements.include?(element)
+
+        swt_element = ::Shoes.configuration.backend_for(element)
+        @swt_elements[element] = swt_element
+        swt_element
+      end
+    end
+  end
+end

data/lib/shoes/swt/common/child.rb

@@ -0,0 +1,16 @@
+class Shoes
+  module Swt
+    module Common
+      # Behavior for elements that act as children of other elements
+      module Child
+        # Finds the current app by asking parent elements, all the way
+        # up to the App
+        #
+        # @return [Shoes::Swt::App] The current app
+        def app
+          parent.app
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/common/clickable.rb

@@ -0,0 +1,68 @@
+class Shoes
+  module Swt
+    module Common
+      module Clickable
+
+        attr_accessor :click_listener
+
+        # object = self is there for compatibility reasons for now
+        # it's for link (defined in text.rb) and the listener is added in the
+        # swt/text_block.rb ... moving it around would be too hard now
+        def clickable(object = self, block)
+          add_listener_for object, ::Swt::SWT::MouseDown, block
+        end
+
+        def click(block)
+          remove_listener_for ::Swt::SWT::MouseDown
+          add_listener_for ::Swt::SWT::MouseDown, block
+        end
+
+        def release(block)
+          remove_listener_for ::Swt::SWT::MouseUp
+          add_listener_for ::Swt::SWT::MouseUp, block
+        end
+
+        private
+        def add_listener_for(swt_object = self, event, block)
+          # dsl objects take care of in bounds checking etc.
+          dsl_object = swt_object.dsl
+          listener = ClickListener.new(dsl_object, block)
+          swt_object.click_listener = listener
+          app.add_clickable_element dsl_object
+          app.add_listener event, listener
+        end
+
+        def remove_listener_for(swt_object = self, event)
+          dsl_object = swt_object.dsl
+          app.clickable_elements.delete(dsl_object)
+          app.remove_listener event, swt_object.click_listener
+        end
+
+        class ClickListener
+          include ::Swt::Widgets::Listener
+
+          def initialize(clickable_object, block)
+            @clickable_object = clickable_object
+            @block            = block
+          end
+
+          def handleEvent(mouse_event)
+            return if @clickable_object.respond_to?(:hidden?) && @clickable_object.hidden?
+            if @clickable_object.in_bounds?(mouse_event.x, mouse_event.y)
+              eval_block mouse_event
+            end
+          end
+
+          def eval_block(mouse_event)
+            if @clickable_object.pass_coordinates?
+              @block.call mouse_event.button, mouse_event.x, mouse_event.y
+            else
+              @block.call @clickable_object
+            end
+          end
+        end
+
+      end
+    end
+  end
+end

data/lib/shoes/swt/common/container.rb

@@ -0,0 +1,28 @@
+class Shoes
+  module Swt
+    module Common
+      # Container methods
+      module Container
+        # Adds a painter to be executed when this object needs to be
+        # repainted. Delegates to `@real`
+        #
+        # @param [Painter] painter The code to be executed on paint
+        def add_paint_listener(painter)
+          @real.add_paint_listener painter
+        end
+
+        def remove_paint_listener(painter)
+          @real.remove_paint_listener painter if painter
+        end
+
+        def add_listener(event, listener)
+          @real.add_listener event, listener
+        end
+
+        def remove_listener(event, listener)
+          @real.remove_listener event, listener if listener
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/common/fill.rb

@@ -0,0 +1,38 @@
+class Shoes
+  module Swt
+    module Common
+      # Methods for retrieving fill values from a Shoes DSL class
+      #
+      # @note Including classes must provide `#dsl`
+      module Fill
+        # This object's fill color
+        #
+        # @return [Swt::Graphics::Color] The Swt representation of this object's fill color
+        def fill
+          @color_factory ||= ::Shoes::Swt::ColorFactory.new
+          @color_factory.create(dsl.fill)
+        end
+
+        # This object's fill alpha value
+        #
+        # @return [Integer] The alpha value of this object's fill color (0-255)
+        def fill_alpha
+          fill.alpha
+        end
+
+        # @return [Integer] the angle to use when filling with a pattern
+        def angle
+          @angle || 0
+        end
+
+        def apply_fill(context)
+          if fill
+            left, top = self.is_a?(Star) ? [element_left - element_width/2.0, element_top - element_height/2.0] : [element_left, element_top]
+            fill.apply_as_fill(context, left, top, element_width, element_height, angle)
+            true
+          end
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/common/painter.rb

@@ -0,0 +1,92 @@
+class Shoes
+  module Swt
+    module Common
+      class Painter
+        include ::Swt::Events::PaintListener
+        include Resource
+
+        LINECAP = {
+          curve:   ::Swt::SWT::CAP_ROUND,
+          rect:    ::Swt::SWT::CAP_FLAT,
+          project: ::Swt::SWT::CAP_SQUARE
+        }
+
+        def initialize(obj)
+          @obj = obj
+        end
+
+        def paint_control(event)
+          graphics_context = event.gc
+          reset_graphics_context graphics_context
+          if @obj.dsl.visible? && @obj.dsl.positioned?
+            paint_object graphics_context
+          end
+        rescue => e
+          # Really important to rescue here. Failures that escape this method
+          # cause odd-ball hangs with no backtraces. See #559 for an example.
+          #
+          puts "SWALLOWED PAINT EXCEPTION ON #{@obj} - go take care of it: " + e.to_s
+          puts 'Unfortunately we have to swallow it because it causes odd failures :('
+        end
+
+        def paint_object(graphics_context)
+          cap = LINECAP[@obj.dsl.style[:cap]]
+          graphics_context.set_line_cap(cap) if cap
+          graphics_context.set_transform(@obj.transform)
+          obj = @obj.dsl
+          case obj
+            when ::Shoes::Oval, ::Shoes::Rect
+              set_rotate graphics_context, obj.rotate,
+                         obj.element_left + obj.element_width/2.0,
+                         obj.element_top + obj.element_height/2.0 do
+                fill graphics_context if fill_setup(graphics_context)
+                draw graphics_context if draw_setup(graphics_context)
+              end
+            else
+              fill graphics_context if fill_setup(graphics_context)
+              draw graphics_context if draw_setup(graphics_context)
+          end
+        end
+
+        # Override in subclass and return something falsy if not using fill
+        def fill_setup(graphics_context)
+          @obj.apply_fill(graphics_context)
+        end
+
+        # Implement in subclass
+        def fill(graphics_context)
+        end
+
+        # Override in subclass and return something falsy if not using draw
+        def draw_setup(graphics_context)
+          @obj.apply_stroke(graphics_context)
+        end
+
+        # Implement in subclass
+        def draw(graphics_context)
+        end
+
+        def set_rotate graphics_context, angle, left, top
+          angle, left, top = angle.to_i, left.to_i, top.to_i
+          if block_given?
+            begin
+              transform = ::Swt::Transform.new Shoes.display
+              reset_rotate transform, graphics_context, angle, left, top
+              yield
+              reset_rotate transform, graphics_context, -angle, left, top
+            ensure
+              transform.dispose unless transform.nil? || transform.disposed?
+            end
+          end
+        end
+
+        def reset_rotate transform, graphics_context, angle, left, top
+          transform.translate left, top
+          transform.rotate angle
+          transform.translate -left, -top
+          graphics_context.setTransform transform
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/common/painter_updates_position.rb

@@ -0,0 +1,12 @@
+class Shoes
+  module Swt
+    module Common
+      module PainterUpdatesPosition
+        # No-op. This object manages its own position with its own painter. The 
+        # painter is triggered automatically in the event loop.
+        def update_position
+        end
+      end
+    end
+  end
+end