shoes-core 4.0.0.pre3

data/lib/shoes/line.rb

@@ -0,0 +1,84 @@
+class Shoes
+  class Line
+    include Common::UIElement
+    include Common::Style
+    include Common::Clickable
+
+    attr_reader :app, :parent, :dimensions, :gui, :point_a, :point_b
+
+    style_with :angle, :art_styles, :dimensions, :x2, :y2
+    STYLES = { angle: 0 }
+
+    def initialize(app, parent, point_a, point_b, styles = {}, blk = nil)
+      @app     = app
+      @parent  = parent
+      @point_a = point_a
+      @point_b = point_b
+
+      style_init styles, x2: point_b.x, y2: point_b.y
+      enclosing_box_of_line
+
+      @parent.add_child self
+      @gui = Shoes.backend_for self
+      register_click blk
+    end
+
+    def update_style(new_styles)
+      super
+      enclosing_box_of_line
+    end
+
+    def left=(val)
+      set_point_a(:x, val)
+    end
+
+    def right=(val)
+      set_point_b(:x, val)
+    end
+
+    def top=(val)
+      set_point_a(:y, val)
+    end
+
+    def bottom=(val)
+      set_point_b(:y, val)
+    end
+
+    alias_method :x2=, :right=
+    alias_method :y2=, :bottom=
+
+    def move(x, y, x2=nil, y2=nil)
+      @point_a.x = x
+      @point_a.y = y
+      @point_b.x = x2 if x2
+      @point_b.y = y2 if y2
+      enclosing_box_of_line
+      self
+    end
+
+    private
+
+    def set_point_a(which, val)
+      @point_a.x = val if which == :x
+      @point_a.y = val if which == :y
+      enclosing_box_of_line
+    end
+
+    def set_point_b(which, val)
+      @point_b.x = val if which == :x
+      @point_b.y = val if which == :y
+      style(x2: val) if which == :x
+      style(y2: val) if which == :y
+      enclosing_box_of_line
+    end
+
+    def enclosing_box_of_line
+      @dimensions = AbsoluteDimensions.new left:   @point_a.x,
+                                           top:    @point_a.y,
+                                           right:  @point_b.x,
+                                           bottom: @point_b.y,
+                                           width:  @point_b.x - @point_a.x,
+                                           height: @point_b.y - @point_a.y
+    end
+  end
+end

data/lib/shoes/link.rb

@@ -0,0 +1,57 @@
+class Shoes
+  class Link < Span
+    include Common::Style
+
+    attr_reader :app, :gui, :blk
+    style_with :common_styles, :text_block_styles
+    STYLES = { underline: true, stroke: ::Shoes::COLORS[:blue], fill: nil }
+
+    def initialize(my_app, texts, styles = {}, blk = nil)
+      @app = my_app
+      style_init styles
+      @gui = Shoes.backend_for self
+
+      setup_click blk
+      super texts, @style
+    end
+
+    # Doesn't use Common::Clickable because of URL flavor option clicks
+    def setup_click(blk)
+      if blk.nil?
+        if @style[:click].respond_to? :call
+          blk = @style[:click]
+        else
+          # Slightly awkward, but we need App, not InternalApp, to call visit
+          blk = proc { app.app.visit @style[:click] }
+        end
+      end
+
+      click(&blk)
+    end
+
+    def click(&blk)
+      @gui.click blk if blk
+      @blk = blk
+    end
+
+    def pass_coordinates?
+      false
+    end
+
+    def in_bounds?(x, y)
+      @gui.in_bounds?(x, y)
+    end
+
+    def remove
+      @gui.remove
+    end
+
+    def hidden?
+      @text_block.hidden?
+    end
+
+    def visible?
+      @text_block.visible?
+    end
+  end
+end

data/lib/shoes/link_hover.rb

@@ -0,0 +1,5 @@
+class Shoes
+  class LinkHover
+    # Just a placeholder for now until we get this implemented
+  end
+end

data/lib/shoes/list_box.rb

@@ -0,0 +1,50 @@
+class Shoes
+  class ListBox
+    include Common::UIElement
+    include Common::Style
+    include Common::Changeable
+
+    attr_reader :app, :parent, :dimensions, :gui
+    style_with :change, :choose, :common_styles, :dimensions, :items, :state, :text
+    STYLES = { width: 200, height: 20, items: [""] }
+
+    def initialize(app, parent, styles = {}, blk = nil)
+      @app = app
+      @parent = parent
+      style_init styles
+      @dimensions = Dimensions.new parent, @style
+      @parent.add_child self
+      @gui = Shoes.configuration.backend_for self, @parent.gui
+      change(&blk) if blk
+
+      choose @style[:choose]
+    end
+
+    def items=(values)
+      style(items: values)
+      @gui.update_items
+    end
+
+    def text
+      @gui.text
+    end
+
+    def choose(item_or_hash = nil)
+      case item_or_hash
+      when String
+        style(choose: item_or_hash)
+        @gui.choose item_or_hash
+      when Hash
+        style(choose: item_or_hash[:item])
+        @gui.choose item_or_hash[:item]
+      end
+    end
+
+    alias_method :choose=, :choose
+
+    def state=(value)
+      style(state: value)
+      @gui.enabled value.nil?
+    end
+  end
+end

data/lib/shoes/logger.rb

