scarpe 0.1.0 → 0.2.1

data/examples/legacy/not_checked/simple/accordion.rb

@@ -0,0 +1,81 @@
+# encoding: UTF-8
+module Accordion
+  def open_page stack
+    active = app.slot.contents.map { |x| x.contents[1] }.
+      detect { |x| x.height > 0 }
+    return if active == stack
+    a = animate 60 do
+      stack.height += 20
+      active.height = 240 - stack.height if active
+      a.stop if stack.height == 240
+    end
+  end
+  def page title, text
+    @pages ||= []
+    @pages <<
+      stack do
+        page_text = nil
+        stack :width => "100%" do
+          background "#fff".."#eed"
+          hi = background "#ddd".."#ba9", :hidden => true
+          para link(title) {}, :size => 26
+          hover { hi.show }
+          leave { hi.hide }
+          click { open_page page_text }
+        end
+        page_text =
+          stack :width => "100%", :height => (@pages.empty? ? 240 : 0) do
+            stack :margin => 10 do
+              text.split(/\n{2,}/).each do |pg|
+                para pg
+              end
+            end
+          end
+      end
+  end
+end
+
+Shoes.app do
+  extend Accordion
+  if RUBY_VERSION == '1.9.1'
+    Shoes::Link = Link
+    Shoes::LinkHover = LinkHover
+  end
+  #style(Link,  :stroke => black, :underline => nil, :weight => "strong")
+  #style(LinkHover, :stroke => black, :fill => nil, :underline => nil)
+  style(Shoes::Link,  :stroke => black, :underline => nil, :weight => "strong")
+  style(Shoes::LinkHover, :stroke => black, :fill => nil, :underline => nil)
+  page "0.0", <<-'END'
+There is a thought
+I have just had
+Which I don’t care to pass to
+Anyone at all at this time.
+
+I have even forgotten it now,
+But kept only the pleasures
+Of my property
+And of my controlled mental slippage.
+END
+  page "0.1", <<-'END'
+My eyes have blinked again
+And I have just realized
+This upright world
+I have been in.
+
+My eyelids wipe
+My eyes hundreds of times
+Reseting and renovating
+The scenery.
+END
+  page "0.2", <<-'END'
+Sister, without you,
+The universe would
+Have such a hole through it,
+Where infinity has been shot.
+
+This cannot be, though.
+There will always be room
+For you—all of us are
+Holding the way open.
+END
+end

data/examples/legacy/not_checked/simple/anim-shapes.rb

@@ -0,0 +1,17 @@
+Shoes.app do
+  background rgb(0, 0, 0)
+  fill rgb(255, 255, 255)
+  rects = [
+    rect(0, 0, 50, 50),
+    rect(0, 0, 100, 100),
+    rect(0, 0, 75, 75)
+  ] 
+  animate(24) do |i|
+    rects.each do |r|
+      r.move((0..400).rand, (0..400).rand)
+    end
+  end
+  button "OK", :top => 0.5, :left => 0.5 do
+    Shoes.quit unless confirm "You ARE sure you're OK??"
+  end
+end

data/examples/legacy/not_checked/simple/anim-text.rb

@@ -0,0 +1,13 @@
+Shoes.app do
+  stack :top => 0.5, :left => 0.5 do
+    para "Counting up:"
+    l = para "0"
+    animate(24) do |i|
+      f = ['Arial 14px', 'Serif 34px', 'Monospace 18px', 'Arial 48px'][rand(3)]
+      l.replace "#{i}", :font => f
+    end
+    motion do |x, y|
+      Shoes.p [x, y]
+    end
+  end
+end

data/examples/legacy/not_checked/simple/arc.rb

@@ -0,0 +1,23 @@
+#
+# a translation from a processing example
+# http://vormplus.be/weging/an-introduction-to-processing/
+#
+Shoes.app :width => 420, :height => 420, :resizable => false do
+  rotation = -(Shoes::HALF_PI / 3)
+  step = 20 
+
+  background gray(240)
+  stroke gray(127)
+  cap :curve
+  nofill
+
+  10.times do |i|
+    strokewidth i
+    size = 200 + (step * i)
+    shape do
+      arc self.width / 2, self.height / 2,
+          size, size,
+          rotation * i, rotation * i + Shoes::TWO_PI - Shoes::HALF_PI
+    end
+  end
+end

data/examples/legacy/not_checked/simple/bounce.rb

