shoes 3.0.1 → 4.0.0.pre1

data/lib/shoes/slot_contents.rb

@@ -0,0 +1,56 @@
+class Shoes
+  class SlotContents
+    extend Forwardable
+
+    def_delegators :@contents, :[], :size, :empty?, :first, :each, :clear,
+                               :include?, :delete
+
+    def initialize
+      @contents         = []
+      @prepending       = false
+      @prepending_index = 0
+    end
+
+    def add_element(element)
+      if @prepending
+        prepend_element element
+      else
+        append_element element
+      end
+    end
+
+    def prepend(&blk)
+      @prepending_index = 0
+      @prepending = true
+      blk.call
+      @prepending = false
+    end
+
+    def to_ary
+      @contents
+    end
+
+    def clear
+      # reverse_each is important as otherwise we always miss to delete one
+      # one element
+      @contents.reverse_each do |element|
+        element.is_a?(Shoes::Slot) ? element.clear : element.remove
+      end
+      @contents.clear
+    end
+
+    def inspect
+      "#<#{self.class}:0x#{hash.to_s(16)} @prepending=#{@prepending} @prepending_index=#{@prepending_index} @contents=#{@contents.size} items that are too much to show or there might be an out of memory error.>"
+    end
+
+    private
+    def append_element(element)
+      @contents << element
+    end
+
+    def prepend_element(element)
+      @contents.insert @prepending_index, element
+      @prepending_index += 1
+    end
+  end
+end

data/lib/shoes/sound.rb

@@ -0,0 +1,16 @@
+class Shoes
+  class Sound
+    def initialize(parent, filepath, opts={}, &blk)
+      @parent = parent
+      @filepath = filepath
+
+      @gui = Shoes.configuration.backend_for(self)
+    end
+
+    attr_reader :gui, :filepath, :parent
+
+    def play
+      @gui.play
+    end
+  end
+end

data/lib/shoes/span.rb

@@ -0,0 +1,16 @@
+class Shoes
+  class Span < Text
+    def initialize(texts, options={})
+      @opts = options
+      super texts, options.delete(:color)
+    end
+
+    def opts
+      if @parent && @parent.respond_to?(:opts)
+        @parent.opts.merge(@opts)
+      else
+        @opts
+      end
+    end
+  end
+end

data/lib/shoes/star.rb

@@ -0,0 +1,49 @@
+class Shoes
+  class Star
+    include CommonMethods
+    include Common::Fill
+    include Common::Stroke
+    include Common::Style
+    include Common::Clickable
+    include DimensionsDelegations
+
+    attr_reader :app, :gui, :angle, :dimensions, :outer, :inner, :points,
+                :parent
+
+    def initialize(app, parent, left, top, points, outer, inner, opts = {}, &blk)
+      @app = app
+
+      # Careful not to turn Fixnum to Float, lest Dimensions make you relative!
+      width = outer*2
+
+      # Ignore calculated height on Dimensions--will force to match width
+      @dimensions = AbsoluteDimensions.new left, top, width, 0
+      @dimensions.height = @dimensions.width
+
+      # Calculate the inner dimensions, which might be relative too
+      inner_dimensions = AbsoluteDimensions.new 0, 0, inner*2, 0
+
+      # Get actual outer/inner from the dimension to handle relative values
+      @outer = @dimensions.width / 2
+      @inner = inner_dimensions.width / 2
+
+      @points = points
+      @angle = opts[:angle] || 0
+      @style = Shoes::Common::Fill::DEFAULTS.merge(Shoes::Common::Stroke::DEFAULTS).merge(opts)
+      @style[:strokewidth] ||= 1
+      @parent = parent
+      @parent.add_child self
+
+      @gui = Shoes.backend_for(self, &blk)
+
+      clickable_options(opts)
+    end
+
+    def in_bounds?(x, y)
+      dx = width / 2.0
+      dy = height / 2.0
+      left - dx <= x and x <= right - dx and top - dy <= y and y <= bottom - dy
+    end
+
+  end
+end

data/lib/shoes/swt.rb

