shoes 4.0.0.pre1 → 4.0.0.pre2

data/lib/shoes/slot_contents.rb

@@ -1,56 +0,0 @@
-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

@@ -1,16 +0,0 @@
-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

@@ -1,16 +0,0 @@
-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

@@ -1,49 +0,0 @@
-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

@@ -1,114 +0,0 @@
-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

@@ -1,46 +0,0 @@
-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

@@ -1,300 +0,0 @@
-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
-