@@ -0,0 +1,24 @@
+xspeed, yspeed = 8.4, 6.6
+xdir, ydir = 1, 1
+
+Shoes.app do
+  background "#DFA"
+  border black, :strokewidth => 6
+
+  nostroke
+  @icon = image "#{DIR}/static/shoes-icon.png", :left => 100, :top => 100 do
+    alert "You're soooo quick."
+  end
+
+  x, y = self.width / 2, self.height / 2
+  size = @icon.size
+  animate(30) do
+    x += xspeed * xdir
+    y += yspeed * ydir
+    
+    xdir *= -1 if x > self.width - size[0] or x < 0
+    ydir *= -1 if y > self.height - size[1] or y < 0
+
+    @icon.move x.to_i, y.to_i
+  end
+end

data/examples/legacy/not_checked/simple/chipmunk.rb

@@ -0,0 +1,26 @@
+# simple-chipmunk.rb
+require 'shoes/chipmunk'
+
+Shoes.app title: 'A Tiny Chipmunk Physics Demo' do
+  extend ChipMunk
+  space = cp_space
+  balls = []
+  
+  nofill
+  cp_line 0, 180, 200, 280, stroke: gold
+  cp_line 200, 280, 300, 270, stroke: gold
+  cp_line 250, 350, 350, 330
+  cp_line 170, 370, 220, 380
+  cp_line 100, 450, 300, 430, stroke: lightslategray
+  cp_line 300, 430, 500, 450, stroke: lightslategray
+
+  nostroke
+  oval(10, 30, 40, fill: blue).click{balls << cp_oval(30, 50, 20, stroke: blue, strokewidth: 2)}
+  oval(70, 40, 20, fill: green).click{balls << cp_oval(80, 50, 10, fill: green)}
+  oval(105, 45, 10, fill: red).click{balls << cp_oval(110, 50, 5, fill: red)}
+  
+  every do
+    6.times{space.step 1.0/60}
+    balls.each{|ball| ball.cp_move}
+  end
+end

data/examples/legacy/not_checked/simple/control-sizes.rb

@@ -0,0 +1,24 @@
+Shoes.app :width => 360, :height => 600, :resizable => false do
+  stroke "#dde"
+  background "#f1f5ff"
+  13.times { |x| line 20, 142 + (30 * x), 320, 142 + (30 * x) }
+  11.times { |x| line 20 + (30 * x), 142, 20 + (30 * x), 502 }
+
+  stack :margin => 20 do
+    title "Control Sizes", :size => 16
+    para "This app measures various controls against a grid of lines, to be sure they size appropriately despite the platform."
+    stack :top => 122, :left => 30 do
+      button "Standard"
+      button "Margin: 2, Height: 30", :margin => 2, :height => 30
+      edit_line "Standard", :margin => 1
+      edit_line "Margin: 4, Height: 30", :height => 30, :margin => 4
+      list_box :items => ["Standard"], :choose => "Standard"
+      list_box :items => ["Margin: 4, Height: 32"],
+        :choose => "Margin: 4, Height: 32",
+        :height => 32, :margin => 4
+      progress
+      progress :height => 32, :margin => 4
+      edit_box
+    end
+  end
+end

data/examples/legacy/not_checked/simple/curve-control-points.rb

@@ -0,0 +1,24 @@
+# https://github.com/casparjones/First-Ruby-Steps/blob/master/shoes-samples/simple-curve.rb
+# http://www.cairographics.org/samples/curve_to/
+
+# curve_to with visible control points.
+# The ovals represent the control points.
+Shoes.app(title: "curve_to control points", width: 256, height: 256) do
+   x, y = 25.6, 128.0
+   x1 = 102.4; y1 = 230.4
+   x2 = 153.6; y2 = 25.6
+   x3 = 230.4; y3 = 128.0
+
+   fill green(0.2)
+   move_to x, y
+   oval(:left => x, :top => y, :radius => 10, :center => true)
+   oval(:left => x1, :top => y1, :radius => 10, :center => true)
+   oval(:left => x2, :top => y2, :radius => 10, :center => true)
+   oval(:left => x3, :top => y3, :radius => 10, :center => true)
+   
+   fill red(0.2)   
+   shape do
+      move_to x, y
+      curve_to x1, y1, x2, y2, x3, y3
+   end
+end

data/examples/legacy/not_checked/simple/curve.rb