@@ -0,0 +1,114 @@
+require 'java'
+require 'swt'
+require 'after_do'
+require 'shoes'
+
+module Swt
+  include_package 'org.eclipse.swt.graphics'
+  include_package 'org.eclipse.swt.events'
+  include_package 'org.eclipse.swt.dnd'
+
+  module Events
+    import org.eclipse.swt.events.PaintListener
+    import org.eclipse.swt.events.MouseMoveListener
+  end
+
+  module Widgets
+    import org.eclipse.swt.widgets
+    import org.eclipse.swt.widgets.Layout
+  end
+
+  module Graphics
+    import org.eclipse.swt.graphics
+    import org.eclipse.swt.graphics.Pattern
+  end
+end
+
+class Shoes
+  module Swt
+    extend ::Shoes::Common::Registration
+
+    module Shoes
+      def self.app(opts={}, &blk)
+        Shoes::App.new(opts, &blk)
+        Shoes.logger.debug "Exiting Shoes.app"
+      end
+
+      def self.logger
+        ::Shoes.logger
+      end
+
+      def self.display
+        ::Swt::Widgets::Display.getCurrent
+      end
+
+      ::Swt::Widgets::Display.new.getFontList(nil, true).each{|f| ::Shoes::FONTS << f.getName}
+      ::Shoes::FONTS.uniq!
+    end
+  end
+end
+
+Shoes.configuration.backend = :swt
+
+require 'shoes/swt/disposed_protection'
+require 'shoes/swt/color'
+require 'shoes/swt/common/child'
+require 'shoes/swt/common/clear'
+require 'shoes/swt/common/clickable'
+require 'shoes/swt/common/container'
+require 'shoes/swt/common/fill'
+require 'shoes/swt/common/resource'
+require 'shoes/swt/common/painter'
+require 'shoes/swt/common/painter_updates_position'
+require 'shoes/swt/common/toggle'
+require 'shoes/swt/common/selection_listener'
+require 'shoes/swt/common/stroke'
+require 'shoes/swt/common/update_position'
+
+require 'shoes/swt/input_box'
+require 'shoes/swt/rect_painter.rb'
+require 'shoes/swt/swt_button'
+require 'shoes/swt/check_button'
+require 'shoes/swt/radio_group'
+require 'shoes/swt/text_block_painter'
+
+require 'shoes/swt/app'
+require 'shoes/swt/animation'
+require 'shoes/swt/arc'
+require 'shoes/swt/background'
+require 'shoes/swt/border'
+require 'shoes/swt/button'
+require 'shoes/swt/check'
+require 'shoes/swt/dialog'
+require 'shoes/swt/download'
+require 'shoes/swt/font'
+require 'shoes/swt/gradient'
+require 'shoes/swt/image'
+require 'shoes/swt/image_pattern'
+require 'shoes/swt/key_listener'
+require 'shoes/swt/line'
+require 'shoes/swt/link'
+require 'shoes/swt/link_segment'
+require 'shoes/swt/list_box'
+require 'shoes/swt/mouse_move_listener'
+require 'shoes/swt/oval'
+require 'shoes/swt/progress'
+require 'shoes/swt/radio'
+require 'shoes/swt/rect'
+require 'shoes/swt/shape'
+require 'shoes/swt/shoes_layout'
+require 'shoes/swt/slot'
+require 'shoes/swt/star'
+require 'shoes/swt/sound'
+require 'shoes/swt/text_block'
+require 'shoes/swt/timer'
+
+require 'shoes/swt/fitted_text_layout'
+require 'shoes/swt/fitted_text_layout_collection'
+require 'shoes/swt/text_block_cursor_painter'
+require 'shoes/swt/text_block_fitter'
+require 'shoes/swt/text_font_factory'
+require 'shoes/swt/text_style_factory'
+
+# redrawing aspect needs to know all the classes
+require 'shoes/swt/redrawing_aspect'

data/lib/shoes/swt/animation.rb

@@ -0,0 +1,46 @@
+class Shoes
+  module Swt
+    class Animation
+
+      attr_reader :task
+
+      # An Swt animation implementation
+      #
+      # @param [Shoes::Animation] dsl The Shoes DSL Animation this represents
+      # @param [Shoes::Swt::App] app The Swt representation of the current app
+      # @param [Proc] blk The block of code to execute for each animation frame
+      def initialize(dsl, app)
+        @dsl = dsl
+        @app = app
+
+        # Wrap the animation block so we can count frames.
+        # Note that the task re-calls itself on each run.
+        @task = Proc.new do
+          unless animation_removed?
+            run_animation unless @dsl.stopped?
+            schedule_next_animation
+          end
+        end
+        schedule_next_animation
+      end
+
+      def eval_block
+        @dsl.blk.call(@dsl.current_frame)
+      end
+
+      private
+      def animation_removed?
+        @app.real.disposed? || @dsl.removed?
+      end
+
+      def schedule_next_animation
+        ::Swt.display.timer_exec(1000 / @dsl.framerate, @task)
+      end
+
+      def run_animation
+        eval_block
+        @dsl.increment_frame
+      end
+    end
+  end
+end

