scarpe 0.1.0 → 0.2.0

data/examples/legacy/not_checked/shoes3-tests/plot/cstest.rb

@@ -0,0 +1,51 @@
+# chart_series test 
+Shoes.app width: 600, height: 500 do
+  @values1 = [24, 22, 10, 13, 20, 8, 22]
+  @x_axis1 = ['a','b','c','d','e','f', 'g']
+  @top = stack do
+    para "Chart series tests"
+    flow do 
+      button "quit" do Shoes.quit end
+      button "List" do 
+        @top.append do
+         v = @cs.values
+         l = @cs.labels
+         para "Length = #{v.size} min: #{@cs.min}, max: #{@cs.max}"
+         para "short: #{@cs.name}, desc: #{@cs.desc} color: #{@cs.color}"
+         para "stoke: #{@cs.strokewidth} points: #{@cs.points}"
+         v.each_index do |idx|
+           para "#{l[idx]} #{v[idx]}"
+         end
+        end
+      end
+      button "Change Things" do
+        @cs.min = 4
+        @cs.max = 30
+        @cs.desc = "Nothing Like It"
+        @cs.color = coral
+        @cs.strokewidth = 2
+        @cs.points = "circle"  # line charts do respect this, scatter does (gr4.rb)
+        ary = @cs.get(3)
+        puts "get x: #{ary[0]} y: #{ary[1]}"
+        @cs.set 7, ['whoa!', 29]
+        ary = @cs.get(7)
+        puts "set x: #{ary[0]} y: #{ary[1]}"        
+        # trigger redraw of chart
+        @grf.redraw_to(@values1.size)
+      end
+    end
+    widget_width = 580
+    widget_height = 300
+    stack do
+      flow do
+        @grf = plot widget_width, widget_height, title: "My Graph", caption: 
+          "Look at that! Booyah!!" , font: "Helvetica", auto_grid: true,
+          default: "skip", background: honeydew
+      end
+    end
+    @cs = @grf.add values: @values1, labels: @x_axis1,
+      name: "foobar", min: 6, max: 26 , desc: "foobar Yy", color: dodgerblue,
+       points: true
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/gr1.rb

@@ -0,0 +1,73 @@
+# good-graph.rb ?
+Shoes.app width: 700, height: 610 do
+  @values1 = [24, 22, 10, 13, 20, 8, 22]
+  @x_axis1 = ['a','b','c','d','e','f', 'g']
+  #@values1 = [24, 22, nil, 13, 20, 8, 22]
+  #@x_axis1 = ['a','b',nil,'d','e','f', 'g']
+  @values2 = [200, 150, 75, 125, 75, 50, 125]
+  stack do
+    para "Plot Widget Demo"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 600
+    widget_height = 400
+    stack do
+      flow do
+        para "This is mine!"
+        @grf = plot widget_width, widget_height, title: "My Graph", caption: 
+          "Look at that! Booyah!!" , font: "Helvetica", auto_grid: true, chart: "timeseries",
+          default: "skip", click: proc {|btn, l, t| puts "click on #{@grf.near_x(l)}" }
+      end
+    end
+    @grf.add  values: @values1, labels: @x_axis1,
+       name: "foobar", min: 6, max: 26 , desc: "foobar Yy", color: dodgerblue,
+       points: true
+    flow do 
+      button "add #2" do
+        cs2 = chart_series values: @values2, name: "bartab", min: @values2.min, max: @values2.max , color: coral,
+          strokewidth: 3
+        @grf.add cs2
+        #@grf.add values: @values2, 
+        #  name: "bartab", min: @values2.min, max: @values2.max , color: "coral",
+        #  strokewidth: 3 #, points: true
+      end
+      button "delete #2" do
+        @grf.delete(1)
+      end
+      button "drop two right" do
+        last = @grf.last
+        #puts "chopping #{last} bye two"
+        @grf.set_last last-2
+      end
+      button "drop one left" do
+        @grf.set_first (@grf.first + 1)
+      end
+      button "save as" do
+        file = ask_save_file
+        @grf.save_as file if file
+      end
+    end
+    button "Add points to #1" do
+      s2 = @grf.id("bartab")
+      @grf.delete(s2) if s2  # make sure only series1 is on screen
+      idx = @values1.size
+      m =  @values1.min      # min and max don't work if nil is in the data
+      rng = @values1.max - m
+      i = 0
+      tmr = every(1) do
+        tmr.stop if i >= 5 
+        rv = rand(rng) + m
+        idx = idx + 1
+        @values1 << rv
+        @x_axis1 << idx.to_s
+        @grf.redraw_to(idx) #problematic
+        i = i + 1
+      end
+    end
+  end
+  def grf_clicked (me, btn, t, l)
+    puts "clicked #{btn}, #{t}, #{l}"
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/gr2.rb

