lacci 0.2.1

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

@@ -0,0 +1,32 @@
+# Works ok with symbols instead of strings in Gtk2 (linux, win7)
+# if the manual says otherwise, fix the manual.
+# OSX bug 
+Shoes.app do
+  stack do
+    flow {
+      @r5 = radio; para "default"
+      @r6 = radio tooltip: "Useless radio - did you want a Checkbox"; para "still more default"
+    }
+    flow {
+      @r1 = radio :group
+      para "one"
+    }
+    flow {@r2 = radio :group, checked:  true; para "two"}
+    para "================"
+    flow { # horizontal grouping
+      @r3 = radio :newgrp; para "near"
+      @r4 = radio :newgrp; para "far"
+    }
+    @r4.checked = true 
+    start { 
+      para "checked one = #{@r1.checked?}\n" 
+      para "checked far = #{@r4.checked?}\n"
+    }
+    button "Now check" do
+      para "One: #{@r1.checked?}\n"
+      para "Two: #{@r2.checked?}\n"
+      para "near: #{@r3.checked?}\n"
+      para "far: #{@r4.checked?}\n"
+    end
+  end
+end

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

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

data/examples/legacy/not_checked/shoes3-tests/simpletest.svg

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<svg xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:svg="http://www.w3.org/2000/svg" xmlns="http://www.w3.org/2000/svg" width="1000" height="600" viewBox="0 0 1000 600" id="svg2" version="1.1">
+  <defs id="defs4" />
+  <metadata id="metadata7">
+    <rdf:RDF>
+      <cc:Work rdf:about="">
+        <dc:format>image/svg+xml</dc:format>
+        <dc:type rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
+        <dc:title></dc:title>
+      </cc:Work>
+    </rdf:RDF>
+  </metadata>
+  <rect ry="4.9891047" rx="7.1970706" y="45.599087" x="5.599225" height="548.80157" width="978.80157" id="test_rectangle" style="opacity:0.98000004;fill:#e87c00;fill-opacity:1;fill-rule:nonzero;stroke:#000000;stroke-width:1.1984483;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />
+</svg>

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

@@ -0,0 +1,15 @@
+Shoes.app do
+   flow do
+      @n = spinner
+      @m = spinner
+      @o = spinner start: true
+   end
+   
+   click do |btn, left, top|
+      @m.started? ? @m.stop : @m.start
+   end
+   
+   start do
+      @n.start
+   end
+end

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