@@ -0,0 +1,26 @@
+#
+# based on the cairo curve_to example
+# http://www.cairographics.org/samples/curve_to/
+#
+Shoes.app do  
+  x, y = 25.6, 128.0
+  x1 = 102.4; y1 = 230.4
+  x2 = 153.6; y2 = 25.6
+  x3 = 230.4; y3 = 128.0
+
+  nofill
+  strokewidth 10.0
+  shape do
+    move_to x, y
+    curve_to x1, y1, x2, y2, x3, y3
+  end
+
+  strokewidth 6.0
+  stroke rgb(1.0, 0.2, 0.2, 0.6)
+  shape do
+    move_to x, y
+    line_to x1, y1
+    move_to x2, y2
+    line_to x3, y3
+  end
+end

data/examples/legacy/not_checked/simple/dialogs.rb

@@ -0,0 +1,29 @@
+Shoes.app :width => 300, :height => 150, :margin => 10 do
+  def answer(v)
+    @answer.replace v.inspect
+  end
+
+  button "Ask" do
+    answer ask("What is your name?")
+  end
+  button "Confirm" do
+    answer confirm("Would you like to proceed?")
+  end
+  button "Open File..." do
+    answer ask_open_file
+  end
+  button "Save File..." do
+    answer ask_save_file
+  end
+  button "Open Folder..." do
+    answer ask_open_folder
+  end
+  button "Save Folder..." do
+    answer ask_save_folder
+  end
+  button "Color" do
+    answer ask_color("Pick a Color")
+  end
+
+  @answer = para "Answers appear here"
+end

data/examples/legacy/not_checked/simple/downloader.rb

@@ -0,0 +1,40 @@
+Shoes.app do
+  background "#eee"
+  @list = stack do
+    para "Enter a URL to download:", :margin => [10, 8, 10, 0]
+    flow :margin => 10 do
+      @url = edit_line :width => -120
+      @url.text ='http://walkabout.mvmanila.com/public/share/Ytm-2.exe'
+      st_time = 0
+      end_time = 0
+      totalsz = 0
+      button "Download", :width => 120 do
+        st_time = Time.now
+        @list.append do
+          stack do
+            background "#eee".."#ccd"
+            stack :margin => 10 do
+              dld = nil
+              para @url.text, " [", link("cancel") { @dld.abort }, "]", :margin => 0
+              d = inscription "Beginning transfer.", :margin => 0
+              p = progress :width => 1.0, :height => 14
+              @dld = download @url.text, :save => File.basename(@url.text),
+                :pause => 0.02,
+                :progress => proc { |dl| 
+                  d.text = "Transferred #{dl.transferred} of #{dl.length} bytes (#{dl.percent.to_s[0..6]}%)"
+                  p.fraction = dl.percent
+                 },
+                :finish => proc { |dl|
+                     end_time = Time.now
+                     secs = (end_time.to_i - st_time.to_i)
+                     kb = dl.length < 1024 ? 1: dl.length / 1024
+                     d.text = "Download completed KB/s: #{kb/secs} seconds:#{secs}"
+                  }
+              para "Should appear after button press"
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/simple/downloader1.rb

@@ -0,0 +1,31 @@
+Shoes.app do
+  background "#eee"
+  @list = stack do
+    para "Enter a URL to download:", :margin => [10, 8, 10, 0]
+    flow :margin => 10 do
+      @url = edit_line :width => -120
+      @url.text ='http://shoes.mvmanila.com'
+      button "Download", :width => 120 do
+        @list.append do
+          stack do
+            background "#eee".."#ccd"
+            stack :margin => 10 do
+              dld = nil
+              download @url.text do |r| 
+                para "Status: #{r.response.status}\nHeaders:"
+                r.response.headers.each {|k,v| para "#{k}: #{v}\n"}
+                sz = r.response.body.size
+                para "Body size: #{sz}\n"
+                if sz > 0
+                  lines = r.response.body.split
+                  para "First: #{lines[0]}\n"
+                  para "Last:  #{lines[-1]}\n"
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/simple/draw.rb

@@ -0,0 +1,13 @@
+Shoes.app do
+  background "#999"
+  stroke "#000"
+  x, y = nil, nil
+  motion do |_x, _y|
+    if x and y and (x != _x or y != _y)
+      append do
+        line x, y, _x, _y
+      end
+    end
+    x, y = _x, _y
+  end
+end

data/examples/legacy/not_checked/simple/editor.rb

@@ -0,0 +1,28 @@
+str, t = "", nil
+Shoes.app :height => 500, :width => 450 do
+  background rgb(77, 77, 77)
+  stack :margin => 10 do
+    para span("TEXT EDITOR", :stroke => red, :fill => white), " * USE ALT-Q TO QUIT", :stroke => white
+  end
+  stack :margin => 10 do
+    t = para "", :font => "Monospace 12px", :stroke => white
+    t.cursor = -1
+  end
+  keypress do |k|
+    case k
+    when String
+      str += k
+    when :backspace
+      str.slice!(-1)
+    when :tab
+      str += "  "
+    when :alt_q
+      Shoes.quit
+    when :alt_c
+      self.clipboard = str
+    when :alt_v
+      str += self.clipboard
+    end
+    t.replace str
+  end
+end