@@ -0,0 +1,40 @@
+# two grapsh
+Shoes.app width: 800, height: 500 do
+  @values1 = [24, 22, 10, 13, 20, 8, 22]
+  @x_axis1 = ['a','b','c','d','e','f', 'g']
+  
+  @x_axis2 = ['a','b',nil,'d','e','f', 'g']
+  #@values2 = [200, 150, 75, 125, 75, 50, 125]
+  @values2 = [200, 150, 75, 125, nil, 50, 125]
+  stack do
+    para "Plot Widget Demo 2"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 400
+    widget_height = 300
+    stack do
+      flow do
+        #para "This is mine!"
+        @grf = plot widget_width, widget_height, title: "My Graph", caption: 
+          "Look at that! Booyah!!" , font: "Helvetica", auto_grid: true,
+          default: "skip"
+         @grf2 = plot widget_width, widget_height+100, title: "2nd Graph", caption: 
+          "Amazing!!" , font: "Helvetica", auto_grid: false, chart: "line",
+          default: "skip", background: cornsilk
+      
+      end
+    end
+    cs1 = chart_series values: @values1, labels: @x_axis1,
+       name: "foobar", min: 6, max: 26 , desc: "foobar Yy", color: dodgerblue,
+       points: true
+    @grf.add cs1
+    #@grf.add values: @values1, labels: @x_axis1,
+    #   name: "foobar", min: 6, max: 26 , desc: "foobar Yy", color: dodgerblue,
+    #   points: true
+    @grf2.add values: @values2, labels: @x_axis2,
+       name: "Bar", min: 50, max:  250, desc: "BarBaz", color: dodgerblue,
+       points: true
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/gr3.rb

@@ -0,0 +1,47 @@
+# two graphs - line and bar 
+Shoes.app width: 800, height: 500 do
+  @values1 = [24, 22, 10, 13, 20, 8, 22]
+  @x_axis1 = ['a','b','c','d','e','f', 'g']
+  
+#  @x_axis2 = ['a','b',nil,'d','e','f', 'g']
+  @x_axis2 = ['a','b','c','d','e','f', 'g']
+  @values2 = [200, 150, 75, 125, 75, 225, 125]
+  # @values2 = [200, 150, 75, 125, nil, 50, 125]
+  stack do
+    para "Plot Demo Line and Column"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 400
+    widget_height = 300
+    stack do
+      flow do
+        #para "This is mine!"
+        @grf = plot widget_width, widget_height, title: "My Graph", caption: 
+          "Look at that! Booyah!!" , font: "Helvetica", auto_grid: true,
+          default: "skip", background: honeydew
+         @grf2 = plot widget_width, widget_height+100, title: "Column Graph", caption: 
+          "Amazing!!" , font: "Mono", auto_grid: false, 
+          default: "skip", background: cornsilk, chart: "column", boundary_box: false
+      end
+    end
+    @grf.add values: @values1, labels: @x_axis1,
+      name: "foobar", min: 6, max: 26 , desc: "foobar Yy", color: dodgerblue,
+       points: true
+    @grf.add values: @values2, labels: @x_axis2,
+       name: "Tab", min: @values2.min, max: @values2.max, desc: "BarTab", color: coral,
+       points: true, strokewidth: 2
+
+    @grf2.add values: @values1, labels: @x_axis1,
+       name: "Bar", min: 0, max:  30, desc: "foobar Yy", color: rgb(220, 20, 60, 172),
+       points: true, strokewidth: 12
+    cs2 = chart_series values: @values2, labels: @x_axis2,
+       name: "Tab", min: 50, max: 230, desc: "BarTab", color: green,
+       points: true, strokewidth: 6
+    @grf2.add cs2
+    #@grf2.add values: @values2, labels: @x_axis2,
+    #   name: "Tab", min: 50, max: 230, desc: "BarTab", color: green,
+    #   points: true, strokewidth: 6
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/gr4.rb