@@ -0,0 +1,208 @@
+# encoding: UTF-8
+
+class SvgTestBase < Test::Unit::TestCase
+    class << self
+        def init(app)
+            @@app = app
+        end
+        
+        def startup; end
+        def shutdown; end
+    end
+
+    def setup; end
+    def teardown; end
+end
+
+class SvgTest0 < SvgTestBase
+
+    description "xml, no dimensions"
+    def test_svg_basic
+        
+        assert_not_nil @@app.svg_obj
+        assert_instance_of Shoes::Svg, @@app.svg_obj
+        
+        assert_equal 190, @@app.svg_obj.width
+        assert_equal 110, @@app.svg_obj.height
+        
+        assert_not_nil @@app.svg_obj.handle
+        assert_instance_of Shoes::SvgHandle, @@app.svg_obj.handle
+        assert_true @@app.svg_obj.group? "#xml_rectangle"
+        
+        # this svg is smaller than app dimensions => preferred_width == width
+        assert_equal 190, @@app.svg_obj.preferred_width
+        assert_equal 110, @@app.svg_obj.preferred_height
+        assert_equal 0, @@app.svg_obj.offset_x
+        assert_equal 0, @@app.svg_obj.offset_y
+        assert_equal 90, @@app.svg_obj.dpi
+    end
+end
+
+class SvgTest1 < SvgTestBase
+
+    description "file, parent dimensions"
+    def test_svg_basic
+        
+        assert_not_nil @@app.svg_obj
+        assert_instance_of Shoes::Svg, @@app.svg_obj
+        
+        # resized to fit at maximum app dimensions
+        assert_equal 600, @@app.svg_obj.width
+        assert_equal 360, @@app.svg_obj.height
+        
+        assert_not_nil @@app.svg_obj.handle
+        assert_instance_of Shoes::SvgHandle, @@app.svg_obj.handle
+        assert_true @@app.svg_obj.group? "#test_rectangle"
+        
+        # this svg is bigger than app dimensions => preferred_width > width
+        assert_equal 1000, @@app.svg_obj.preferred_width
+        assert_equal 600, @@app.svg_obj.preferred_height
+        assert_equal 0, @@app.svg_obj.offset_x
+        assert_equal 0, @@app.svg_obj.offset_y
+        assert_equal 90, @@app.svg_obj.dpi
+    end
+end
+
+class SvgTest2 < SvgTestBase
+
+    description "parent canvas dimensions"
+    def test_svg_basic
+        
+        assert_not_nil @@app.svg_obj
+        assert_instance_of Shoes::Svg, @@app.svg_obj
+        
+        assert_equal 30, @@app.svg_obj.width
+        assert_equal 17, @@app.svg_obj.height
+    end
+end
+
+class SvgTest3 < SvgTestBase
+
+    description "svg object dimensions"
+    def test_svg_basic
+        
+        assert_not_nil @@app.svg_obj
+        assert_instance_of Shoes::Svg, @@app.svg_obj
+        
+        assert_equal 30, @@app.svg_obj.width
+        assert_equal 17, @@app.svg_obj.height
+    end
+end
+
+class SvgTest4 < SvgTestBase
+
+    description "parent and svg object dimensions"
+    def test_svg_basic
+        
+        assert_not_nil @@app.svg_obj
+        assert_instance_of Shoes::Svg, @@app.svg_obj
+        
+        assert_equal 25, @@app.svg_obj.width
+        assert_equal 14, @@app.svg_obj.height
+    end
+end
+
+class SvgTest5 < SvgTestBase
+
+    description "aspect ratio false, Landscape"
+    def test_basic_aspectRatioFalse
+        assert_equal 48, @@app.svg_obj.width
+        assert_equal 32, @@app.svg_obj.height
+    end
+end
+
+class SvgTest5B < SvgTestBase
+
+    description "aspect ratio 0.5, Landscape"
+    def test_basic_aspectRatio_05
+        assert_equal 16, @@app.svg_obj.width
+        assert_equal 32, @@app.svg_obj.height
+    end
+end
+
+class SvgTest5C < SvgTestBase
+
+    description "aspect ratio 1.5, Landscape"
+    def test_basic_aspectRatio_15
+        assert_equal 48, @@app.svg_obj.width
+        assert_equal 32, @@app.svg_obj.height
+    end
+end
+
+class SvgTest6 < SvgTestBase
+
+    description "aspect ratio 0.5, Square"
+    def test_basic_aspectRatioCustomLess
+        assert_equal 24, @@app.svg_obj.width
+        assert_equal 48, @@app.svg_obj.height
+    end
+end
+
+class SvgTest7 < SvgTestBase
+
+    description "aspect ratio 1.5, Square"
+    def test_basic_aspectRatioCustomMore
+        assert_equal 48, @@app.svg_obj.width
+        assert_equal 32, @@app.svg_obj.height
+    end
+end
+
+class SvgTest8 < SvgTestBase
+
+    description "xml, group"
+    def test_xmlGroup
+        assert_equal 180, @@app.svg_obj.preferred_width
+        assert_equal 100, @@app.svg_obj.preferred_height
+        assert_equal 5, @@app.svg_obj.offset_x
+        assert_equal 5, @@app.svg_obj.offset_y
+    end
+end
+
+class SvgTest9 < SvgTestBase
+
+    description "file, group"
+    def test_fileGroup
+        assert_equal 980, @@app.svg_obj.preferred_width
+        assert_equal 550, @@app.svg_obj.preferred_height
+        assert_equal 5, @@app.svg_obj.offset_x
+        assert_equal 45, @@app.svg_obj.offset_y
+    end
+end
+
+class SvgTest10 < SvgTestBase
+
+    description "aspect ratio true, Portrait"
+    def test_aspectRatioTrue
+        assert_equal 32, @@app.svg_obj.width
+        assert_equal 18, @@app.svg_obj.height
+    end
+end
+
+class SvgTest11 < SvgTestBase
+
+    description "aspect ratio false, Portrait"
+    def test_aspectRatioFalse
+        assert_equal 32, @@app.svg_obj.width
+        assert_equal 48, @@app.svg_obj.height
+    end
+end
+
+class SvgTest12 < SvgTestBase
+
+    description "aspect ratio 0.5, Portrait"
+    def test_aspectRatio_05
+        assert_equal 24, @@app.svg_obj.width
+        assert_equal 48, @@app.svg_obj.height
+    end
+end
+
+class SvgTest13 < SvgTestBase
+
+    description "aspect ratio 1.5, Portrait"
+    def test_aspectRatio_15
+        assert_equal 32, @@app.svg_obj.width
+        assert_equal 21, @@app.svg_obj.height
+    end
+end
+
+

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

