shoes 3.0.1

data/bugs/issue-cdd4b4795f34d6ff46e56ece10f8216a4a5456b2.yaml

@@ -0,0 +1,25 @@
+--- !ditz.rubyforge.org,2008-03-06/issue 
+title: Updated OSX distro's cairo to 1.6
+desc: |-
+  The 1.6 series has a few updates that I'd really like to see in Raisins.  The gradient fix is one.  And, beyond that, the new support for the CGFont API rather than ATSUI.  Unfortunately, Pango is still working on their side of things.
+  
+  http://bugzilla.gnome.org/show_bug.cgi?id=527015
+type: :feature
+component: shoes
+release: Raisins
+reporter: _why <why@whytheluckystiff.net>
+status: :closed
+disposition: :fixed
+creation_time: 2008-04-15 16:24:16.442475 Z
+references: []
+
+id: cdd4b4795f34d6ff46e56ece10f8216a4a5456b2
+log_events: 
+- - 2008-04-15 16:24:19.931744 Z
+  - _why <why@whytheluckystiff.net>
+  - created
+  - ""
+- - 2008-04-15 18:13:16.318535 Z
+  - _why <why@whytheluckystiff.net>
+  - closed issue with disposition fixed
+  - Okay, discovered that Cairo 1.6.4 and Pango 1.20.2 do the trick.

data/bugs/issue-d9bfb5581d745ef9deb3b9b2e08ef74d1cd43082.yaml

@@ -0,0 +1,20 @@
+--- !ditz.rubyforge.org,2008-03-06/issue 
+title: Standalone mode
+desc: |-
+  Allow Shoes apps to run in their own process on all platforms, with a limited menu,
+  no Shoes-specific hotkeys or dialog boxes.
+type: :feature
+component: shoes
+release: Murder
+reporter: _why <why@whytheluckystiff.net>
+status: :unstarted
+disposition: 
+creation_time: 2008-12-03 16:04:52.121243 Z
+references: []
+
+id: d9bfb5581d745ef9deb3b9b2e08ef74d1cd43082
+log_events: 
+- - 2008-12-03 16:04:53.460146 Z
+  - _why <why@whytheluckystiff.net>
+  - created
+  - ""

data/bugs/issue-e0ce2f687cc096f35715d28b0af88589f4ab6cc6.yaml

@@ -0,0 +1,18 @@
+--- !ditz.rubyforge.org,2008-03-06/issue 
+title: Warn (possible error) on invalid element stylings.
+desc: As raised by Phlip in [shoes:2580], developers should be notified when a styling is passed to an element that the element is not equipped to handle.
+type: :bugfix
+component: shoes
+release: Murder
+reporter: _why <why@whytheluckystiff.net>
+status: :unstarted
+disposition: 
+creation_time: 2008-04-07 17:30:56.711031 Z
+references: []
+
+id: e0ce2f687cc096f35715d28b0af88589f4ab6cc6
+log_events: 
+- - 2008-04-07 17:30:57.709967 Z
+  - _why <why@whytheluckystiff.net>
+  - created
+  - ""

data/bugs/issue-e4b0aca4a10a574b333aeaecaaf221dbc5ed22c6.yaml

@@ -0,0 +1,38 @@
+--- !ditz.rubyforge.org,2008-03-06/issue 
+title: alignment of text blocks
+desc: "\n\
+  Win32, Revision 258. Using this tiny app for testing:\n\n\
+  Shoes.app do\n\
+  banner \"banner\"\n\
+  title \"title\"\n\
+  subtitle \"subtitle\"\n\
+  tagline \"tagline\"\n\
+  caption \"caption\"\n\
+  para \"para\"\n\
+  inscription \"inscription\"\n\
+  end\n\n\
+  steps to reproduce \xC2\xB6\n\n\
+  start with full width window, everything looks as expected. now start to make it smaller (in width)\n\n\
+  * inscription wraps when the window is at ri (in the middle of the word), should wrap at the end\n\
+  * when wrapping, it is not below banner but right in the (vertical) middle of \"ba\"\n\
+  * para wraps at the right position (window-size)\n\
+  * x position of inscription after wrapping of para is correct but inscription is at y=0\n\n\
+  ... and so on.\n\
+  Results \xC2\xB6\n\n\
+  Everything but \"para\" wraps too late.\n\n\
+  valign is a mess - couldn't identify the problem just by adding some fields and resizing\n\n"
+type: :feature
+component: shoes
+release: Murder
+reporter: beb
+status: :unstarted
+disposition: 
+creation_time: 2008-04-02 16:30:37.627434 Z
+references: []
+
+id: e4b0aca4a10a574b333aeaecaaf221dbc5ed22c6
+log_events: 
+- - 2008-04-02 16:30:41.935158 Z
+  - _why <why@whytheluckystiff.net>
+  - created
+  - ""

