shoes-dsl 4.0.0.pre2

data/lib/shoes/mock/image_pattern.rb

@@ -0,0 +1,9 @@
+class Shoes
+  module Mock
+    class ImagePattern
+      def initialize(path)
+
+      end
+    end
+  end
+end

data/lib/shoes/mock/input_box.rb

@@ -0,0 +1,30 @@
+class Shoes
+  module Mock
+    class InputBox
+      include Shoes::Mock::CommonMethods
+      attr_accessor :left, :top
+
+      def enabled(value)
+      end
+
+      def highlight_text(start_index, finish_index)
+      end
+
+      def caret_to(index)
+      end
+
+      def text
+        @dsl.style[:text]
+      end
+
+      def text=(value)
+      end
+    end
+
+    class EditBox < InputBox
+    end
+
+    class EditLine < InputBox
+    end
+  end
+end

data/lib/shoes/mock/keypress.rb

@@ -0,0 +1,10 @@
+class Shoes
+  module Mock
+    class Keypress
+      def initialize(*opts)
+      end
+      def remove
+      end
+    end
+  end
+end

data/lib/shoes/mock/keyrelease.rb

@@ -0,0 +1,10 @@
+class Shoes
+  module Mock
+    class Keyrelease
+      def initialize(*opts)
+      end
+      def remove
+      end
+    end
+  end
+end

data/lib/shoes/mock/line.rb

@@ -0,0 +1,14 @@
+class Shoes
+  module Mock
+    class Line
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(dsl, app, opts = {})
+      end
+
+      def move(x, y)
+      end
+    end
+  end
+end

data/lib/shoes/mock/link.rb

@@ -0,0 +1,12 @@
+class Shoes
+  module Mock
+    class Link
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(dsl, app, opts = {})
+      end
+      
+    end
+  end
+end

data/lib/shoes/mock/list_box.rb

@@ -0,0 +1,19 @@
+class Shoes
+  module Mock
+    class ListBox
+      include Shoes::Mock::CommonMethods
+
+      def update_items(v)
+      end
+
+      def enabled(value)
+      end
+
+      def choose(string)
+      end
+
+      def text
+      end
+    end
+  end
+end

data/lib/shoes/mock/oval.rb

@@ -0,0 +1,12 @@
+class Shoes
+  module Mock
+    class Oval
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(dsl, app)
+      end
+
+    end
+  end
+end

data/lib/shoes/mock/progress.rb

@@ -0,0 +1,10 @@
+class Shoes
+  module Mock
+    class Progress
+      include Shoes::Mock::CommonMethods
+
+      def fraction=(fraction)
+      end
+    end
+  end
+end

data/lib/shoes/mock/radio.rb

@@ -0,0 +1,27 @@
+class Shoes
+  module Mock
+    class Radio
+      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
+      
+      def group=(value)
+      end
+    end
+  end
+end

data/lib/shoes/mock/rect.rb

@@ -0,0 +1,14 @@
+class Shoes
+  module Mock
+    class Rect
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(dsl, app, opts = {})
+        @dsl, @app = dsl, app
+      end
+
+      attr_reader :dsl, :app
+    end
+  end
+end

data/lib/shoes/mock/shape.rb

@@ -0,0 +1,20 @@
+class Shoes
+  module Mock
+    class Shape
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def line_to(x, y)
+      end
+
+      def move_to(x, y)
+      end
+
+      def curve_to(*args)
+      end
+
+      def arc(*args)
+      end
+    end
+  end
+end

data/lib/shoes/mock/slot.rb

@@ -0,0 +1,16 @@
+class Shoes
+  module Mock
+    class Slot
+      include Shoes::Mock::Clickable
+      
+      def initialize dsl, parent
+        @dsl, @parent = dsl, parent
+      end
+
+      attr_reader :dsl
+    end
+
+    class Stack < Slot; end
+    class Flow < Slot; end
+  end
+end

data/lib/shoes/mock/sound.rb

@@ -0,0 +1,8 @@
+class Shoes
+  module Mock
+    class Sound
+      def initialize(dsl)
+      end
+    end
+  end
+end

data/lib/shoes/mock/star.rb

@@ -0,0 +1,14 @@
+class Shoes
+  module Mock
+    class Star
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(dsl, app)
+        @dsl, @app = dsl, app
+      end
+
+      attr_reader :dsl, :app
+    end
+  end
+end

data/lib/shoes/mock/text_block.rb

