lacci 0.2.1 → 0.3.0

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

@@ -1,32 +0,0 @@
-# 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

@@ -1,9 +0,0 @@
- # 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

@@ -1,14 +0,0 @@
-<?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

@@ -1,15 +0,0 @@
-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

@@ -1,208 +0,0 @@
-# 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

@@ -1,28 +0,0 @@
-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

@@ -1,20 +0,0 @@
-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

@@ -1,17 +0,0 @@
-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

@@ -1,27 +0,0 @@
-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

@@ -1,65 +0,0 @@
-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

@@ -1,50 +0,0 @@
-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

@@ -1,31 +0,0 @@
-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

@@ -1,138 +0,0 @@
-# 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