@@ -0,0 +1,35 @@
+# scatter graph - 
+# data comes form OpenOffice example 
+Shoes.app width: 620, height: 480 do
+  @values1 = [14,13,15,27,17,18,33,25,21] # x values - Wind speed
+  @values2 = [11,17,23,39,22,31,47,48,41] # y values - Cloud cover
+  
+  stack do
+    para "Plot Scatter Demo 4"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 600
+    widget_height = 400
+    stack do
+      flow do
+        @grf = plot widget_width, widget_height, title: "Weather Conditions", caption: 
+          "Look at that! Booyah!!" , font: "Helvetica", auto_grid: true,
+          default: "skip", background: honeydew, chart: "scatter"
+      end
+    end
+    cs1 = @grf.add  values: @values1, 
+      name: "Wind", min: 12.5, max: 35 , color: dodgerblue,
+      points: "dot", strokewidth: 1, desc: "Wind speed (km/hr)"
+    cs1.points = "box"
+    cs1.strokewidth = 5
+    cs2 = chart_series values: @values2, name: "Clouds",
+      min: 10, max: 50 , color: black,
+      points: "box", strokewidth: 1, desc: "Cloud Cover (percentage)"
+    @grf.add cs2
+    #@grf.add  values: @values2, name: "Clouds",
+    #  desc: "Cloud Cover (percentage)", min: 10, max: 50 , color: black,
+    #  points: "box", strokewidth: 1
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/gr5.rb

@@ -0,0 +1,31 @@
+# pie graph - 
+# data is Shoes https downloads on a Sunday (light day)
+Shoes.app width: 620, height: 480 do
+  @values1 = [15, 5, 4, 4, 3, 3, 1, 1] # downloads
+  @obs1 = ["gtk3-32.exe", "gtk3-x86_64.install", "osx-10.9.tgz", "/",
+     "3.2.25.exe", "robots.txt", "gtk3-i686,install,", "gtk3-armhf.install"]
+  
+  stack do
+    para "Plot Pie Demo 5"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 600
+    widget_height = 400
+    stack do
+      flow do
+        @grf = plot widget_width, widget_height, title: "Shoes Https downloads", caption: 
+          "popularity " , font: "Helvetica", auto_grid: true,
+          default: "skip", background: white, chart: "pie", percent: true,
+          colors: [yellow, olive]
+      end
+    end
+    cs = chart_series values: @values1, labels: @obs1,
+      name: "download", min: @values1.min, max: @values1.max
+    @grf.add cs
+    #@grf.add values: @values1, labels: @obs1,
+      #name: "download", min: @values1.min, max: @values1.max #, color: dodgerblue,
+      #points: "dot", strokewidth: 1
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/gr6.rb

@@ -0,0 +1,35 @@
+# Radar graph - 
+Shoes.app width: 620, height: 480 do
+  @xobs = ["internet", "television", "radio", "newspaper", "magazine"]
+  @values1 = [80,        160,          145,     75,          80] 
+  @values2 = [180,        90,           95,     90,          90]
+  @columns = [ ["Internet", 0, 200, "%3.0f k"], 
+               ["Television", 0, 250," %3.0f k" ],
+               {label: "Radio", min: 0, max: 200, format: "%3.0f k"},
+               ["Newspaper", 0, 200, "%3.0f k"],
+               ["Magazine", 0, 200, "%3.0f k"]
+             ]
+  stack do
+    para "Plot Radar Demo 6"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 600
+    widget_height = 400
+    stack do
+      flow do
+        @grf = plot widget_width, widget_height, title: "Advertising", caption: 
+          "Budget Spend" , font: "Helvetica", auto_grid: true,
+          default: "skip", background: cornsilk, chart: "radar", column_settings: @columns
+      end
+    end
+    @grf.add values: @values1, labels: @xobs,
+      name: "Year 1", min: 0, max: 200, color: dodgerblue,
+      points: "dot", strokewidth: 3
+    cs = app.chart_series values: @values2, labels: @xobs,
+      name: "Year 2", min: 0, max: 200, color: coral,
+      points: "dot", strokewidth: 3
+    @grf.add cs
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/gr7.rb

