shoes-swt 4.0.0.pre2

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

@@ -0,0 +1,30 @@
+class Shoes
+  module Swt
+    module Common
+      module Remove
+        def remove
+          app.remove_paint_listener @painter
+          remove_click_listeners
+          @real.dispose unless @real.nil? || @real.disposed?
+          dispose_held_resources
+          dispose
+        end
+
+        def dispose_held_resources
+          @color_factory.dispose unless @color_factory.nil?
+        end
+
+        # Classes should override to dispose of any Swt resources they create
+        def dispose
+        end
+
+        private
+        def remove_click_listeners
+          app.remove_listener ::Swt::SWT::MouseDown, @click_listener
+          app.remove_listener ::Swt::SWT::MouseUp, @click_listener
+          app.clickable_elements.delete self.dsl
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,29 @@
+class Shoes
+  module Swt
+    module Common
+      module Resource
+        def reset_graphics_context(graphics_context)
+          dispose_previous_contexts
+          set_defaults_on_context(graphics_context)
+          track_graphics_context(graphics_context)
+        end
+
+        def dispose_previous_contexts
+          @graphic_contexts ||= []
+          @graphic_contexts.each{|g| g.dispose if g}
+          @graphic_contexts.clear
+        end
+
+        def set_defaults_on_context(graphics_context)
+          graphics_context.set_antialias(::Swt::SWT::ON)
+          graphics_context.set_line_cap(::Swt::SWT::CAP_FLAT)
+          graphics_context.set_transform(nil)
+        end
+
+        def track_graphics_context(graphics_context)
+          @graphic_contexts << graphics_context
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,14 @@
+class Shoes
+  module Swt
+    class SelectionListener
+
+      def initialize radio, &blk
+        @radio = radio
+        @blk = blk
+      end
+      def widget_selected event
+        @blk.call @radio, event
+      end
+    end
+  end
+end

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

@@ -0,0 +1,42 @@
+class Shoes
+  module Swt
+    module Common
+      # Methods for retrieving stroke values from a Shoes DSL class
+      #
+      # @note Including classes must provide `#dsl`
+      module Stroke
+        # This object's stroke color
+        #
+        # @return [Swt::Graphics::Color] The Swt representation of this object's stroke color
+        def stroke
+          @color_factory ||= ::Shoes::Swt::ColorFactory.new
+          @color_factory.create(dsl.stroke)
+        end
+
+        # This object's stroke alpha value
+        #
+        # @return [Integer] The alpha value of this object's stroke color (0-255)
+        def stroke_alpha
+          dsl.stroke.alpha if dsl.stroke
+        end
+
+        # This object's strokewidth
+        #
+        # @return [Integer] This object's strokewidth
+        def strokewidth
+          dsl.strokewidth
+        end
+
+
+        def apply_stroke(context)
+          if stroke
+            l, t = self.is_a?(Star) ? [element_left - element_width/2.0, element_top - element_height/2.0] : [element_left, element_top]
+            stroke.apply_as_stroke(context, l, t, element_width, element_height, angle)
+            context.set_line_width strokewidth
+            true
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,15 @@
+class Shoes
+  module Swt
+    module Common
+      module UpdatePosition
+        # Updates the position of this object. This object does not have its
+        # own painter, so we need to update the position manually.
+        def update_position
+          unless @real.disposed?
+            @real.set_location dsl.element_left, dsl.element_top
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,13 @@
+class Shoes
+  module Swt
+    module Common
+      module Visibility
+        def update_visibility
+          if @real && @real.respond_to?(:set_visible)
+            @real.set_visible(@dsl.visible?)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/dialog.rb