data/bugs/issue-f263746594b95ba778455730478ee8df60ee639d.yaml

@@ -0,0 +1,22 @@
+--- !ditz.rubyforge.org,2008-03-06/issue 
+title: Vista window width is wrong
+desc: See simple-bounce.rb on Vista.
+type: :bugfix
+component: shoes
+release: Murder
+reporter: _why <why@whytheluckystiff.net>
+status: :unstarted
+disposition: 
+creation_time: 2008-12-04 22:29:16.463896 Z
+references: []
+
+id: f263746594b95ba778455730478ee8df60ee639d
+log_events: 
+- - 2008-12-04 22:29:17.170279 Z
+  - _why <why@whytheluckystiff.net>
+  - created
+  - ""
+- - 2008-12-05 22:08:00.787639 Z
+  - _why <why@whytheluckystiff.net>
+  - assigned to release Murder from Raisins
+  - Haven't found the cause of this yet, moving to Murder.

data/bugs/project.yaml

@@ -0,0 +1,72 @@
+--- !ditz.rubyforge.org,2008-03-06/project 
+name: shoes
+version: "0.1"
+components: 
+- !ditz.rubyforge.org,2008-03-06/component 
+  name: shoes
+releases: 
+- !ditz.rubyforge.org,2008-03-06/release 
+  name: Curious
+  status: :released
+  release_time: 2008-01-08 15:00:00 Z
+  log_events: 
+  - - 2008-04-02 15:15:31.384943 Z
+    - _why <why@whytheluckystiff.net>
+    - created
+    - The first version of Shoes. Right before r400.
+  - - 2008-04-02 15:18:48.506461 Z
+    - _why <why@whytheluckystiff.net>
+    - released
+    - The first release of Shoes.
+- !ditz.rubyforge.org,2008-03-06/release 
+  name: Raisins
+  status: :released
+  release_time: 2008-12-05 18:37:37.981489 Z
+  log_events: 
+  - - 2008-04-02 15:17:12.803117 Z
+    - _why <why@whytheluckystiff.net>
+    - created
+    - |-
+      * Multiple window support
+      * Error / logging console
+      * OS X improvements
+      * Shape events and shape positioning
+  - - 2008-12-09 18:37:37.981511 Z
+    - _why <why@whytheluckystiff.net>
+    - released
+    - http://shoooes.net/about/raisins/
+- !ditz.rubyforge.org,2008-03-06/release 
+  name: Policeman
+  status: :unreleased
+  release_time: 
+  log_events: 
+  - - 2008-12-09 18:37:12.140305 Z
+    - _why <why@whytheluckystiff.net>
+    - created
+    - |-
+      * Stability: fewer crashes, faster painting and text layout.
+      * Upgrade all the dependencies to the latest.
+      * Focus on Windows and OS X improvements.
+- !ditz.rubyforge.org,2008-03-06/release 
+  name: Murder
+  status: :unreleased
+  release_time: 
+  log_events: 
+  - - 2008-04-02 15:17:45.417106 Z
+    - _why <why@whytheluckystiff.net>
+    - created
+    - |-
+      * Basic menuing
+      * An `audio` object
+      * The `image` block syntax
+- !ditz.rubyforge.org,2008-03-06/release 
+  name: Feinstein
+  status: :unreleased
+  release_time: 
+  log_events: 
+  - - 2008-04-02 15:18:08.652997 Z
+    - _why <why@whytheluckystiff.net>
+    - created
+    - |-
+      * Shy installer / builder.
+      * Completion of the manual.

data/builddeps.sh