@@ -0,0 +1,28 @@
+Shoes.app width: 300, height: 200 do
+   flow do
+      switch font: "monospace Italic 10", stroke: red; para
+   end
+   
+   flow do
+      @n = switch(active: true) do
+         @p.text = (@n.active? ? "true": "false") unless @p.nil?
+      end
+      @p = para
+   end
+   
+   flow do
+      @m = switch width: 80
+      @m.click do
+        #$stderr.puts "Click"
+        @m.active? ? @e.start : @e.stop
+      end
+      @e = every(1) { |count| @q.text = count unless @q.nil? & @m.active? }
+      @q = para ""
+   end
+   
+   start do
+      @e.stop
+      @p.text = @n.active? ? "true" : "false"
+      @m.active = false
+   end
+end

data/examples/legacy/not_checked/shoes3-tests/systray/back.rb

@@ -0,0 +1,20 @@
+Shoes.app do
+  stack do
+    para "Generate 10 systray calls - 30 seconds appart."
+    para "Press button to start and cover the app window with another app"
+    ctr = 0;
+    button "Notify" do
+      @ev = every 30 do
+	      ctr += 1
+	      icp = ''
+	      if ctr % 3 != 0
+	        icp = "#{DIR}/static/shoes-icon.png"
+	      else
+	        icp = "#{DIR}/static/shoes-icon-red.png"
+	      end
+	      systray title: "Shoes Notify Test", message: "message ##{ctr}", icon: icp
+	      @ev.stop if ctr >=  10
+	  end
+    end
+  end 
+end

data/examples/legacy/not_checked/shoes3-tests/systray/note.rb

@@ -0,0 +1,17 @@
+Shoes.app do
+  #app.set_window_title "Blitz"
+  stack do
+    para "Press button and look in your system's notification area"
+    ctr = 0;
+    button "Notify" do
+      ctr += 1
+      icp = ''
+      if ctr % 3 != 0
+        icp = "#{DIR}/static/shoes-icon.png"
+      else
+        icp = "#{DIR}/static/shoes-icon-red.png"
+      end
+      systray title: "#{app.name} Notify Test", message: "message ##{ctr}", icon: icp
+    end
+  end 
+end

data/examples/legacy/not_checked/shoes3-tests/terminal/cursor.rb

@@ -0,0 +1,27 @@
+Shoes.app do 
+  stack do
+    para "Game Mode Terminal test"
+    button "do it" do
+      columns = 80
+      rows = 24
+      Shoes.terminal columns: columns, rows: rows, fontsize: 12, title: "Test Cursor Movements",
+        mode: 'game'
+      ruler1 = ''
+      ruler2 = ''
+      (1..columns).each do |i|
+        tens = i/10
+        ones = i%10
+        ruler1 << (tens == 0 ? ' ' : tens.to_s)
+        ruler2 << ones.to_s
+      end
+      puts ruler1
+      puts ruler2
+      (3..rows+2).each {|row| puts row }
+      (3..rows).each { |ln| $stdout.write "\033[#{ln};1H#{ln}"; $stdout.flush }
+      $stdout.write "\033[10;10H10,10\033[20;20H20,20"
+      $stdout.flush
+      $stdout.write "\033[24;79HEND\033[1;1H"
+      $stdout.flush
+    end
+  end
+end

data/examples/legacy/not_checked/shoes3-tests/terminal/ed.rb