@@ -0,0 +1,90 @@
+class Shoes
+  module Swt
+    class Dialog
+      SWT = ::Swt::SWT
+      ALERT_STYLE   = SWT::OK | SWT::ICON_INFORMATION
+      CONFIRM_STYLE = SWT::YES | SWT::NO | SWT::ICON_QUESTION
+
+      def alert(msg = '')
+        open_message_box ALERT_STYLE, msg
+        nil
+      end
+
+      def confirm(msg = '')
+        answer_id = open_message_box CONFIRM_STYLE, msg
+        confirmed? answer_id
+      end
+
+      def dialog_chooser title, folder=false
+        style = ::Swt::SWT::OPEN
+        shell = ::Swt::Widgets::Shell.new Shoes.display
+        fd = folder ? ::Swt::Widgets::DirectoryDialog.new(shell, style) : ::Swt::Widgets::FileDialog.new(shell, style)
+        fd.setText title
+        fd.open
+      end
+
+      def ask msg, args
+        Swt::AskDialog.new(::Swt::Widgets::Shell.new, msg, args).open
+      end
+
+      def ask_color title
+        shell = ::Swt::Widgets::Shell.new Shoes.display
+        cd = ::Swt::Widgets::ColorDialog.new shell
+        cd.setText title
+        color = cd.open
+        color ? ::Shoes::Color.new(color.red, color.green, color.blue, ::Shoes::Color::OPAQUE) : ::Shoes::Color.new(0, 0, 0, ::Shoes::Color::OPAQUE)
+      end
+
+      private
+      def open_message_box(style, msg)
+        shell = ::Swt::Widgets::Shell.new ::Swt.display
+        @message_box = ::Swt::Widgets::MessageBox.new shell, style
+        @message_box.message = msg.to_s
+        @message_box.open
+      end
+
+      def confirmed?(answer_id)
+        answer_id == SWT::YES
+      end
+    end
+
+    class AskDialog < ::Swt::Widgets::Dialog
+      def initialize shell, msg, args
+        @shell, @msg, @args= shell, msg, args
+        super shell
+      end
+
+      def open
+        display = getParent.getDisplay
+        icon = ::Swt::Graphics::Image.new display, ::Shoes::Swt::ICON
+        @shell.setImage icon
+        @shell.setSize 300, 125
+        @shell.setText 'Shoes 4 asks:'
+        label = ::Swt::Widgets::Label.new @shell, ::Swt::SWT::NONE
+        label.setText @msg
+        label.setLocation 10, 10
+        label.pack
+        styles = @args[:secret] ? ::Swt::SWT::BORDER | ::Swt::SWT::SINGLE | ::Swt::SWT::PASSWORD : ::Swt::SWT::BORDER | ::Swt::SWT::SINGLE
+        text = ::Swt::Widgets::Text.new @shell, styles
+        text.setLocation 10, 30
+        text.setSize 270, 20
+        b = ::Swt::Widgets::Button.new @shell, ::Swt::SWT::NULL
+        b.setText 'OK'
+        b.setLocation 180, 55
+        b.pack
+        b.addSelectionListener{|e| @ret = text.getText; @shell.close}
+        b = ::Swt::Widgets::Button.new @shell, ::Swt::SWT::NULL
+        b.setText 'CANCEL'
+        b.setLocation 222, 55
+        b.pack
+        b.addSelectionListener{|e| @ret = nil; @shell.close}
+        @shell.open
+        while !@shell.isDisposed do
+          display.sleep unless display.readAndDispatch
+        end
+        icon.dispose
+        @ret
+      end
+    end
+  end
+end

data/lib/shoes/swt/disposed_protection.rb

@@ -0,0 +1,23 @@
+class Shoes
+  module Swt
+    module DisposedProtection
+      def real
+        return NullObject.new(@real) if @real.disposed?
+        @real
+      end
+
+      class NullObject < BasicObject
+        def initialize(real)
+          @real = real
+        end
+
+        def respond_to?(method)
+          @real.respond_to? method
+        end
+
+        def method_missing(method, *args)
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/download.rb