@@ -0,0 +1,102 @@
+#!/bin/bash
+
+rm -rf /tmp/deps
+cd /usr/local/src
+
+#make clean all deps
+cd pkg-config-0.20
+make clean
+cd ../libpng-1.4.1
+make clean
+cd ../jpeg-8a
+make clean
+cd ../giflib-4.1.6
+make clean
+cd ../gettext-0.17
+make clean
+cd ../libiconv-1.13
+make clean
+cd ../glib-2.24.0
+make clean
+cd ../pixman-0.18.0
+make clean
+cd ../cairo-1.8.10
+make clean
+cd ../pango-1.28.0
+make clean
+cd ../portaudio
+make clean
+cd ../ruby-1.9.1-p378
+make clean
+
+#build pkg-config
+cd ../pkg-config-0.20
+./configure --prefix=/tmp/dep
+make && make install
+export MACOSX_DEPLOYMENT_TARGET=10.6
+export PATH=/tmp/dep/bin:$PATH
+export CFLAGS="-I/tmp/dep/include -w"
+export LDFLAGS=-L/tmp/dep/lib
+export PKG_CONFIG_PATH=/tmp/dep/lib/pkgconfig
+
+#build libpng
+cd ../libpng-1.4.1
+./configure --prefix=/tmp/dep
+make && make install
+
+#build libjpeg
+cd ../jpeg-8a/
+./configure --prefix=/tmp/dep --enable-shared
+make && make install
+
+#build giflib
+cd ../giflib-4.1.6
+./configure --prefix=/tmp/dep
+make && make install
+
+#build gettext
+cd ../gettext-0.17
+./configure --prefix=/tmp/dep
+make && make install
+
+#build libiconv
+cd ../libiconv-1.13
+./configure --prefix=/tmp/dep
+make && make install
+
+#build glib 
+cd ../glib-2.24.0
+./configure --prefix=/tmp/dep
+make && make install
+
+#build pixman 
+cd ../pixman-0.18.0
+./configure --prefix=/tmp/dep
+make && make install
+
+#build cairo 
+cd ../cairo-1.8.10
+./configure --prefix=/tmp/dep --enable-quartz=yes --enable-quartz-font=yes --enable-xlib=no
+make && make install
+
+#build pango 
+cd ../pango-1.28.0
+./configure --prefix=/tmp/dep --with-x=no
+make && make install
+
+#build Port Audio 
+cd ../portaudio/
+./configure --prefix=/tmp/dep --disable-mac-universal
+make && make install
+
+#build ruby
+cd ../ruby-1.9.1-p378
+./configure --prefix=/tmp/dep --enable-shared
+make && make install
+
+#install RubyGems.
+cd ../rubygems-1.3.6
+/tmp/dep/bin/ruby setup.rb
+
+#install rake.
+/tmp/dep/bin/gem install rake

data/gemlib/shoes.rb

@@ -0,0 +1 @@
+puts "Sorry, this gem currently does nothing. Team Shoes is working on Gemifying Shoes, and this is just a placeholder until then."

data/lib/shoes.rb