@@ -0,0 +1,65 @@
+class Shoes
+  module Logger
+    class << self
+      def register(name, obj)
+        @loggers ||= {}
+        @loggers[name] = obj
+      end
+
+      def unregister(name)
+        @loggers.delete(name)
+      end
+
+      def get(name)
+        @loggers && @loggers[name]
+      end
+    end
+
+    def self.setup
+      Shoes.app do
+        def update
+          if @hash != Shoes::LOG.hash
+            @hash = Shoes::LOG.hash
+            @log.clear do
+              Shoes::LOG.each_with_index do |(typ, msg), index|
+                stack do
+                  background "#f1f5e1" if index % 2 == 0
+                  background rgb(220, 220, 220) if index % 2 != 0
+                  para typ, stroke: blue
+                  flow do
+                    stack margin: 4 do
+                      s = msg.to_s
+                      para s, margin: 4, margin_top: 0
+                    end
+                  end
+                end
+              end
+            end
+          end
+        end
+
+        stack do
+          flow do
+            background black
+            stack do
+              tagline "Shoes Console", stroke: white
+            end
+            button "Clear", margin: 6, width: 80, height: 40, right: 10 do
+              Shoes::LOG.clear
+            end
+          end
+          @log, @hash = stack, nil
+          update
+
+          every(0.2) do
+            update
+          end
+        end
+      end
+    end
+  end
+end
+
+Dir[File.join(File.dirname(__FILE__), "logger", "*.rb")].each do |logger|
+  require logger
+end

data/lib/shoes/logger/ruby.rb

@@ -0,0 +1,16 @@
+class Shoes
+  module Logger
+    class Ruby < SimpleDelegator
+      def initialize(device = STDERR)
+        require 'logger'
+        logger = ::Logger.new(device)
+        logger.formatter = proc do |severity, _datetime, _progname, message|
+          "%s: %s\n" % [severity, message]
+        end
+        super(logger)
+      end
+    end
+  end
+end
+
+Shoes::Logger.register(:ruby, Shoes::Logger::Ruby)

data/lib/shoes/mock.rb

@@ -0,0 +1,33 @@
+require 'shoes/mock/common_methods'
+require 'shoes/mock/clickable'
+
+require 'shoes/mock/packager'
+
+require 'shoes/mock/animation'
+require 'shoes/mock/app'
+require 'shoes/mock/arc'
+require 'shoes/mock/background'
+require 'shoes/mock/border'
+require 'shoes/mock/button'
+require 'shoes/mock/check'
+require 'shoes/mock/download'
+require 'shoes/mock/font'
+require 'shoes/mock/image'
+require 'shoes/mock/image_pattern'
+require 'shoes/mock/input_box'
+require 'shoes/mock/keypress'
+require 'shoes/mock/keyrelease'
+require 'shoes/mock/line'
+require 'shoes/mock/link'
+require 'shoes/mock/list_box'
+require 'shoes/mock/oval'
+require 'shoes/mock/progress'
+require 'shoes/mock/radio'
+require 'shoes/mock/rect'
+require 'shoes/mock/star'
+require 'shoes/mock/shape'
+require 'shoes/mock/slot'
+require 'shoes/mock/sound'
+require 'shoes/mock/text_block'
+require 'shoes/mock/dialog'
+require 'shoes/mock/timer'

data/lib/shoes/mock/animation.rb

@@ -0,0 +1,8 @@
+class Shoes
+  module Mock
+    class Animation
+      def initialize(*_opts)
+      end
+    end
+  end
+end

data/lib/shoes/mock/app.rb

@@ -0,0 +1,49 @@
+class Shoes
+  module Mock
+    class App
+      attr_accessor :fullscreen
+      def initialize(dsl)
+        @dsl = dsl
+        @started = false
+      end
+
+      # suboptimal but good enough for now... calling the DSL lets the methods
+      # play ping pong calling each other... will think of something.
+      def width
+        @dsl.opts[:width]
+      end
+
+      def height
+        @dsl.opts[:height]
+      end
+
+      def open
+        @started = true
+        self.fullscreen = true if @dsl.start_as_fullscreen?
+      end
+
+      def quit
+      end
+
+      def started?
+        @started
+      end
+
+      def flush
+      end
+
+      def clipboard
+      end
+
+      def clipboard=(_text)
+      end
+
+      def gutter
+        16
+      end
+
+      def wait_until_closed
+      end
+    end
+  end
+end

data/lib/shoes/mock/arc.rb

@@ -0,0 +1,9 @@
+class Shoes
+  module Mock
+    class Arc
+      include Shoes::Mock::Clickable
+      def initialize(_dsl, _app, _opts = {})
+      end
+    end
+  end
+end

data/lib/shoes/mock/background.rb

@@ -0,0 +1,10 @@
+class Shoes
+  module Mock
+    class Background
+      include Shoes::Mock::CommonMethods
+
+      def background=(*_opts)
+      end
+    end
+  end
+end

data/lib/shoes/mock/border.rb

@@ -0,0 +1,7 @@
+class Shoes
+  module Mock
+    class Border
+      include Shoes::Mock::CommonMethods
+    end
+  end
+end

data/lib/shoes/mock/button.rb

@@ -0,0 +1,22 @@
+class Shoes
+  module Mock
+    class Button
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(dsl, _parent)
+        # For whatever reason the SWT button sets sizes back during initialize
+        # and at least one test (for the ask dialog which runs a full Shoes.app)
+        # relies on that sizing being set for positioning logic to run.
+        #
+        # Best I can tell, it doesn't matter *what* the values are, as long as
+        # they're there.
+        dsl.width  = 0 unless dsl.width
+        dsl.height = 0 unless dsl.height
+      end
+
+      def enabled(_value)
+      end
+    end
+  end
+end

data/lib/shoes/mock/check.rb

@@ -0,0 +1,24 @@
+class Shoes
+  module Mock
+    class Check
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(*_opts)
+      end
+
+      def checked?
+        false
+      end
+
+      def checked=(*_opts)
+      end
+
+      def focus
+      end
+
+      def enabled(_value)
+      end
+    end
+  end
+end