data/examples/legacy/not_checked/simple/form.rb

@@ -0,0 +1,30 @@
+Shoes.app :width => 320, :height => 420 do
+  background "../static/menu-gray.png"
+  background "../static/menu-top.png", :height => 50
+  background "../static/menu-left.png", :top => 50, :width => 55
+  background "../static/menu-right.png", :right => 0, :top => 50, :width => 55
+  image "../static/menu-corner1.png", :top => 0, :left => 0
+  # image "../static/menu-corner2.png", :right => 0, :top => 0
+  # list_box :items => ["Phyllis", "Ronald", "Wyatt"]
+  list_box(items: ["Phyllis", "Ronald", "Wyatt"])
+
+  stack :margin => 40 do
+    stack :margin => 10 do
+      para "Name"
+      @name = list_box :items => ["Phyllis", "Ronald", "Wyatt"]
+    end
+    stack :margin => 10 do
+      para "Address"
+      @address = edit_line
+    end
+    stack :margin => 10 do
+      para "Phone"
+      @phone = edit_line
+    end
+    stack :margin => 10 do
+      button "Save" do
+        Shoes.p [@name.text, @address.text, @phone.text]
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/simple/image.rb

@@ -0,0 +1,21 @@
+Shoes.app do
+  background "#eee"
+  @list = stack do
+    @img = image '../static/man-builds.png'
+    para "Enter a image URL to download:", :margin => [10, 8, 10, 0]
+    flow :margin => 10 do
+      @url = edit_line :width => -120
+      @url.text ='http://shoes.mvmanila.com/public/images/dino.jpg'
+      button "Download", :width => 120 do
+        @list.append do
+          stack do
+            background "#eee".."#ccd"
+            stack :margin => 10 do
+               image  @url.text
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/simple/info.rb

@@ -0,0 +1,78 @@
+Shoes.app height: 800, width: 800 do
+  para "Startup info\n"
+  para "Ruby Version: #{RUBY_VERSION} on #{RUBY_PLATFORM}\n"
+  para "Shoes Release: #{Shoes::RELEASE_NAME}\n"
+  para "    built on #{Shoes::RELEASE_BUILD_DATE}\n"
+  para "    Fit: #{Shoes::RELEASE_TYPE}\n"
+  para "Gems Version #{Gem::RubyGemsVersion}"
+  if defined?(ShoesGemJailBreak)
+   para "Jailbreak == #{ShoesGemJailBreak}"
+  else
+   para "Cannot determine JailBreak status?"
+  end
+  stack do
+      para "Env Variables"
+      @env = edit_box height: 150, width: 0.95, margin: 8
+	  ct = ["ENV vars:\n"]
+	  ENV.each_key do |i|
+	    ct <<  "#{i}=#{ENV[i]}\n"
+	  end
+	  @env.text = ct.join
+	  
+	  ct = ["$: Array of ext/gem dirs:\n"]
+	  para ct[0].rstrip
+	  @edir = edit_box height: 150, width: 0.95, margin: 8
+	  $:.each do |gdir|
+	    ct << "#{gdir}\n"
+	  end
+	  @edir.text = ct.join
+	  
+	  ct = ["RbConfig::CONFIG\n"]
+	  para ct[0].strip
+	  @rbc = edit_box height: 150, width: 0.95, margin: 8
+	  RbConfig::CONFIG.each_key do |j|
+	     ct << "'#{j}' = #{RbConfig::CONFIG[j]}\n"
+	  end
+	  @rbc.text = ct.join
+	  
+	  hsh = {}
+	  ct =  ["$\" before require\n"]
+	  para ct[0].rstrip
+	  @ld1 = edit_box height: 150, width: 0.95, margin: 8
+	  $".each do |k| 
+	    ct << "#{k}\n"
+	    hsh[k] = true
+	  end
+	  @ld1.text = ct.join
+	  
+	  ct = ["$\" additions after require\n"]
+	  para ct[0].rstrip
+	  @ld2 = edit_box height: 150, width: 0.95, margin: 8
+      require 'bigdecimal'
+      require 'nokogiri'
+      if ShoesGemJailBreak
+        #require 'nokogiri'
+      end
+	  $".each do |f|
+	    ct << "#{f}\n" unless hsh[f]
+	  end
+	  @ld2.text =ct.join
+	  flow do
+	    button "Save to file..." do
+	      fn = ask_save_file
+	      if fn && f=File.open(fn,"w")
+	         f.puts @env.text
+	         f.puts ("\n")
+	         f.puts @edir.text
+	         f.puts ("\n")
+	         f.puts @rbc.text
+	         f.puts ("\n")
+	         f.puts @ld1.text
+	         f.puts ("\n")
+	         f.puts @ld2.text
+	         f.close
+	      end
+	    end
+	  end
+  end
+end