@@ -0,0 +1,548 @@
+# -*- encoding: utf-8 -*-
+#
+# lib/shoes.rb
+# The Shoes base app, both a demonstration and the learning tool for
+# using Shoes.
+#
+ARGV.delete_if { |x| x =~ /-psn_/ }
+
+require 'open-uri'
+require 'optparse'
+require 'resolv-replace' if RUBY_PLATFORM =~ /win/
+require 'shoes/inspect'
+require 'shoes/cache'
+if Object.const_defined? :Shoes
+  require 'shoes/image'
+end
+require 'shoes/shybuilder'
+
+def Shoes.hook; end
+
+class Encoding
+ %w[ASCII_8BIT UTF_16BE UTF_16LE UTF_32BE UTF_32LE US_ASCII].each do |ec|
+   eval "#{ec} = '#{ec.sub '_', '-'}'"
+ end unless RUBY_PLATFORM =~ /linux/
+end
+
+class Range 
+  def rand 
+    conv = (Integer === self.end && Integer === self.begin ? :to_i : :to_f)
+    ((Kernel.rand * (self.end - self.begin)) + self.begin).send(conv) 
+  end 
+end
+
+unless Time.respond_to? :today
+  def Time.today
+    t = Time.now
+    t - (t.to_i % 86400)
+  end
+end
+
+class Shoes
+  RELEASES = %w[Curious Raisins Policeman]
+
+  NotFound = proc do
+    para "404 NOT FOUND, GUYS!"
+  end
+ 
+  class << self; attr_accessor :locale, :language end
+  @locale = ENV["SHOES_LANG"] || ENV["LC_MESSAGES"] || ENV["LC_ALL"] || ENV["LANG"] || "C"
+  @language = @locale[/^(\w{2})_/, 1] || "en"
+
+  @mounts = []
+
+  OPTS = OptionParser.new do |opts|
+    opts.banner = "Usage: shoes [options] (app.rb or app.shy)"
+    
+    opts.on("-m", "--manual",
+            "Open the built-in manual.") do
+      show_manual
+    end
+
+    opts.on("-p", "--package",
+            "Package a Shoes app for Windows, OS X and Linux.") do |s|
+      make_pack
+    end
+
+    opts.on("-g", "--gem",
+            "Passes commands to RubyGems.") do
+      require 'shoes/setup'
+      require 'rubygems/gem_runner'
+      Gem::GemRunner.new.run(ARGV)
+      raise SystemExit, ""
+    end
+
+    opts.on("--manual-html DIRECTORY", "Saves the manual to a directory as HTML.") do |dir|
+      manual_as :html, dir
+      raise SystemExit, "HTML manual in: #{dir}"
+    end
+
+    opts.on("--install MODE SRC DEST", "Installs a file.") do |mode|
+      src, dest = ARGV
+      FileUtils.install src, dest, :mode => mode.to_i(8), :preserve => true
+      raise SystemExit, ""
+    end
+
+    opts.on("--nolayered", "No WS_EX_LAYERED style option.") do
+      $NOLAYERED = 1
+      Shoes.args!
+    end
+    
+    opts.on_tail("-v", "--version", "Display the version info.") do
+      raise SystemExit, File.read("#{DIR}/VERSION.txt").strip
+    end
+
+    opts.on_tail("-h", "--help", "Show this message") do
+      raise SystemExit, opts.to_s
+    end
+  end
+
+  class SettingUp < StandardError; end
+
+  @setups = {}
+
+  def self.setup &blk
+    require 'shoes/setup'
+    line = caller[0]
+    return if @setups[line]
+    script = line[/^(.+?):/, 1]
+    set = Shoes::Setup.new(script, &blk)
+    @setups[line] = true
+    unless set.no_steps?
+      raise SettingUp
+    end
+  end
+
+  def self.show_selector
+    fname = ask_open_file
+    Shoes.visit(fname) if fname
+  end
+
+  def self.package_app
+    fname = ask_open_file
+    return false unless fname
+    start_shy_builder fname
+  end
+
+  def self.splash
+    font "#{DIR}/fonts/Lacuna.ttf"
+    Shoes.app :width => 400, :height => 300, :resizable => false do  
+      style(Para, :align => "center", :weight => "bold", :font => "Lacuna Regular", :size => 13)
+      style(Link, :stroke => yellow, :underline => nil)
+      style(LinkHover, :stroke => yellow, :fill => nil)
+
+      x1 = 77; y1 = 122
+      x2 = 148; y2 = -122
+      x3 = 245; y3 = 0
+
+      nofill
+      strokewidth 40.0
+
+      @waves = stack :top => 0, :left => 0
+      
+      require 'shoes/search'
+      require 'shoes/help'
+
+      stack :margin => 18 do
+        para "Welcome to", :stroke => "#DFA", :margin => 0
+        para "SHOES", :size => 48, :stroke => "#DFA", :margin_top => 0
+        stack do
+          background black(0.2), :curve => 8
+          para link("Open an App.") { Shoes.show_selector and close }, :margin => 10, :margin_bottom => 4
+          #para link("Package an App.") { Shoes.package_app and close }, :margin => 10, :margin_bottom => 4
+					para link("Package an App.") { Shoes.make_pack and close }, :margin => 10, :margin_bottom => 4
+          para link("Read the Manual.") { Shoes.show_manual and close }, :margin => 10
+        end
+        inscription "Alt-Slash opens the console.", :stroke => "#DFA", :align => "center"
+      end
+
+      animate(10) do |ani|
+        a = Math.sin(ani * 0.02) * 20
+        @waves.clear do
+          background white
+          y = -30
+          16.times do |i|
+            shape do
+              move_to x = (-300 - (i*(a*0.8))), y
+              c = (a + 14) * 0.01
+              stroke rgb(i * 0.06, c + 0.1, 0.1, 1.0 - (ani * 0.0003))
+              4.times do
+                curve_to x1 + x, (y1-(i*a)) + y, x2 + x, (y2+(i*a)) + y, x3 + x, y3 + y
+                x += x3
+              end
+            end
+            y += 30
+          end
+        end
+      end
+    end
+  end
+
+  def self.make_pack
+    require 'shoes/pack'
+    Shoes.app(:width => 500, :height => 480, :resizable => true, &PackMake)
+  end
+
+  def self.manual_p(str, path)
+    str.gsub(/\n+\s*/, " ").
+      gsub(/&/, '&amp;').gsub(/>/, '&gt;').gsub(/>/, '&lt;').gsub(/"/, '&quot;').
+      gsub(/`(.+?)`/m, '<code>\1</code>').gsub(/\[\[BR\]\]/i, "<br />\n").
+      gsub(/\^(.+?)\^/m, '\1').
+      gsub(/'''(.+?)'''/m, '<strong>\1</strong>').gsub(/''(.+?)''/m, '<em>\1</em>').
+      gsub(/\[\[(http:\/\/\S+?)\]\]/m, '<a href="\1" target="_new">\1</a>').
+      gsub(/\[\[(http:\/\/\S+?) (.+?)\]\]/m, '<a href="\1" target="_new">\2</a>').
+      gsub(/\[\[(\S+?)\]\]/m) do
+        ms, mn = $1.split(".", 2)
+        if mn
+          '<a href="' + ms + '.html#' + mn + '">' + mn + '</a>'
+        else
+          '<a href="' + ms + '.html">' + ms + '</a>'
+        end
+      end.
+      gsub(/\[\[(\S+?) (.+?)\]\]/m, '<a href="\1.html">\2</a>').
+      gsub(/\!(\{[^}\n]+\})?([^!\n]+\.\w+)\!/) do
+        x = "static/#$2"
+        FileUtils.cp("#{DIR}/#{x}", "#{path}/#{x}") if File.exists? "#{DIR}/#{x}"
+        '<img src="' + x + '" />'
+      end
+  end
+
+  def self.manual_link(sect)
+  end
+
+  TITLES = {:title => :h1, :subtitle => :h2, :tagline => :h3, :caption => :h4}
+
+  def self.manual_as format, *args
+    require 'shoes/search'
+    require 'shoes/help'
+
+    case format
+    when :shoes
+      Shoes.app(:width => 720, :height => 640, &Shoes::Help)
+    else
+      extend Shoes::Manual
+      man = self
+      dir, = args
+      FileUtils.mkdir_p File.join(dir, 'static')
+      FileUtils.cp "#{DIR}/static/shoes-icon.png", "#{dir}/static"
+      %w[manual.css code_highlighter.js code_highlighter_ruby.js].
+        each { |x| FileUtils.cp "#{DIR}/static/#{x}", "#{dir}/static" }
+      html_bits = proc do
+        proc do |sym, text|
+        case sym when :intro
+          div.intro { p { self << man.manual_p(text, dir) } }
+        when :code
+          pre { code.rb text.gsub(/^\s*?\n/, '') }
+        when :colors
+          color_names = (Shoes::COLORS.keys*"\n").split("\n").sort
+          color_names.each do |color|
+            c = Shoes::COLORS[color.intern]
+            f = c.dark? ? "white" : "black"
+            div.color(:style => "background: #{c}; color: #{f}") { h3 color; p c }
+          end
+        when :index
+          tree = man.class_tree
+          shown = []
+          i = 0
+          index_p = proc do |k, subs|
+            unless shown.include? k
+              i += 1
+              p "▸ #{k}", :style => "margin-left: #{20*i}px"
+              subs.uniq.sort.each do |s|
+                index_p[s, tree[s]]
+              end if subs
+              i -= 1
+              shown << k
+            end
+          end
+          tree.sort.each &index_p
+        #   index_page
+        when :list
+          ul { text.each { |x| li { self << man.manual_p(x, dir) } } }
+        when :samples
+          folder = File.join DIR, 'samples'
+          h = {}
+          Dir.glob(File.join folder, '*').each do |file|
+            if File.extname(file) == '.rb'
+              key = File.basename(file).split('-')[0]
+              h[key] ? h[key].push(file) : h[key] = [file]
+            end
+          end
+          h.each do |k, v|
+            p "<h4>#{k}</h4>"
+            samples = []
+            v.each do |file|
+              sample = File.basename(file).split('-')[1..-1].join('-')[0..-4]
+              samples << "<a href=\"http://github.com/shoes/shoes/raw/master/manual-snapshots/#{k}-#{sample}.png\">#{sample}</a>"
+            end
+            p samples.join ' '
+          end
+        else
+          send(TITLES[sym] || :p) { self << man.manual_p(text, dir) }
+        end
+        end
+      end
+
+      docs = load_docs(Shoes::Manual::path)
+      sections = docs.map { |x,| x }
+
+      docn = 1
+      docs.each do |title1, opt1|
+        subsect = opt1['sections'].map { |x,| x }
+        menu = sections.map do |x|
+          [x, (subsect if x == title1)]
+        end
+
+        path1 = File.join(dir, title1.gsub(/\W/, ''))
+        make_html("#{path1}.html", title1, menu) do
+          h2 "The Shoes Manual"
+          h1 title1
+          man.wiki_tokens opt1['description'], true, &instance_eval(&html_bits)
+          p.next { text "Next: "
+            a opt1['sections'].first[1]['title'], :href => "#{opt1['sections'].first[0]}.html" }
+        end
+
+        optn = 1
+        opt1['sections'].each do |title2, opt2|
+          path2 = File.join(dir, title2)
+          make_html("#{path2}.html", opt2['title'], menu) do
+            h2 "The Shoes Manual"
+            h1 opt2['title']
+            man.wiki_tokens opt2['description'], true, &instance_eval(&html_bits)
+            opt2['methods'].each do |title3, desc3|
+              sig, val = title3.split(/\s+»\s+/, 2)
+              aname = sig[/^[^(=]+=?/].gsub(/\s/, '').downcase
+              a :name => aname
+              div.method do
+                a sig, :href => "##{aname}"
+                text " » #{val}" if val
+              end
+              div.sample do
+                man.wiki_tokens desc3, &instance_eval(&html_bits)
+              end
+            end
+            if opt1['sections'][optn]
+              p.next { text "Next: "
+                a opt1['sections'][optn][1]['title'], :href => "#{opt1['sections'][optn][0]}.html" }
+            elsif docs[docn]
+              p.next { text "Next: "
+                a docs[docn][0], :href => "#{docs[docn][0].gsub(/\W/, '')}.html" }
+            end
+            optn += 1
+          end
+        end
+
+        docn += 1
+      end
+    end
+  end
+
+  def self.show_manual
+    manual_as :shoes
+  end
+
+  def self.show_log
+    require 'shoes/log'
+    return if @log_app and Shoes.APPS.include? @log_app
+    @log_app =
+      Shoes.app do
+        extend Shoes::LogWindow
+        setup
+      end
+  end
+
+  def self.mount(path, meth, &blk)
+    @mounts << [path, meth || blk]
+  end
+
+  SHOES_URL_RE = %r!^@([^/]+)(.*)$! 
+
+  def self.run(path)
+    uri = URI(path)
+    @mounts.each do |mpath, rout|
+      m, *args = *path.match(/^#{mpath}$/)
+      if m
+        unless rout.is_a? Proc
+          rout = rout[0].instance_method(rout[1])
+        end
+        return [rout, args]
+      end
+    end
+    case uri.path when "/"
+      [nil]
+    when SHOES_URL_RE
+      [proc { eval(URI("http://#$1:53045#$2").read) }]
+    else
+      [NotFound]
+    end
+  end
+
+  def self.args!
+    if RUBY_PLATFORM !~ /darwin/ and ARGV.empty?
+      Shoes.splash
+    end
+    OPTS.parse! ARGV
+    ARGV[0] or true
+  end
+
+  def self.uri(str)
+    if str =~ SHOES_URL_RE
+      URI("http://#$1:53045#$2")
+    else
+      URI(str) rescue nil
+    end
+  end
+
+  def self.visit(path)
+    uri = Shoes.uri(path)
+
+    case uri
+    when URI::HTTP
+      str = uri.read
+      if str !~ /Shoes\.app/
+        Shoes.app do
+          eval(uri.read)
+        end
+      else
+        eval(uri.read)
+      end
+    else
+      path = File.expand_path(path.gsub(/\\/, "/"))
+      if path =~ /\.shy$/
+        @shy = true
+        require 'shoes/shy'
+        base = File.basename(path, ".shy")
+        tmpdir = "%s/shoes-%s.%d" % [Dir.tmpdir, base, $$]
+        shy = Shy.x(path, tmpdir)
+        Dir.chdir(tmpdir)
+        Shoes.debug "Loaded SHY: #{shy.name} #{shy.version} by #{shy.creator}"
+        path = shy.launch
+      else
+        @shy = false
+        Dir.chdir(File.dirname(path))
+        path = File.basename(path)
+      end
+
+      $0.replace path
+      
+      code = read_file(path)
+      eval(code, TOPLEVEL_BINDING, path)
+    end
+  rescue SettingUp
+  rescue Object => e
+    error(e)
+    show_log
+  end
+
+  def self.read_file path
+    if RUBY_VERSION =~ /^1\.9/ and !@shy
+      #File.open(path, 'r:utf-8') { |f| f.read }
+      IO.read(path).force_encoding("UTF-8")
+    else
+      File.read(path)
+    end
+  end
+
+  def self.url(path, meth)
+    Shoes.mount(path, [self, meth])
+  end
+
+  module Basic
+    def tween opts, &blk
+      opts = opts.dup
+
+      if opts[:upward]
+        opts[:top] = self.top - opts.delete(:upward)
+      elsif opts[:downward]
+        opts[:top] = self.top + opts.delete(:downward)
+      end
+      
+      if opts[:sideways]
+        opts[:left] = self.left + opts.delete(:sideways)
+      end
+      
+      @TWEEN.remove if @TWEEN
+      @TWEEN = parent.animate(opts[:speed] || 20) do
+
+        # figure out a coordinate halfway between here and there
+        cont = opts.select do |k, v|
+          if self.respond_to? k
+            n, o = v, self.send(k)
+            if n != o
+              n = o + ((n - o) / 2)
+              n = v if o == n
+              self.send("#{k}=", n)
+            end
+            self.style[k] != v
+          end
+        end
+
+        # if we're there, get rid of the animation
+        if cont.empty?
+          @TWEEN.remove
+          @TWEEN = nil
+          blk.call if blk
+        end
+      end
+    end
+  end
+
+  # complete list of styles
+  BASIC_S = [:left, :top, :right, :bottom, :width, :height, :attach, :hidden,
+             :displace_left, :displace_top, :margin, :margin_left, :margin_top,
+             :margin_right, :margin_bottom]
+  TEXT_S  = [:strikecolor, :undercolor, :font, :size, :family, :weight,
+             :rise, :kerning, :emphasis, :strikethrough, :stretch, :underline,
+             :variant]
+  MOUSE_S = [:click, :motion, :release, :hover, :leave]
+  KEY_S   = [:keydown, :keypress, :keyup]
+  COLOR_S = [:stroke, :fill]
+
+  {Background => [:angle, :radius, :curve, *BASIC_S],
+   Border     => [:angle, :radius, :curve, :strokewidth, *BASIC_S],
+   Canvas     => [:scroll, :start, :finish, *(KEY_S|MOUSE_S|BASIC_S)],
+   Check      => [:click, :checked, *BASIC_S],
+   Radio      => [:click, :checked, :group, *BASIC_S],
+   EditLine   => [:change, :secret, :text, *BASIC_S],
+   EditBox    => [:change, :text, *BASIC_S],
+   Effect     => [:radius, :distance, :inner, *(COLOR_S|BASIC_S)],
+   Image      => MOUSE_S|BASIC_S,
+   ListBox    => [:change, :items, :choose, *BASIC_S],
+   # Pattern    => [:angle, :radius, *BASIC_S],
+   Progress   => BASIC_S,
+   Shape      => COLOR_S|MOUSE_S|BASIC_S,
+   TextBlock  => [:justify, :align, :leading, *(COLOR_S|MOUSE_S|TEXT_S|BASIC_S)],
+   Text       => COLOR_S|MOUSE_S|TEXT_S|BASIC_S}.
+  each do |klass, styles|
+    klass.class_eval do
+      include Basic
+      styles.each do |m|
+        case m when *MOUSE_S
+        else
+          define_method(m) { style[m] } unless klass.method_defined? m
+          define_method("#{m}=") { |v| style(m => v) } unless klass.method_defined? "#{m}="
+        end
+      end
+    end
+  end
+
+  class Types::Widget
+    @types = {}
+    def self.inherited subc
+      methc = subc.to_s[/(^|::)(\w+)$/, 2].
+              gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+              gsub(/([a-z\d])([A-Z])/,'\1_\2').downcase
+      @types[methc] = subc
+      Shoes.class_eval %{
+        def #{methc}(*a, &b)
+          a.unshift Widget.instance_variable_get("@types")[#{methc.dump}]
+          widget(*a, &b)
+        end
+      }
+    end
+  end
+end
+
+def window(*a, &b)
+  Shoes.app(*a, &b)
+end