@@ -0,0 +1,24 @@
+class Shoes
+  module Swt
+    class Download
+      
+      attr_accessor :busy
+      def initialize(_dsl)
+        @busy = false
+      end
+
+      # This exists to guarantee the callback block for download completion
+      # executes on the main UI thread. Without it we get thread access errors.
+      def eval_block(blk, result)
+        ::Swt.display.asyncExec do
+          blk.call result
+          @busy = false
+        end
+      end
+
+      def busy?
+        @busy
+      end
+    end
+  end
+end

data/lib/shoes/swt/font.rb

@@ -0,0 +1,32 @@
+class Shoes
+
+  module Swt
+    module Font
+      class << self
+        def add_font(path)
+          if File.exist? path
+            ::Shoes::Font.add_font_to_fonts(path) if load_font(path)
+          end
+        end
+
+        def initial_fonts
+          load_shoes_fonts #system fonts are loaded automatically by SWT
+          ::Swt.display.get_font_list(nil, true).map(&:name)
+        end
+
+        private
+        def load_font(path)
+          ::Swt.display.load_font path
+        end
+
+        def load_shoes_fonts
+          ::Shoes::Font.font_paths_from_dir(::Shoes::FONT_DIR).each do |font_path|
+            add_font font_path
+          end
+        end
+      end
+    end
+  end
+
+  ::Shoes::Font.initial_fonts.each {|font| Shoes::FONTS << font}
+end

data/lib/shoes/swt/gradient.rb

@@ -0,0 +1,92 @@
+class Shoes
+  module Swt
+    class Gradient
+      include Common::Remove
+
+      def initialize(dsl)
+        @dsl = dsl
+        @patterns = []
+      end
+
+      def dispose
+        @color1.dispose if @color1
+        @color2.dispose if @color2
+
+        @patterns.each do |pattern|
+          pattern.dispose unless pattern.disposed?
+        end
+      end
+
+      def color1
+        @color1 ||= Color.create @dsl.color1
+      end
+
+      def color2
+        @color2 ||= Color.create @dsl.color2
+      end
+
+      def alpha
+        @dsl.alpha
+      end
+
+      def apply_as_fill(gc, left, top, width, height, angle = 0)
+        pattern = create_pattern(left, top, width, height, -angle)
+        gc.set_background_pattern pattern
+      end
+
+      def apply_as_stroke(gc, left, top, width, height, angle = 0)
+        pattern = create_pattern(left, top, width, height, -angle)
+        gc.set_foreground_pattern pattern
+      end
+
+      private
+      def create_pattern left, top, width, height, angle
+        width  = width * 0.5
+        height = height * 0.5
+        angle  = normalize_angle(angle)
+        left, top, width, height  = determine_args_based_on_angle(angle, left, top, width, height)
+
+        pattern = ::Swt::Pattern.new Shoes.display, left, top, width, height, color1.real, color2.real
+        @patterns << pattern
+        pattern
+      end
+
+      def normalize_angle(angle)
+        angle = Math::PI * (angle/180.0)
+        angle % (Math::PI*2.0)
+      end
+
+      def determine_args_based_on_angle(angle, left, top, width, height)
+        x, y = calculate_x_and_y(angle, height, width)
+        if 0 <= angle and angle < Math::PI*0.5
+          args = [left+width+x, top+height-y, left+width-x, top+height+y]
+        elsif Math::PI*0.5 <= angle and angle < Math::PI
+          args = [left+width+y, top+height+x, left+width-y, top+height-x]
+        elsif Math::PI <= angle and angle < Math::PI*1.5
+          args = [left+width-x, top+height+y, left+width+x, top+height-y]
+        elsif Math::PI*1.5 <= angle and angle < Math::PI*2.0
+          args = [left+width-y, top+height-x, left+width+y, top+height+x]
+        end
+        args
+      end
+
+      def calculate_x_and_y(angle, height, width)
+        if angle % Math::PI >= (Math::PI * 0.5)
+          my_width = height
+          my_height = width
+        else
+          my_width = width
+          my_height = height
+        end
+        my_angle = angle % (Math::PI * 0.5)
+        length = Math.sqrt(my_width**2 + my_height**2)
+        b      = (my_height==0 and my_width==0) ? 0 : Math.atan(my_height/my_width)
+        c      = Math::PI*0.5 - my_angle - b
+        r      = length * Math.cos(c.abs)
+        x      = r * Math.cos(b+c)
+        y      = r * Math.sin(b+c)
+        return x, y
+      end
+    end
+  end
+end

