shoes-dsl 4.0.0.pre2

data/lib/shoes/link.rb

@@ -0,0 +1,59 @@
+class Shoes
+  class Link < Span
+
+    include Common::Style
+
+    attr_reader :app, :parent, :gui, :blk
+    style_with :common_styles, :text_block_styles
+    STYLES = { underline: true, stroke: ::Shoes::COLORS[:blue], fill: nil }
+
+    def initialize(app, parent, texts, styles = {}, blk = nil)
+      @app = app
+      @parent = parent
+      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.new { 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 values
+    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,66 @@
+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 { |logger|
+  require logger
+}

data/lib/shoes/logger/ruby.rb

@@ -0,0 +1,18 @@
+require 'delegate'
+
+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,31 @@
+require 'shoes/mock/common_methods'
+require 'shoes/mock/clickable'
+
+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,47 @@
+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
+    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,10 @@
+class Shoes
+  module Mock
+    class Button
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+      def enabled(value)
+      end
+    end
+  end
+end

data/lib/shoes/mock/check.rb

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

data/lib/shoes/mock/clickable.rb

@@ -0,0 +1,8 @@
+class Shoes
+  module Mock
+    module Clickable
+      def click(blk)
+      end
+    end
+  end
+end

data/lib/shoes/mock/common_methods.rb

@@ -0,0 +1,12 @@
+class Shoes
+  module Mock
+    module CommonMethods
+      def initialize(dsl, *args)
+        @dsl = dsl
+      end
+      
+      def update_position
+      end
+    end
+  end
+end

data/lib/shoes/mock/dialog.rb

@@ -0,0 +1,13 @@
+class Shoes
+  module Mock
+    class Dialog
+      def alert(*args)
+        nil
+      end
+
+      def confirm(msg = '')
+        true
+      end
+    end
+  end
+end

data/lib/shoes/mock/download.rb

@@ -0,0 +1,18 @@
+class Shoes
+  module Mock
+    class Download
+
+      def initialize(*_)
+      end
+
+      def eval_block(*_)
+      end
+
+      attr_accessor :busy
+
+      def busy?
+      end
+
+    end
+  end
+end

data/lib/shoes/mock/font.rb

@@ -0,0 +1,17 @@
+class Shoes
+  module Mock
+    module Font
+
+      class << self
+        def add_font(path)
+          Shoes::Font.add_font_to_fonts path
+        end
+
+        def initial_fonts
+          []
+        end
+
+      end
+    end
+  end
+end

data/lib/shoes/mock/image.rb

@@ -0,0 +1,13 @@
+class Shoes
+  module Mock
+    class Image
+      include Shoes::Mock::CommonMethods
+      include Shoes::Mock::Clickable
+
+      attr_accessor :left, :top
+
+      def update_image
+      end
+    end
+  end
+end