@@ -0,0 +1,65 @@
+require 'readline'
+Shoes.app do 
+  stack do
+    para "Game Mode Terminal Screen/Line test"
+    button "do it" do
+      columns = 80
+      rows = 24
+      Shoes.terminal columns: columns, rows: rows, fontsize: 12, title: "Test Cursor Movements",
+        mode: 'game'
+      ruler1 = ''
+      ruler2 = ''
+      (1..columns).each do |i|
+        tens = i/10
+        ones = i%10
+        ruler1 << (tens == 0 ? ' ' : tens.to_s)
+        ruler2 << ones.to_s
+      end
+      puts ruler1
+      puts ruler2
+      puts "Line 3"
+      lcnt = 1
+      Thread.new do
+        loop do
+          $stdout.write "\033[24;78HEND"
+          $stdout.write "\033[12;40H";   $stdout.flush
+          ans = Readline.readline("Erase Display ?").strip
+          exit if ans == 'q'
+          if ans != ''
+            $stdout.write "\033[2;1H\033[2J\033[2;1HDONE"; $stdout.flush
+          end
+          $stdout.write "\033[1;1H\033[32m"; $stdout.flush
+          ans = Readline.readline("next [rtn/q] ?").strip
+          exit if ans == 'q'
+          
+          $stdout.write "\033[20;1H"
+          puts ruler1
+          puts ruler2
+          $stdout.write "\033[24;78HEND"
+          $stdout.write "\033[12;40H";   $stdout.flush
+          ans = Readline.readline("Erase Display Below [y/q] ?").strip
+          if ans == 'y'
+            $stdout.write "\033[J"; $stdout.flush
+          end
+          $stdout.write "\033[1;1H\033[31m"; $stdout.flush
+          ans = Readline.readline("continue [rtn/q] ?").strip
+          exit if ans == 'q'
+          
+          $stdout.write "\033[1;1H"
+          puts ruler1
+          puts ruler2
+          $stdout.write "\033[12;72HHERE"
+          $stdout.write "\033[12;40H";   $stdout.flush
+          ans = Readline.readline("Erase Display to HERE [y/q] ?").strip
+          if ans == 'y'
+            $stdout.write "\033[12;72H\033[1J"; $stdout.flush
+          end
+          $stdout.write "\033[24;1H"
+          ans = Readline.readline("nothing more to do - [rtn] ").strip
+          quit
+        end
+        puts "test finished"
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/shoes3-tests/terminal/el.rb

@@ -0,0 +1,50 @@
+require 'readline'
+Shoes.app do 
+  stack do
+    para "Game Mode Terminal Screen/Line test"
+    button "do it" do
+      columns = 80
+      rows = 24
+      Shoes.terminal columns: columns, rows: rows, fontsize: 12, title: "Test Cursor Movements",
+        mode: 'game'
+      ruler1 = ''
+      ruler2 = ''
+      (1..columns).each do |i|
+        tens = i/10
+        ones = i%10
+        ruler1 << (tens == 0 ? ' ' : tens.to_s)
+        ruler2 << ones.to_s
+      end
+      puts ruler1
+      puts ruler2
+      puts "Line 3"
+      lcnt = 1
+      Thread.new do
+        loop do
+          $stdout.write "\033[12;40H"; $stdout.flush
+          ans = Readline.readline("Erase Line 2 [y/n/q] ?").strip
+          break if ans == 'n' 
+          exit if ans == 'q'
+          if ans == 'y'
+            $stdout.write "\033[2;1H\033[2K\033[2;1HHere"; $stdout.flush
+          end
+          $stdout.write "\033[12;40H"; $stdout.flush
+          ans = Readline.readline("Erase Line 1 Left half [y/n/q] ?").strip
+          break if ans == 'n' 
+          exit if ans == 'q'
+          if ans == 'y'
+            $stdout.write "\033[1;40H\033[1K\033[2;1HDone"; $stdout.flush
+          end
+          $stdout.write "\033[12;40H"; $stdout.flush
+          ans = Readline.readline("Erase Line 1 Right half [y/n/q] ?").strip
+          break if ans == 'n' 
+          exit if ans == 'q'
+          if ans == 'y'
+            $stdout.write "\033[1;40H\033[K\033[2;1HAll Finished"; $stdout.flush
+          end
+        end
+        puts "test finished"
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/shoes3-tests/terminal/logattr.rb

@@ -0,0 +1,31 @@
+Shoes.app do 
+  stack do
+    para "Terminal test"
+    button "do it" do
+      #Shoes.show_console
+      columns = 80
+      Shoes.terminal columns: columns, rows: 24, fontsize: 12, title: "Bug236",
+        fg: "yellow", bg: "black"
+      #if RUBY_PLATFORM =~ /darwin/
+      #  $stderr.puts "Filenums #{STDOUT.fileno} #{STDERR.fileno}"
+      #  $stdout = $stderr
+      #end
+      $stderr.puts "STDERR OK"
+      $stdout.puts "STDOUT OK" 
+      puts "Way to go!"
+      puts "\033[32mGood in green?\033[00m or is \033\[35mthis better\033\[00m"
+      puts "\033[31m\033[40mRed on Black\033[0m OK? \033[01mBold?\033[0m"
+      puts "And \033[04;33;46mUnderline joy?\033\[0m"
+      ruler1 = ''
+      ruler2 = ''
+      (1..columns).each do |i|
+        tens = i/10
+        ones = i%10
+        ruler1 << (tens == 0 ? ' ' : tens.to_s)
+        ruler2 << ones.to_s
+      end
+      puts ruler1
+      puts ruler2
+    end
+  end
+end

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