@@ -0,0 +1,37 @@
+# Radar graph - 
+Shoes.app width: 620, height: 480 do
+  @pre_test =  [71, 35, 62, 55, 88, 76, 55] 
+  @practice =  [70, 53, 83, 94, 71, 59, 82]
+  @post_test = [94, 93, 96, 89, 96, 88, 93]
+  @dimensions = [ ["Anger", 0, 100, "%3.0f%%"], 
+               ["Contempt", 0, 100, "%3.0f%%"],
+               {label: "Disgust", min: 0, max: 100, format: "%3.0f%%"},
+               ["Fear", 0, 100, "%3.0f%%"],
+               ["Joy", 0, 100, "%3.0f%%"],
+               ["Sadness", 0, 100, "%3.0f%%"],
+               ["Surprise", 0, 100, "%3.0f%%"]
+             ]
+  stack do
+    para "Plot Radar Demo 7"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 600
+    widget_height = 400
+    stack do
+      flow do
+        @grf = plot widget_width, widget_height, title: "Microexpressions Scores", 
+          font: "Helvetica", auto_grid: true, grid_lines: 3, label_radius: 1.10,
+          default: "skip", chart: "radar", column_settings: @dimensions
+      end
+    end
+    @grf.add values: @pre_test, color: blue, 
+      name: "Pre-Test Score", min: 0, max: 100, strokewidth: 3
+    cs = app.chart_series values: @practice, color: red,
+      name: "Practice Score", min: 0, max: 100, strokewidth: 3
+    @grf.add cs
+    @grf.add values: @post_test, color: orange,
+      name: "Post-Test Score", min: 0, max: 100, strokewidth: 3
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/plot/grcsv.rb