data/examples/legacy/not_checked/simple/mask.rb

@@ -0,0 +1,21 @@
+Shoes.app do
+  background black
+
+  stack :top => 0.4, :left => 0.2 do
+    @stripes = stack
+
+    mask do
+      title "Shoes", :weight => "bold", :size => 82
+    end
+  end
+  
+  animate 10 do
+    @stripes.clear do
+      20.times do |i|
+        strokewidth 4
+        stroke rgb((0.0..0.5).rand, (0.0..1.0).rand, (0.0..0.3).rand)
+        line 0, i * 5, 400, i * 8
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/simple/mask2.rb

@@ -0,0 +1,27 @@
+xspeed, yspeed = 8.4, 6.6
+xdir, ydir = 1, 1
+
+Shoes.app do
+  background "#{DIR}/static/stripe.png"
+
+  mask do
+    @icon = image "#{DIR}/static/shoes-icon.png", :left => 100, :top => 100 do
+      alert "You're soooo quick."
+    end
+    title "STATIC !", weight: "ultrabold", :left => 150, :top => 150
+    @s = star 230,100,7, 50, 25
+  end
+
+  x, y = self.width / 2, self.height / 2
+  size = @icon.size
+  animate(30) do |f|
+    x += xspeed * xdir
+    y += yspeed * ydir
+
+    xdir *= -1 if x > self.width - size[0] or x < 0
+    ydir *= -1 if y > self.height - size[1] or y < 0
+
+    @icon.move x.to_i, y.to_i
+    @s.toggle if f % 10 == 0
+  end
+end

data/examples/legacy/not_checked/simple/menu.rb

@@ -0,0 +1,31 @@
+class MenuPanel < Shoes::Widget
+  @@boxes = []
+  def initialize(color, args)
+    @@boxes << self
+    background color
+    para link("Box #{@@boxes.length}", :stroke => white, :fill => nil).
+      click { visit "/" },
+        :margin => 18, :align => "center", :size => 20
+    hover { expand }
+  end
+  def expand
+    if self.width < 170
+      a = animate 30 do
+        @@boxes.each do |b|
+          b.width -= 5 if b != self and b.width > 140
+        end
+        self.width += 5
+        a.stop if self.width >= 170
+      end
+    end
+  end
+end
+
+Shoes.app :width => 400, :height => 130 do
+  style(Shoes::Link, :underline => nil)
+  style(Shoes::LinkHover, :fill => nil, :underline => nil)
+  menu_panel green,  :width => 170, :height => 120, :margin => 4
+  menu_panel blue,   :width => 140, :height => 120, :margin => 4
+  menu_panel red,    :width => 140, :height => 120, :margin => 4
+  menu_panel purple, :width => 140, :height => 120, :margin => 4
+end

data/examples/legacy/not_checked/simple/menu1.rb

@@ -0,0 +1,35 @@
+class MenuPanel < Shoes::Widget
+  $boxes = []
+  def initialize(color, args)
+    $boxes << self
+    background color
+    para link("Box #{$boxes.length}", :stroke => white, :fill => nil).
+      click { visit "/" },
+        :margin => 18, :align => "center", :size => 20
+    yield
+  end
+end
+
+Shoes.app :width => 600, :height => 130 do
+  style(Shoes::Link, :underline => nil)
+  style(Shoes::LinkHover, :fill => nil, :underline => nil)
+  
+  expand = proc do
+    hover do |box|
+      if box.width < 170
+        a = animate 30 do
+          $boxes.each do |b|
+            b.width -= 5 if b != box and b.width > 140
+          end
+          box.width += 5
+          a.stop if box.width >= 170
+        end
+      end
+    end
+  end
+    
+  menu_panel green,  :width => 170, :height => 120, :margin => 4, &expand
+  menu_panel blue,   :width => 140, :height => 120, :margin => 4, &expand
+  menu_panel red,    :width => 140, :height => 120, :margin => 4, &expand
+  menu_panel purple, :width => 140, :height => 120, :margin => 4, &expand
+end