@@ -0,0 +1,138 @@
+# encoding: UTF-8
+
+require 'test/unit'
+require 'test/unit/ui/console/testrunner'
+
+class ColorOpaque < Test::Unit::TestCase
+    def setup
+        @color = rgb(255,254,253)
+    end
+    
+    def test_color
+        assert_not_nil @color
+        assert_instance_of Shoes::Color, @color
+        
+        assert_respond_to(@color, :opaque?)
+        assert_true @color.opaque?
+        assert_equal @color.red, 255
+        assert_equal @color.green, 254
+        assert_equal @color.blue, 253
+        assert_equal @color.alpha, 255
+    end
+    
+    def test_blackandwhite
+        @color = rgb(0,0,0)
+        assert_true @color.black?
+        
+        @color = rgb(255,255,255)
+        assert_true @color.white?
+    end
+    
+    def test_lightanddark
+        @color = rgb(84,84,84)
+        assert_true @color.dark?
+        
+        @color = rgb(171,171,171)
+        assert_true @color.light?
+    end
+    
+    def test_equality
+        color = rgb(255,0,0)
+        
+        # is this desirable ?
+        assert_equal 0, rgb(255,0,0) <=> color
+        assert_equal 0, rgb(0,0,255) <=> color
+        
+        assert_true rgb(255,0,0) == color
+        assert_true rgb(255,0,0).eql? color
+        assert_equal rgb(255,0,0), color
+        
+        assert_false rgb(0,0,255) == color
+        assert_false rgb(0,0,255).eql? color
+        assert_not_equal rgb(0,0,255), color
+    end
+    
+    def test_invert
+        assert_equal rgb(0,1,2), @color.invert
+    end
+    
+    def test_gray
+        @color = gray(89)
+        assert_equal rgb(89,89,89), @color
+    end
+end
+
+class ColorAlpha < Test::Unit::TestCase
+    def self.init(app)
+        @@app = app
+    end
+    
+    def setup
+        @color = rgb(255,254,253,128)
+    end
+    
+    def test_color_alpha
+        assert_not_nil @color
+        assert_instance_of Shoes::Color, @color
+        assert_true @color.alpha < 255
+    end
+    
+    def test_color_transparent
+         @color = rgb(255,254,253,0)
+         
+         assert_respond_to(@color, :transparent?)
+         assert_true @color.transparent?
+    end
+    
+    def test_lightanddark
+        @color = rgb(84,84,84,128)
+        assert_true @color.dark?
+        
+        @color = rgb(171,171,171,128)
+        assert_true @color.light?
+    end
+    
+    def test_blackandwhite
+        @color = rgb(0,0,0,128)
+        assert_true @color.black?
+        
+        @color = rgb(255,255,255,128)
+        assert_true @color.white?
+    end
+    
+    def test_invert
+        assert_equal rgb(0,1,2,128), @color.invert
+        assert_true rgb(0,1,2,128) == @color.invert
+        assert_equal rgb(0,1,2,128), @color.invert
+        
+        color = rgb(157,255,25,57)
+        assert_equal rgb(98,0,230,57), color.invert
+    end
+    
+    def test_gray
+        @color = gray(89, 128)
+        assert_equal rgb(89,89,89,128), @color
+    end
+    
+    def test_named
+        assert_true rgb(255,0,0,255) == @@app.red
+        
+        color = @@app.red(0.5)
+        assert_equal rgb(255,0,0,128), color
+        assert_not_equal rgb(255,0,0,127), color
+        assert_not_equal rgb(255,0,0,129), color
+    end
+end
+
+
+
+Shoes.app title: "Testing Shoes::Color" do
+    
+    ColorAlpha.init self
+    
+    tests = Test::Unit::TestSuite.new("All Color methods Tests")
+    [ColorOpaque, ColorAlpha].each { |t| tests << t.suite }
+    
+    Shoes.terminal
+    @test_result = Test::Unit::UI::Console::TestRunner.run(tests, {use_color: true})
+end