data/lib/shoes/swt/image.rb

@@ -0,0 +1,128 @@
+class Shoes
+  module Swt
+    class Image
+      import java.io.ByteArrayInputStream
+
+      include Common::Child
+      include Common::Resource
+      include Common::Clickable
+      include Common::PainterUpdatesPosition
+      include Common::Visibility
+      include Common::Remove
+      include ::Shoes::BackendDimensionsDelegations
+
+      BINARY_ENCODING = Encoding.find('binary')
+
+      attr_reader :parent, :real, :dsl, :painter
+
+      def initialize(dsl, parent)
+        @dsl = dsl
+        @parent = parent
+
+        load_image(@dsl.file_path)
+
+        add_paint_listener
+      end
+
+      def update_image
+        load_image(@dsl.file_path)
+      end
+
+      private
+      def load_image(name_or_data)
+        if url?(name_or_data)
+          save_width_and_height
+          display_temporary_download_image
+          download_and_display_real_image(name_or_data)
+        else
+          display_image(name_or_data)
+        end
+      end
+
+      def url?(name_or_data)
+        name_or_data =~ /^(http|https):\/\//
+      end
+
+      def save_width_and_height
+        @saved_width  = dsl.element_width
+        @saved_height = dsl.element_height
+      end
+
+      def display_temporary_download_image
+        temporary_download_image = File.join(DIR, 'static/downloading.png')
+        create_image(temporary_download_image)
+      end
+
+      def create_image(data)
+        @real = ::Swt::Graphics::Image.new(::Swt.display, data)
+        @full_width        = @real.getImageData.width
+        @full_height       = @real.getImageData.height
+        dsl.element_width  ||= default_width
+        dsl.element_height ||= default_height
+      end
+
+      def default_width
+        if dsl.element_height
+          ratio = dsl.element_height.to_r / @full_height
+          (@full_width * ratio).to_i
+        else
+          @full_width
+        end
+      end
+
+      def default_height
+        if dsl.element_width
+          ratio = dsl.element_width.to_r / @full_width
+          (@full_height * ratio).to_i
+        else
+          @full_height
+        end
+      end
+
+      def download_and_display_real_image(url)
+        @tmpname = File.join(Dir.tmpdir, "__shoes4_#{Time.now.to_f}.png") unless @tmpname_or_data
+        @dsl.app.download url, save: @tmpname do
+          restore_width_and_height
+          create_image @tmpname
+        end
+      end
+
+      def restore_width_and_height
+        dsl.element_width  = @saved_width
+        dsl.element_height = @saved_height
+      end
+
+      def display_image(name_or_data)
+        if raw_image_data?(name_or_data)
+          data = load_raw_image_data(name_or_data)
+        else
+          data = name_or_data
+        end
+        create_image(data)
+      end
+
+      def raw_image_data?(name_or_data)
+        name_or_data.encoding == BINARY_ENCODING
+      end
+
+      def load_raw_image_data(name_or_data)
+        stream = ByteArrayInputStream.new(name_or_data.to_java_bytes)
+        begin
+          data = ::Swt::Graphics::ImageLoader.new.load(stream).first
+        rescue ::Swt::SWTException
+          data = name_or_data
+        end
+        data
+      end
+
+      def add_paint_listener
+        @painter = lambda do |event|
+          graphics_context = event.gc
+          graphics_context.drawImage @real, 0, 0, @full_width, @full_height, dsl.element_left, dsl.element_top, dsl.element_width, dsl.element_height unless @dsl.hidden
+        end
+        app.add_paint_listener(@painter)
+      end
+
+    end
+  end
+end