@@ -0,0 +1,36 @@
+class Shoes
+  module Mock
+    class TextBlock
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      def initialize(dsl, opts = nil)
+        @dsl = dsl
+        @opts = opts
+      end
+
+      def redraw(*opts); end
+
+      def replace(*opts)
+      end
+
+      def remove;end
+
+      # A very imperfect implementation, but at least it takes up about a line.
+      # Needed to spec scrolling behavior
+      def contents_alignment(current_position)
+        @dsl.absolute_top = current_position.y + (@dsl.size || 12)
+      end
+
+      def adjust_current_position(*args);end
+    end
+
+    class Banner < TextBlock; end
+    class Title < TextBlock; end
+    class Subtitle < TextBlock; end
+    class Tagline < TextBlock; end
+    class Caption < TextBlock; end
+    class Para < TextBlock; end
+    class Inscription < TextBlock; end
+  end
+end

data/lib/shoes/mock/timer.rb

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

data/lib/shoes/not_implemented_error.rb

@@ -0,0 +1,4 @@
+class Shoes
+  class NotImplementedError < StandardError
+  end
+end

data/lib/shoes/oval.rb

@@ -0,0 +1,20 @@
+class Shoes
+  class Oval
+    include Common::UIElement
+    include Common::Style
+    include Common::Clickable
+
+    attr_reader :app, :parent, :dimensions, :gui
+    style_with :art_styles, :center, :common_styles, :dimensions, :radius
+
+    def initialize(app, parent, left, top, width, height, styles = {}, blk = nil)
+      @app = app
+      @parent = parent
+      style_init styles
+      @dimensions = AbsoluteDimensions.new left, top, width, height, @style
+      @parent.add_child self
+      @gui = Shoes.backend_for self
+      register_click blk
+    end
+  end
+end

data/lib/shoes/point.rb

@@ -0,0 +1,54 @@
+class Shoes
+  class Point
+    include Common::Inspect
+
+    def initialize(x, y)
+      @x, @y = x, y
+    end
+
+    attr_accessor :x, :y
+
+    # @param [Shoes::Point] other the other point
+    # @return [Integer] if this is further left, this.x; otherwise other.x
+    def left(other = self)
+      [self.x, other.x].min
+    end
+
+    # @param [Shoes::Point] other the other point
+    # @return [Integer] if this is higher, this.y; otherwise other.y
+    def top(other = self)
+      [self.y, other.y].min
+    end
+
+    # Creates a new point at an offset of (x,y) from this point. Positive
+    # offsets move right and down; negative offsets move left and up.
+    #
+    # @param [Integer] x the x-component of the offset
+    # @param [Integer] y the y-component of the offset
+    # @return [Shoes::Point] a new point at offset (x,y) from this point
+    def to(x, y)
+      Shoes::Point.new(@x + x, @y + y)
+    end
+
+    def width(other = self)
+      (@x - other.x).abs
+    end
+
+    def height(other = self)
+      (@y - other.y).abs
+    end
+
+    def ==(other)
+      return other.respond_to?(:x) && @x == other.x && other.respond_to?(:y) && @y == other.y
+    end
+
+    def to_s
+      nothing = '_'
+      "(#{@x || nothing},#{@y || nothing})"
+    end
+
+    def inspect
+      super.insert(-2, " #{to_s}")
+    end
+  end
+end

data/lib/shoes/progress.rb

@@ -0,0 +1,25 @@
+class Shoes
+  class Progress
+    include Common::UIElement
+    include Common::Style
+
+    attr_reader :app, :parent, :dimensions, :gui
+    style_with :common_styles, :dimensions, :fraction
+    STYLES = {fraction: 0.0}
+
+    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
+      @gui.fraction = @style[:fraction]
+    end
+
+    def fraction=(value)
+      style(fraction: value)
+      @gui.fraction = value
+    end
+  end
+end

data/lib/shoes/radio.rb

@@ -0,0 +1,16 @@
+class Shoes
+  class Radio < CheckButton
+
+    style_with :checked, :click, :common_styles, :dimensions, :group, :state
+
+    def initialize(app, parent, group, styles = {}, blk = nil)
+      styles[:group] = group
+      super(app, parent, styles, blk)
+    end
+
+    def group=(value)
+      style(group: value)
+      gui.group = value
+    end
+  end
+end

data/lib/shoes/rect.rb

@@ -0,0 +1,21 @@
+class Shoes
+  class Rect
+    include Common::UIElement
+    include Common::Style
+    include Common::Clickable
+
+    attr_reader :app, :parent, :dimensions, :gui
+    style_with :angle, :art_styles, :curve, :common_styles, :dimensions
+    STYLES = {angle: 0}
+
+    def initialize(app, parent, left, top, width, height, styles = {}, blk = nil)
+      @app = app
+      @parent = parent
+      style_init styles
+      @dimensions = AbsoluteDimensions.new left, top, width, height, @style
+      @parent.add_child self
+      @gui = Shoes.backend_for self
+      register_click blk
+    end
+  end
+end