@@ -0,0 +1,219 @@
+require 'csv'
+# csv can be nasty with frozen values. Grrr.
+
+class DataSeries
+
+  @name = ""
+  @values = []
+  @obs = []
+  attr_accessor :name, :values, :obvs
+
+  def initialize(filename)
+    @values = []
+    @obvs = []
+    load_file(filename)
+  end
+
+  def load_csv (filename, vals, obvs)
+    hdr_name = nil
+    CSV.foreach(filename, 'r') do |row|
+      if !hdr_name
+        hdr_name = row[0].dup if !hdr_name
+      end
+      dts = row[1].to_str.dup
+      #y = dts[0..3].to_i
+      #m = dts[4..5].to_i
+      #d = dts[6..7].to_i
+      #dt = DateTime.new(y,m,d,16,0,0,'-4')
+      v = row[2].to_f
+      @obvs <<  "#{dts[2..3]}-#{dts[4..5]}-#{dts[6..7]}"
+      @values << v
+    end
+    return hdr_name
+  end
+
+  # I know the data is well formed csv
+  def load_file (filename)
+    @name = nil
+    File.open(filename, mode: 'r').each do |ln|
+      flds = ln.split(',')
+      if !@name
+        @name = flds[0]
+      end
+      dts = flds[1];
+      @obvs <<  "#{dts[2..3]}-#{dts[4..5]}-#{dts[6..7]}"
+      @values << flds[2].to_f
+    end
+    #puts "load_file: #{@values.size}"
+  end
+  
+  def size 
+    return @values.size
+  end
+  
+  def max
+    @values.max
+  end
+  
+  def min
+   @values.min
+  end
+  
+  def name
+   @name
+  end
+  
+end #class 
+
+Shoes.app width: 620, height: 610 do
+  @series =[] 
+  @zooming = false;
+  @zoom_beg = 0
+  @zoom_end = 0;
+  
+  def zoom_in
+    range = @zoom_end - @zoom_beg
+    @zoom_beg = (@zoom_beg + (range * 0.125)).to_i
+    @zoom_end = (@zoom_end - (range * 0.125)).to_i
+    puts "zoom in #{@zoom_beg} #{@zoom_end}"
+    @zooming = true;
+    @grf.zoom @zoom_beg, @zoom_end
+  end
+  
+  def zoom_out
+    range = @zoom_end - @zoom_beg
+    sz = @series[0].size
+    @zoom_beg = (@zoom_beg - (range * 0.125)).to_i
+    @zoom_beg = 0 if @zoom_beg < 0
+    @zoom_end = (@zoom_end + (range * 0.125)).to_i
+    @zoom_end = sz if @zoom_end > sz
+    puts "zoom out #{@zoom_beg} #{@zoom_end}"
+    @grf.zoom @zoom_beg, @zoom_end
+    if @zoom_beg == 0 && @zoom_end == sz
+      puts "zoom off"
+      @zooming = false
+    end
+  end
+  
+  def zoom_scroll_left
+    if @zooming
+     range = @zoom_end - @zoom_beg
+     sz = @series[0].size
+     @zoom_beg = (@zoom_beg - (range * 0.125)).to_i
+     @zoom_beg = 0 if @zoom_beg < 0
+     @zoom_end = (@zoom_end - (range * 0.125)).to_i
+     @zoom_end = sz if @zoom_end > sz
+     puts "scroll left #{@zoom_beg} #{@zoom_end}"
+     @grf.zoom @zoom_beg, @zoom_end
+    end
+  end
+  
+  def zoom_scroll_right
+    if @zooming
+      range = @zoom_end - @zoom_beg
+      sz = @series[0].size
+      @zoom_beg = (@zoom_beg + (range * 0.125)).to_i
+      @zoom_beg = 0 if @zoom_beg < 0
+      @zoom_end = (@zoom_end + (range * 0.125)).to_i
+      @zoom_end = sz if @zoom_end > sz
+      puts "scroll right #{@zoom_beg} #{@zoom_end}"
+      @grf.zoom @zoom_beg, @zoom_end
+    end
+  end
+  
+  def zoom_end_key
+    @zoom_beg = 0
+    @zoom_end = @series[0].size
+    @zooming = false
+    @grf.zoom @zoom_beg, @zoom_end
+  end
+  
+  def zoom_home_key
+    @zoom_beg = 0
+    @zoom_end = @series[0].size
+    @zooming = false
+    @grf.zoom @zoom_beg, @zoom_end
+  end
+  
+  def max (a, b)
+    return (a >= b) ? a : b
+  end
+  
+  def min (a, b)
+    return (a <= b) ? a : b
+  end
+  
+  # like zoom in, but it centers the display on the clicked observation (index)
+  # Note that the idx lies between displayed beg and end indices already
+  def zoom_center(x)
+    idx = @grf.near_x x
+    printf("zoom center start: %3d % 4d % 4d % 4d\n", x, @zoom_beg, idx, @zoom_end)
+    range = @zoom_end - @zoom_beg
+    cpidx = idx / range
+  
+    newl = (@zoom_beg + (range * 0.125)).to_i
+    newr = (@zoom_end - (range * 0.125)).to_i
+    @zoom_beg = newl
+    @zoom_end = newr
+    printf("zoom center end:   %3d % 4d % 4d % 4d \n", x, @zoom_beg, idx, @zoom_end)
+    @zooming = true;
+    @grf.zoom @zoom_beg, @zoom_end
+  end
+  
+  @loaddir = Dir.getwd
+  #puts "default load dir #{@loaddir}"
+  stack do
+    flow do 
+      button "quit" do Shoes.quit end
+      button "Load Dir" do
+        ndir = ask_open_folder 
+        @loaddir = ndir if ndir
+      end
+      button "load file" do 
+        Dir.chdir(@loaddir) do 
+          filename = ask_open_file title: "Please be a csv file"
+          if filename 
+              @series << DataSeries.new(filename)
+              newidx = @series.size - 1
+              ser = @series[newidx]
+              @grf.add values: ser.values, max: ser.max * 1.01,
+                min: ser.min, name: ser.name, labels: ser.obvs, points: true
+              @zoom_end = ser.size
+          end
+        end
+      end
+      button "in %25" do
+        zoom_in
+      end
+      button "out %25" do
+        zoom_out
+      end
+      button "reset" do
+        zoom_home_key
+      end
+      button "save as" do
+        file = ask_save_file
+        @grf.save_as file if file
+      end
+    end
+    @grf = plot 600, 400,  title: "Explore Market Data", caption: "Depends on the data. eh?",
+      x_ticks: 8, y_ticks: 10,  auto_grid: true, click: proc {|btn, l, t| zoom_center l}, chart: "timeseries"
+    keypress do |k|
+      #puts "key: #{k.inspect}"
+      case k
+        when :home  
+          zoom_home_key
+        when :end
+          zoom_end_key
+        when "+" 
+          zoom_in
+        when "-" , "_"
+          zoom_out
+        when :left
+          zoom_scroll_left
+        when :right
+          zoom_scroll_right
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/shoes3-tests/plot/manual.rb

