shoes 3.0.1 → 4.0.0.pre1

data/lib/shoes/image.rb

@@ -1,25 +1,33 @@
-require 'digest/sha1'
-
 class Shoes
-  def self.image_temp_path uri, uext
-    File.join(Dir::tmpdir, "#{uri.host}-#{Time.now.usec}" + uext)
-  end
-  def self.image_cache_path hash, ext
-    dir = File.join(CACHE_DIR, hash[0,2])
-    Dir.mkdir(dir) unless File.exists?(dir)
-    File.join(dir, hash[2..-1]) + ext.downcase
-  end
-  def snapshot(options = {}, &block)
-    options[:format]   ||= :svg
+  class Image
+    include CommonMethods
+    include Common::Clickable
+    include DimensionsDelegations
+
+    attr_reader :parent, :blk, :gui, :app, :file_path, :opts, :dimensions
+
+    def initialize(app, parent, file_path, opts = {}, blk = nil)
+      @app = app
+      @parent = parent
+      @file_path = file_path
+      @opts = opts
+      @blk = blk
+      parent.add_child self
 
-    options[:filename] ||= ( tf_path = ( require 'tempfile'
-                 tf = Tempfile.new(File.basename(__FILE__)).path ))
+      @dimensions = Dimensions.new parent, opts
+
+      @gui = Shoes.configuration.backend_for(self, @parent.gui, blk)
+
+      clickable_options(opts)
+    end
+
+    def path
+      @file_path
+    end
 
-    _snapshot options do
-      block.call
+    def path=(path)
+      @file_path = path
+      @gui.update_image
     end
-    return File.read(options[:filename])
-  ensure
-    File.unlink(tf_path) if tf_path
   end
 end

data/lib/shoes/image_pattern.rb

@@ -0,0 +1,10 @@
+class Shoes
+  class ImagePattern
+    def initialize path
+      @path = path
+      @gui = Shoes.configuration.backend_for(self)
+    end
+    
+    attr_reader :gui, :path
+  end
+end

data/lib/shoes/input_box.rb

@@ -0,0 +1,68 @@
+class Shoes
+  class InputBox
+    include CommonMethods
+    include Common::Changeable
+    include Common::State
+    include DimensionsDelegations
+
+    attr_reader :app, :gui, :blk, :parent, :dimensions, :initial_text
+
+    def initialize(app, parent, text, opts, blk = nil)
+      @app          = app
+      @parent       = parent
+      @blk          = blk
+      @dimensions   = Dimensions.new parent, opts
+      @initial_text = text
+      @secret       = opts[:secret]
+
+      @gui = Shoes.configuration.backend_for(self, @parent.gui)
+      @parent.add_child self
+
+      self.change &blk if blk
+      state_options(opts)
+    end
+
+    def secret?
+      @secret
+    end
+
+    def focus
+      @gui.focus
+    end
+
+    def text
+      @gui.text
+    end
+
+    def text=(value)
+      @gui.text = value.to_s
+    end
+
+    def highlight_text(start_index, final_index)
+      @gui.highlight_text(start_index, final_index)
+    end
+
+    def caret_to(index)
+      @gui.caret_to(index)
+    end
+  end
+
+  class EditBox < InputBox
+    DEFAULT_STYLE = { width: 200,
+                      height: 108 }
+
+    def initialize(app, parent, text, opts={}, blk = nil)
+      super(app, parent, text, DEFAULT_STYLE.merge(opts), blk)
+    end
+  end
+
+  class EditLine < InputBox
+    DEFAULT_STYLE = { width:  200,
+                      height: 28 }
+
+    def initialize(app, parent, text, opts={}, blk = nil)
+      super(app, parent, text, DEFAULT_STYLE.merge(opts), blk)
+    end
+  end
+
+end

data/lib/shoes/key_event.rb

@@ -0,0 +1,17 @@
+class Shoes
+  class KeyEvent
+    def initialize(app, &blk)
+      @app = app
+      @gui = Shoes.backend_for self, &blk
+    end
+
+    attr_reader :app
+
+    def clear
+      @gui.clear
+    end
+  end
+
+  class Keypress < KeyEvent ; end
+  class Keyrelease < KeyEvent ; end
+end

data/lib/shoes/line.rb