data/lib/shoes/swt/app.rb

@@ -0,0 +1,300 @@
+class Shoes
+  module Swt
+    # Shoes::App.new creates a new Shoes application window!
+    # The default window is a [flow]
+    #
+
+    class App
+      include Common::Container
+      include Common::Clickable
+
+      attr_reader :dsl, :real, :shell, :clickable_elements
+
+      def initialize dsl
+        @clickable_elements = []
+        @dsl = dsl
+        ::Swt::Widgets::Display.app_name = @dsl.app_title
+        @background = Color.new(@dsl.opts[:background])
+        @started = false
+        initialize_shell
+        initialize_real
+        ::Shoes::Swt.register self
+        attach_event_listeners
+        initialize_scroll_bar
+        @redrawing_aspect = RedrawingAspect.new self, Shoes.display
+      end
+
+      def open
+        @shell.pack
+        force_shell_size
+        @shell.open
+        @dsl.top_slot.contents_alignment
+        @started = true
+        self.fullscreen = true if dsl.start_as_fullscreen?
+        flush
+        ::Swt.event_loop { ::Shoes::Swt.main_app.disposed? } if main_app?
+      end
+
+      def quit
+        @shell.dispose
+      end
+
+      # @return [Shoes::Swt::App] Self
+      def app
+        self
+      end
+      
+      def width
+        if overlay_scrollbars?
+          @shell.client_area.width
+        else
+          width_adjusted_for_scrollbars
+        end
+      end
+
+      def height
+        @shell.client_area.height
+      end
+
+      def disposed?
+        @shell.disposed? || @real.disposed?
+      end
+
+      def redraw(left=nil, top=nil, width=nil, height=nil, all=true)
+        unless @real.disposed?
+          if (left == nil or top == nil or width == nil or height == nil)
+            @real.redraw
+          else
+            @real.redraw(left, top, width, height, all)
+          end
+        end
+      end
+
+      def main_app?
+        ::Shoes::Swt.main_app.equal? self
+      end
+
+      def flush
+        if @dsl.top_slot
+          @real.layout
+        end
+      end
+
+      def scroll_top
+        @real.getLocation.y
+      end
+
+      def scroll_top=(n)
+        @real.setLocation 0, -n
+        @shell.getVerticalBar.setSelection n
+      end
+
+      def clipboard
+        ::Swt::Clipboard.new(Shoes.display).getContents ::Swt::TextTransfer.getInstance
+      end
+
+      def clipboard=(str)
+        ::Swt::Clipboard.new(Shoes.display).setContents(
+          [str].to_java,
+          [::Swt::TextTransfer.getInstance].to_java(::Swt::TextTransfer)
+        )
+      end
+
+      def fullscreen=(state)
+        @shell.full_screen = state
+      end
+
+      def fullscreen
+        @shell.full_screen
+      end
+
+      def add_clickable_element(element)
+        @clickable_elements << element
+      end
+
+      def started?
+        @started
+      end
+
+      # This represents the space (potentially) occupied by a vertical
+      # scrollbar. Since the scrollbar may not be visible at the time this
+      # method is called, we don't rely on its reported value.
+      def gutter
+        # 16
+        @shell.getVerticalBar.getSize.x
+      end
+
+      def add_key_listener(listener)
+        @key_listeners[listener.class] << listener
+      end
+
+      def remove_key_listener(listener)
+        @key_listeners[listener.class].delete(listener)
+      end
+
+      private
+      def initialize_scroll_bar
+        scroll_bar = @shell.getVerticalBar
+        scroll_bar.setIncrement 10
+        selection_listener = SelectionListener.new(scroll_bar) do |vertical_bar, event|
+          if self.shell.getVerticalBar.getVisible and event.detail != ::Swt::SWT::DRAG
+            vertically_scroll_window(vertical_bar)
+          end
+        end
+        scroll_bar.addSelectionListener selection_listener
+      end
+
+      def vertically_scroll_window(vertical_bar)
+        location = self.real.getLocation
+        location.y = -vertical_bar.getSelection
+        self.real.setLocation location
+      end
+
+      def force_shell_size
+        frame_x_decorations = @shell.size.x - @shell.client_area.width
+        frame_y_decorations = @shell.size.y - @shell.client_area.height
+        new_width = @dsl.width + frame_x_decorations
+        new_height = @dsl.height + frame_y_decorations
+        @shell.setSize(new_width, new_height)
+      end
+
+      def main_window_on_close
+        lambda { |event|
+          ::Swt.display.dispose
+          Dir[File.join(Dir.tmpdir, "__shoes4_*.png")].each{|f| File.delete f}
+        }
+      end
+
+      def main_window_style
+        style  = ::Swt::SWT::CLOSE | ::Swt::SWT::MIN | ::Swt::SWT::MAX | ::Swt::SWT::V_SCROLL
+        style |= ::Swt::SWT::RESIZE if @dsl.opts[:resizable]
+        style
+      end
+
+      def initialize_shell
+        @shell = ::Swt::Widgets::Shell.new(::Swt.display, main_window_style)
+        @shell.image = ::Swt::Graphics::Image.new(::Swt.display, SHOES_ICON)
+        @shell.text = (@dsl.app_title)
+        @shell.background_mode = ::Swt::SWT::INHERIT_DEFAULT
+        @shell.background = @background.real
+      end
+
+      def initialize_real
+        @real = ::Swt::Widgets::Composite.new(@shell,
+          ::Swt::SWT::TRANSPARENT | ::Swt::SWT::NO_RADIO_GROUP)
+        @real.setSize(@dsl.width - @shell.getVerticalBar.getSize.x, @dsl.height)
+        @real.setLayout init_shoes_layout
+      end
+
+      # it seems like the class can not not have a constructor with an argument
+      # due to its java super class
+      def init_shoes_layout
+        layout         = ShoesLayout.new
+        layout.gui_app = self
+        layout
+      end
+
+      def attach_event_listeners
+        attach_shell_event_listeners
+        attach_real_event_listeners
+        attach_key_event_listeners
+      end
+
+      def attach_shell_event_listeners
+        @shell.addControlListener ShellControlListener.new(self)
+        @shell.addListener(::Swt::SWT::Close, main_window_on_close) if main_app?
+        @shell.addListener(::Swt::SWT::Close, unregister_app)
+      end
+
+      def unregister_app
+        proc do |event|
+          ::Shoes::Swt.unregister(self)
+        end
+      end
+
+      def attach_real_event_listeners
+        @real.addMouseMoveListener MouseMoveListener.new(self)
+        @real.addMouseListener MouseListener.new(self)
+      end
+
+      def attach_key_event_listeners
+        @key_listeners = {
+          Keypress   => [],
+          Keyrelease => [],
+        }
+        attach_key_event_listener(::Swt::SWT::KeyDown, Keypress)
+        attach_key_event_listener(::Swt::SWT::KeyUp,   Keyrelease)
+      end
+
+      def attach_key_event_listener(listen_for, listener_class)
+        ::Swt.display.add_filter(listen_for) do |evt|
+          if for_this_shell?(evt)
+            @key_listeners[listener_class].each do |listener|
+              break if listener.ignore_event?(evt)
+              listener.handle_key_event(evt)
+            end
+          end
+        end
+      end
+
+      def for_this_shell?(evt)
+        evt.widget.shell == @shell
+      end
+
+      def overlay_scrollbars?
+        @shell.scrollbars_mode == ::Swt::SWT::SCROLLBAR_OVERLAY
+      end
+
+      def width_adjusted_for_scrollbars
+        if @shell.getVerticalBar.getVisible
+          @shell.client_area.width + @shell.getVerticalBar.getSize.x
+        else
+          @shell.client_area.width
+        end
+      end
+
+    end
+
+    class ShellControlListener
+      def initialize(app)
+        @app = app
+      end
+
+      def controlResized(event)
+        shell = event.widget
+        width = shell.client_area.width
+        height = shell.client_area.height
+        @app.dsl.top_slot.width   = width
+        @app.dsl.top_slot.height  = height
+        @app.real.setSize width, height
+        @app.real.layout
+        @app.dsl.resize_callbacks.each{|blk| blk.call}
+      end
+
+      def controlMoved(e)
+      end
+    end
+
+    class MouseListener
+      def initialize app
+        @app = app
+      end
+
+      def mouseDown(e)
+        @app.dsl.mouse_button = e.button
+        @app.dsl.mouse_pos = [e.x, e.y]
+      end
+
+      def mouseUp(e)
+        @app.dsl.mouse_button = 0
+        @app.dsl.mouse_pos = [e.x, e.y]
+      end
+
+      def mouseDoubleClick(e)
+        # do nothing
+      end
+    end
+
+  end
+end
+