@@ -0,0 +1,40 @@
+# two graphs - line and bar 
+Shoes.app width: 800, height: 500 do
+  @values1 = [24, 22, 10, 13, 20, 8, 22]
+  @x_axis1 = ['a','b','c','d','e','f', 'g']
+  @values2 = [200, 150, 75, 125, 75, 225, 125] 
+  @x_axis2 = ['a','b','c','d','e','f', 'g']
+  stack do
+    para "Plot Demo Line and Column"
+    flow do 
+      button "quit" do Shoes.quit end
+    end
+    widget_width = 400
+    widget_height = 300
+    stack do
+      flow do
+        @grf = plot widget_width, widget_height, title: "My Graph", caption: 
+          "Look at that! Booyah!!" , font: "Helvetica", auto_grid: true,
+          default: "skip", background: honeydew
+         @grf2 = plot widget_width, widget_height+100, title: "Column Graph", caption: 
+          "Amazing!!" , font: "Mono", auto_grid: false, 
+          default: "skip", background: cornsilk, chart: "column", boundary_box: false
+      end
+    end
+    @grf.add values: @values1, labels: @x_axis1,
+      name: "foobar", min: 6, max: 26 , desc: "foobar Yy", color: dodgerblue,
+       points: true
+    @grf.add values: @values2, labels: @x_axis2,
+       name: "Tab", min: @values2.min, max: @values2.max, desc: "BarTab", color: coral,
+       points: true, strokewidth: 2
+
+    @grf2.add values: @values1, labels: @x_axis1,
+       name: "Bar", min: 0, max:  30, desc: "foobar Yy", color: rgb(220, 20, 60),
+       points: true, strokewidth: 12
+    cs2 = chart_series values: @values2, labels: @x_axis2,
+       name: "Tab", min: 50, max: 230, desc: "BarTab", color: green,
+       points: true, strokewidth: 6
+    @grf2.add cs2
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/progress/progress.rb

@@ -0,0 +1,29 @@
+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
+              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 => 1.25,
+                :progress => proc { |dl| 
+                  d.text = "Transferred #{dl.transferred} of #{dl.length} bytes (#{dl.percent}%)"
+                  p.fraction = dl.percent },
+                :finish => proc { |dl| d.text = "Download completed"}
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/shoes3-tests/radio/clear.rb

@@ -0,0 +1,20 @@
+Shoes.app do
+    def main slot, stuff
+        slot.clear do
+            stuff.each_with_index do |x, i|
+                flow do                             ####### FIX 1 : COMMENT THIS LINE 
+                   r =  radio :item, checked: true; para "Radio-#{i}" 
+                   r.checked = true if i == 1 
+                end                                   ####### FIX 1 : COMMENT THIS LINE 
+            end
+        end
+    end
+    stack do    
+      ITEMS = Array.new( 3, 1 )
+      desktop = stack left: 20, top: 40, width: 200 
+      main desktop, ITEMS
+      button "Reset" do
+          main  desktop, ITEMS
+      end
+    end
+end

data/examples/legacy/not_checked/shoes3-tests/radio/group.rb

@@ -0,0 +1,18 @@
+# group
+  Shoes.app do
+   stack do
+     para "Among these films, which do you prefer?"
+     flow do
+       radio :films
+       para "The Taste of Tea by Katsuhito Ishii"
+     end
+     flow do
+       radio :films
+       para "Kin-Dza-Dza by Georgi Danelia"
+     end
+     flow do
+       radio :films
+       para "Children of Heaven by Majid Majidi"
+     end
+   end
+ end