@@ -0,0 +1,38 @@
+class Shoes
+  class Line
+    include CommonMethods
+    include Common::Stroke
+    include Common::Style
+    include Common::Clickable
+    include DimensionsDelegations
+
+    attr_reader :app, :point_a, :point_b, :angle, :dimensions, :gui, :parent
+
+
+    def initialize(app, parent, point_a, point_b, opts = {})
+      @app                 = app
+      @style               = Shoes::Common::Stroke::DEFAULTS.merge(opts)
+      @style[:strokewidth] ||= 1
+      @angle               = opts[:angle] || 0
+      @point_a             = point_a
+      @point_b             = point_b
+      @parent              = parent
+
+      enclosing_box_of_line
+
+      gui_opts = @style.clone
+      @parent.add_child self
+
+      @gui = Shoes.backend_for(self, gui_opts)
+
+      clickable_options(opts)
+    end
+
+    def enclosing_box_of_line
+      @dimensions = AbsoluteDimensions.new left:   @point_a.left(@point_b),
+                                           top:    @point_a.top(@point_b),
+                                           width:  @point_a.width(@point_b),
+                                           height: @point_a.height(@point_b)
+    end
+  end
+end

data/lib/shoes/link.rb

@@ -0,0 +1,49 @@
+class Shoes
+  class Link < Span
+    attr_reader :app, :parent, :gui
+
+    DEFAULT_OPTS = { underline: true, stroke: ::Shoes::COLORS[:blue] }
+
+    def initialize(app, parent, texts, opts={}, &blk)
+      @app = app
+      @parent = parent
+      setup_block(blk, opts)
+
+      opts = DEFAULT_OPTS.merge(opts)
+      @gui = Shoes.backend_for(self, opts)
+
+      super texts, opts
+    end
+
+    def setup_block(blk, opts)
+      if blk
+        @blk = blk
+      elsif opts.include?(:click)
+        if opts[:click].respond_to?(:call)
+          @blk = opts[:click]
+        else
+          # Slightly awkward, but we need App, not InternalApp, to call visit
+          @blk = Proc.new { app.app.visit(opts[:click]) }
+        end
+      end
+    end
+
+    def click(&blk)
+      @blk = blk
+      self
+    end
+
+    def execute_link
+      @blk.call
+    end
+
+    def in_bounds?(x, y)
+      @gui.in_bounds?(x, y)
+    end
+
+    def clear
+      @gui.clear
+    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,44 @@
+class Shoes
+  class ListBox
+    include CommonMethods
+    include Common::Changeable
+    include Common::State
+    include DimensionsDelegations
+
+    DEFAULT_WIDTH = 200
+    DEFAULT_HEIGHT = 20
+
+    attr_reader :items, :app, :gui, :blk, :parent, :opts, :dimensions
+
+    def initialize(app, parent, opts = {}, blk = nil)
+      @app        = app
+      @parent     = parent
+      @blk        = blk
+      @opts       = opts
+      @dimensions = Dimensions.new parent, opts
+      @dimensions.width  ||= DEFAULT_WIDTH
+      @dimensions.height ||= DEFAULT_HEIGHT
+
+      @gui = Shoes.configuration.backend_for(self, @parent.gui)
+      self.items = opts.has_key?(:items) ? opts[:items] : [""]
+      choose(opts[:choose]) if opts.has_key?(:choose)
+      @parent.add_child self
+
+      self.change &blk if blk
+      state_options(opts)
+    end
+
+    def items=(values)
+      @items = values
+      @gui.update_items values
+    end
+
+    def text
+      @gui.text
+    end
+
+    def choose(item)
+      @gui.choose item
+    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/manual.rb

@@ -0,0 +1,6 @@
+class Shoes
+  def self.show_manual lang='English'
+    $lang = lang
+    load File.join(DIR, 'lib/shoes/help.rb')
+  end
+end

data/lib/shoes/mock.rb

@@ -0,0 +1,30 @@
+require 'shoes/mock/common_methods'
+
+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,44 @@
+class Shoes
+  module Mock
+    class App
+
+      attr_accessor :fullscreen
+      def initialize(dsl)
+        @dsl = dsl
+      end
+
+      # suboptimal but good enough fo 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
+      end
+
+      def quit
+      end
+      
+      def started?
+        true
+      end
+
+      def flush
+      end
+
+      def clipboard
+      end
+
+      def clipboard=(text)
+      end
+
+      def gutter
+        16
+      end
+    end
+  end
+end