Implemented Shoes.url. Try out sample35.rb.

lib/shoes.rb

@@ -47,3 +47,4 @@ def logger
 require 'shoes/logger'
 require 'shoes/text_block'
 require 'shoes/radio'
+require 'shoes/url'

lib/shoes/app.rb

@@ -28,7 +28,7 @@ def self.app(opts={}, &blk)
   class App
     include Shoes::ElementMethods
 
-    attr_reader :gui, :shell, :top_slot, :contents, :unslotted_elements
+    attr_reader :gui, :shell, :top_slot, :contents, :unslotted_elements, :location
     attr_reader :app, :mouse_motion
     attr_accessor :elements, :current_slot
     attr_accessor :opts, :blk
@@ -54,6 +54,7 @@ def initialize(opts={}, &blk)
 
       @gui = Shoes.configuration.backend::App.new @app
 
+      blk = $urls[/^#{'/'}$/] unless blk
       @top_slot = Flow.new self, {app: @app, left: 0, top: 0, width: @width, height: @height}, &blk
 
       Shoes.register self

lib/shoes/element_methods.rb

@@ -373,5 +373,9 @@ def clear
       contents.each &:clear
       @contents.clear
     end
+
+    def visit url
+      $urls.each{|k, v| clear{@location = url; v.call self, $1} if k =~ url}
+    end
   end
 end

lib/shoes/url.rb

@@ -0,0 +1,17 @@
+module Shoes
+  $urls = {}
+  def self.included klass
+    def klass.url page, m
+      klass = self
+      page = /^#{page}$/
+      $urls[page] = proc do |s, arg|
+        klass.class_eval do
+          define_method :method_missing do |m, *args, &blk|
+            s.send m, *args, &blk
+          end
+        end
+        arg ? klass.new.send(m, arg) : klass.new.send(m)
+      end
+    end
+  end
+end

samples/README

@@ -27,4 +27,5 @@ sample18.rb
 sample19.rb
 sample20.rb
 sample21.rb
-sample28.rb
+sample28.rb
+sample35.rb

samples/sample35.rb

@@ -0,0 +1,37 @@
+class PhotoFrame
+  SPACE = "    "
+  include Shoes
+  url '/', :index
+  url '/loogink', :loogink
+  url '/cy', :cy
+
+  def index
+    eval(['loogink', 'cy'][rand 2])
+  end
+
+  def loogink
+    background tomato
+    inscription 'Shoes 4'
+    flow width: 70 # space
+    image File.join(Shoes::DIR, '../samples/loogink.png')
+    para SPACE
+    para SPACE, fg(strong('She is Loogink.'), white),
+      '->', link(strong('Cy')){visit '/cy'}
+    p location
+  end
+
+  def cy
+    background paleturquoise
+    inscription 'Shoes 4'
+    flow width: 70 # space
+    image File.join(Shoes::DIR, '../samples/cy.png')
+    para SPACE
+    para SPACE, fg(strong('He is Cy.'), gray), '  ->', 
+      link(strong('loogink')){visit '/loogink'}
+    p location
+  end
+end
+
+Shoes.app width: 200, height: 120, title: 'Photo Frame'
+
+# TODO: Remove SPACE and use margin style option.

spec/shoes/url_spec.rb

@@ -0,0 +1,18 @@
+require 'shoes/spec_helper'
+
+describe 'Shoes.url' do
+  subject do
+    class Hello
+      include Shoes
+      url '/', :index
+      def index; end
+    end
+    Shoes.app
+  end
+
+  it "should have $urls" do
+    $urls.should be_empty
+    subject
+    $urls.should_not be_empty
+  end
+end