lacci 0.2.1 → 0.3.0

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

@@ -1,228 +0,0 @@
-# encoding: UTF-8
-
-require 'test/unit'
-require 'test/unit/ui/console/testrunner'
-require 'svg.rb'
-
-
-Shoes.app title: "Testing Shoes::Svg", resizable: false do
-    
-    TestRunner = Test::Unit::UI::Console::TestRunner
-    
-    # width, height : 190x110, subid = '#xml_rectangle', 180x100, offsetx = 5, offsety = 5
-    XML = '<?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" version="1.1" id="svg2" viewBox="0 0 190 110" height="110" width="190">
-      <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>
-      <g transform="translate(0,-942.36216)" id="xml_rectangle">
-        <rect y="949.33234" x="6.9701514" height="96.0597" width="176.05969" id="rectangle001" style="opacity:0.98000004;fill:#ff7131;fill-opacity:1;fill-rule:nonzero;stroke:#000000;stroke-width:3.94030356;stroke-miterlimit:4;stroke-dasharray:none;stroke-opacity:1" />
-      </g>
-    </svg>'
-    
-    # width, height : 1000x600, subid = '#test_rectangle', 980x550, offsetx = 5, offsety = 45
-    FILE = "simpletest.svg"
-    
-    TESTS = {
-        SvgTest0 => { desc: ["Basic Test : simple xml svg, no dimensions\n"], 
-                      cont_args: {},
-                      widget_args: [XML]
-                    },
-        SvgTest1 => { desc: ["Basic Test : file svg, no dimensions\n",
-                             "Relying on Shoes app size and svg size (svg is larger than app here)\n",
-                             "So keep 'resizable: false' for the app style !"], 
-                      cont_args: {},
-                      widget_args: [FILE]
-                    },
-        SvgTest2 => { desc: ["Simple xml svg, parent dimensions\n"], 
-                      cont_args: {width: 30, height: 20},
-                      widget_args: [XML]
-                    },
-        SvgTest3 => { desc: ["Simple xml svg, svg method dimensions\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 30, height: 20]
-                    },
-        SvgTest4 => { desc: ["Simple xml svg, parent and svg method dimensions\n"], 
-                      cont_args: {width: 30, height: 25},
-                      widget_args: [XML, width: 25, height: 20]
-                    },
-        SvgTest5 => { desc: ["Xml svg, Landscape, aspect ratio = false\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 48, height: 32, aspect: false]
-                    },
-        SvgTest5B => { desc: ["Xml svg, Landscape, aspect ratio = 0.5\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 48, height: 32, aspect: 0.5]
-                    },
-        SvgTest5C => { desc: ["Xml svg, Landscape, aspect ratio = 1.5\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 48, height: 32, aspect: 1.5]
-                    },
-        SvgTest6 => { desc: ["Xml svg, Square, aspect ratio = 0.5\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 48, height: 48, aspect: 0.5]
-                    },
-        SvgTest7 => { desc: ["Xml svg, Square, aspect ratio = 1.5\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 48, height: 48, aspect: 1.5]
-                    },
-        SvgTest8 => { desc: ["Xml, group id\n"], 
-                      cont_args: {},
-                      widget_args: [XML, group: "#xml_rectangle"]
-                    },           
-        SvgTest9 => { desc: ["File, group id\n"], 
-                      cont_args: {},
-                      widget_args: [FILE, group: "#test_rectangle"]
-                    },
-        SvgTest10 => { desc: ["Xml svg, Portrait, aspect ratio = true\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 32, height: 48, aspect: true]
-                    },
-        SvgTest11 => { desc: ["Xml svg, Portrait, aspect ratio = false\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 32, height: 48, aspect: false]
-                    },
-        SvgTest12 => { desc: ["Xml svg, Portrait, aspect ratio = 0.5\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 32, height: 48, aspect: 0.5]
-                    },
-        SvgTest13 => { desc: ["Xml svg, Portrait, aspect ratio = 1.5\n"], 
-                      cont_args: {},
-                      widget_args: [XML, width: 32, height: 48, aspect: 1.5]
-                    },
-    }
-    
-    
-    style(Shoes::Para, size: 10)
-    
-    build_test_gui = -> (t, details, silent) do
-        # if we try to draw tests widgets in a non visible area, drawing events are not triggered and
-        # Test processing hangs (waits) - start event is not fired -
-        # So we create a sand_box at top of Shoes app and scroll back there if necessary to 
-        # make drawing events happening 
-        app.slot.scroll_top = 0
-        
-        @sand_box.append do
-            @cont = flow( **details[:cont_args] ) do
-                @svg_obj = svg( *details[:widget_args] )
-            end
-        end
-        
-        # waiting for shoes asynchronous drawing events to occur.
-        @cont.start {
-            ## There could be only one console at a time (we can safely call it many times)
-            Shoes.terminal unless silent
-           
-            out_level = silent ? TestRunner::SILENT : TestRunner::NORMAL
-            @test_result = TestRunner.run(t.suite, {output_level: out_level,
-                use_color: true})
-            
-            puts "#{'='*40}\n\n" unless silent
-            @sand_box.clear
-            @svg_obj = nil
-            @sand_box.start { @test_complete = true }
-        }
-    end
-    
-    stack margin_left: 10, margin_right: 10 do
-        para "Launches Shoes terminal to collect results of Tests", align: "center"
-        
-        flow do
-            @sand_box = stack(height: 50, width: 279) {}
-            flow width: 300 do
-                stack do
-                    flow do
-                        para "Silent tests : "
-                        #@no_output = check checked: true
-                        @no_output = check checked: false
-                    end
-                    flow do
-                        para "stop tests on failure : "
-                        @stop_on_failure = check checked: false
-                    end
-                end
-                @visual = rect 200, 0, 30, 30, 5, fill: white
-            end
-        end
-        
-        flow margin: [0,0,0,5] do
-            
-            button "run ALL Tests" do
-                @got_failure = false
-                @visual.style(fill: white)
-                
-                # We have to wait for each test to complete (asynchronous drawing)
-                @test_complete = true
-                tenum = TESTS.each_with_index
-                anm = animate(20) do
-                    
-                    if @test_complete
-                        if @test_result && @test_result.error_occurred?
-                            @test_result = nil
-                            @visual.style(fill: yellow)
-                            anm.stop; anm.remove; anm = nil
-                        elsif @test_result && @test_result.failure_occurred?
-                            @got_failure = true
-                            
-                            if @stop_on_failure.checked?
-                                @visual.style(fill: red)
-                                anm.stop; anm.remove; anm = nil
-                            end
-                            @test_result = nil
-                        else
-                            @test_result = nil
-                            begin
-                                h,i = tenum.next
-                                
-                                @test_complete = false
-                                build_test_gui.call(h[0], h[1], @no_output.checked?)
-                                
-                            rescue StopIteration
-                                @visual.style(fill: @got_failure ? red : green)
-                                anm.stop; anm.remove; anm = nil
-                            end
-                        end
-                    end
-                end
-            end
-            
-            para "  in order of appearance, top to bottom, click below to show detailed tests"
-        end
-        
-        flow height: 30, margin_bottom: 5 do
-            bg = background "#fff".."#eed"
-            hover { |s| bg.fill = "#ddd".."#ba9"; s.refresh_slot }
-            leave { |s| bg.fill = "#fff".."#eed"; s.refresh_slot }
-            click { |s| @tests_slot.toggle }
-            
-            para "click to see/hide detailed list of tests", margin_left: 50
-        end
-        
-        @tests_slot = stack hidden: true do
-            TESTS.each do |t, details|
-                flow do
-                    button "run Test" do
-                        @visual.style(fill: white)
-                        # always show output (output_level == NORMAL)
-                        build_test_gui.call(t, details, false)
-                    end
-
-                    para *(["#{t.to_s} : \n"] << details[:desc])
-                end
-            end
-        end
-        
-    end
-    
-    def cont; @cont end
-    def svg_obj; @svg_obj end
-    SvgTestBase.init self
-    
-end

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

@@ -1,186 +0,0 @@
-# encoding: UTF-8
-
-require 'test/unit'
-require 'test/unit/ui/console/testrunner'
-require 'video_vlc.rb'
-
-require 'shoes/videoffi'
-
-Shoes.app title: "Testing Shoes video" do
-    
-    TestRunner = Test::Unit::UI::Console::TestRunner
-    
-    TESTS = {
-        VideoVlcTest0 => { desc: ["Most Basic unique Test : no path/url, no dimensions\n",
-                              span("Run this first to ensure that video widget works at its bare minimum",
-                              stroke: darkred)], 
-                           cont_args: {},
-                           widget_args: ['']
-                         },
-        VideoVlcTest1 => { desc: ["Iinitialisation of video widget without a given path to a media\n",
-                            "path= method \nvideo widget ", span("Container", weight: 'bold'), " dimensions given "],
-                           cont_args: {width: 30, height: 20},
-                           widget_args: ['', bg_color: yellow]
-                         },
-        VideoVlcTest2 => { desc: ["Iinitialisation of video widget without a given path to a media\n",
-                            "path= method \nvideo ", span("Widget", weight: 'bold'), " dimensions given "],
-                           cont_args: {},
-                           widget_args: ['', width: 25, height: 20]
-                         },
-        VideoVlcTest3 => { desc: ["Iinitialisation of video widget without a given path to a media\n",
-                            "path= method \nvideo ", span("Widget and Container", weight: 'bold'), " dimensions given "],
-                           cont_args: {width: 35, height: 20},
-                           widget_args: ['', width: 20, height: 20]
-                         },
-        VideoVlcTest4 => { desc: "no Dimensions provided, relying on video track dimensions",
-                           cont_args: {},
-                           widget_args: ['AnemicCinema1926marcelDuchampCut.mp4']
-                         },                 
-        VideoVlcTest5 => { desc: "Widget background color",
-                           cont_args: {width: 36, height: 21},
-                           widget_args: ['', bg_color: yellow ]
-                         },
-        VideoVlcTest6 => { desc: "Passing vlc options to underlaying libvlc_new() C method",
-                           cont_args: {width: 36, height: 21},
-                           widget_args: ['AnemicCinema1926marcelDuchampCut.mp4', 
-                                          vlc_options: ["--no-xlib", "--no-video-title-show"] ]
-                         },                 
-        VideoVlcTestAudio => { desc: "audio method + volume, volume= methods",
-                               cont_args: {width: 35, height: 20},
-                               widget_args: ['indian.m4a', width: 350, height: 20]
-                             },                 
-         
-    }
-    
-    
-    style(Shoes::Para, size: 10)
-    
-    build_test_gui = -> (t, details, silent) do
-        # if we try to draw tests widgets in a non visible area, drawing events are not triggered and
-        # Test processing hangs (waits) - start event is not fired -
-        # So we create a sand_box at top of Shoes app and scroll back there if necessary to 
-        # make drawing events happening 
-        app.slot.scroll_top = 0
-        
-        @sand_box.append do
-            @cont = flow( **details[:cont_args] ) do
-                @vid = 
-                if t == VideoVlcTestAudio
-                    audio( *details[:widget_args] )
-                else
-                    video( *details[:widget_args] )
-                end
-            end
-        end
-        
-        # waiting for shoes asynchronous drawing events to occur.
-        @cont.start {
-            ## There can be only one shoes terminal (we can safely call it many times)
-            Shoes.terminal unless silent
-            
-            out_level = silent ? TestRunner::SILENT : TestRunner::NORMAL
-            @test_result = TestRunner.run(t.suite, {output_level: out_level, 
-            use_color: true})
-            
-            puts "#{'='*40}\n\n" unless silent
-            @sand_box.clear
-            @vid = nil
-            @sand_box.start { @test_complete = true }
-        }
-    end
-    
-    stack margin_left: 10, margin_right: 10 do
-        para "Launches Shoes terminal to collect results of Tests", align: "center"
-        
-        flow do
-            @sand_box = stack(height: 50, width: 279) {}
-            flow width: 300 do
-                stack do
-                    flow do
-                        para "Silent tests : "
-                        #@no_output = check checked: true
-                        @no_output = check checked: false
-                    end
-                    flow do
-                        para "stop tests on failure : "
-                        @stop_on_failure = check checked: false
-                    end
-                end
-                @visual = rect 200, 0, 30, 30, 5, fill: white
-            end
-        end
-        
-        flow margin: [0,0,0,5] do
-            
-            button "run ALL Tests" do
-                @got_failure = false
-                @visual.style(fill: white)
-                
-                # We have to wait for each test to complete (asynchronous drawing)
-                @test_complete = true
-                tenum = TESTS.each_with_index
-                anm = animate(20) do
-                    
-                    if @test_complete
-                        if @test_result && @test_result.error_occurred?
-                            @test_result = nil
-                            @visual.style(fill: yellow)
-                            anm.stop; anm.remove; anm = nil
-                        elsif @test_result && @test_result.failure_occurred?
-                            @got_failure = true
-                            
-                            if @stop_on_failure.checked?
-                                @visual.style(fill: red)
-                                anm.stop; anm.remove; anm = nil
-                            end
-                            @test_result = nil
-                        else
-                            @test_result = nil
-                            begin
-                                h,i = tenum.next
-                                
-                                @test_complete = false
-                                build_test_gui.call(h[0], h[1], @no_output.checked?)
-                                
-                            rescue StopIteration
-                                @visual.style(fill: @got_failure ? red : green)
-                                anm.stop; anm.remove; anm = nil
-                            end
-                        end
-                    end
-                end
-            end
-            
-            para "  in order of appearance, top to bottom, click below to show detailed tests"
-        end
-        
-        flow height: 30, margin_bottom: 5 do
-            bg = background "#fff".."#eed"
-            hover { |s| bg.fill = "#ddd".."#ba9"; s.refresh_slot }
-            leave { |s| bg.fill = "#fff".."#eed"; s.refresh_slot }
-            click { |s| @tests_slot.toggle }
-            
-            para "click to see/hide detailed list of tests", margin_left: 50
-        end
-        
-        @tests_slot = stack hidden: true do
-            TESTS.each do |t, details|
-                flow do
-                    button "run Test" do
-                        @visual.style(fill: white)
-                        # always show output (output_level == NORMAL)
-                        build_test_gui.call(t, details, false)
-                    end
-
-                    para *(["#{t.to_s} : \n"] << details[:desc])
-                end
-            end
-        end
-        
-    end
-    
-    def cont; @cont end
-    def vid; @vid end
-    VideoVlcTestBase.init self
-    
-end

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

@@ -1,20 +0,0 @@
-Shoes.app do
-  para "Do we have a button tooltip?"
-  @btn = button "Quit", tooltip: "kill Shoes"  do
-   Shoes.quit
-  end
-  flow do
-    @chk = check tooltip: "check button will do something"
-    para "watch"
-  end
-  @eb = edit_box tooltip: "enter something"
-  @el = edit_line tooltip: "something you type into"
-  @lb = list_box tooltip: "pull it"
-  start do 
-    @btn.tooltip = "This will will exit shoes properly" 
-    @chk.tooltip = "This will alter reality"
-    @eb.tooltip = "Something different"
-    @el.tooltip = "you type here"
-    @lb.tooltip = "Pick a card, any card"
-  end
-end

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

@@ -1,242 +0,0 @@
-# encoding: UTF-8
-
-class VideoVlcTestBase < Test::Unit::TestCase
-    class << self
-        def init(app)
-            @@app = app
-        end
-        def startup
-            @@mediav = "AnemicCinema1926marcelDuchampCut.mp4"
-            @@mediaa = "indian.m4a"
-            # a fake stream : not relying on internet's mood swings for the test
-            @@mediast = "file://#{File.expand_path('./AnemicCinema1926marcelDuchampCut.mp4')}"
-        end
-        
-        def shutdown
-            @@mediav = nil
-            @@mediaa = nil
-            @@mediast = nil
-        end
-    end
-
-    def setup; end
-    def teardown; end
-end
-
-class VideoVlcTest0 < VideoVlcTestBase
-
-    description "no dimensions provided, no path/url, nothing to draw"
-    def test_video_noPath_noDim
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        vidc = @@app.vid.instance_variable_get(:@video)
-        assert_true vidc.drawable_ready?
-        
-        vlci = @@app.vid.instance_variable_get(:@vlci)
-        assert_not_nil vlci
-        assert_instance_of Fiddle::Pointer, vlci
-        assert_false vlci.null?
-        
-        assert_equal 0, @@app.vid.width
-    end
-end
-
-class VideoVlcTest1 < VideoVlcTestBase
-    
-    def test_slotDim_noPath
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 30, @@app.vid.width
-    end
-    
-    def test_slotDim_movie
-        @@app.vid.path = @@mediav
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 30, @@app.vid.width
-        
-        assert_equal @@mediav, @@app.vid.path
-        assert_true @@app.vid.loaded
-        assert_true @@app.vid.have_video_track
-        assert_equal 640, @@app.vid.video_track_width
-        assert_equal 480, @@app.vid.video_track_height
-        assert_true @@app.vid.have_audio_track
-    end
-    
-    def test_slotDim_audio
-        @@app.vid.path = @@mediaa
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 30, @@app.vid.width
-        
-        assert_equal @@mediaa, @@app.vid.path
-        assert_true @@app.vid.loaded
-        assert_true @@app.vid.have_audio_track
-        assert_nil @@app.vid.have_video_track
-        assert_nil @@app.vid.video_track_width
-        assert_nil @@app.vid.video_track_height
-    end
-    
-    def test_slotDim_stream
-        @@app.vid.path = @@mediast
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 30, @@app.vid.width
-        
-        assert_equal @@mediast, @@app.vid.path
-        assert_true @@app.vid.loaded
-    end
-end
-
-class VideoVlcTest2 < VideoVlcTestBase
-    
-    def test_widgetDim_noPath
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 25, @@app.vid.width
-    end
-    
-    def test_widgetDim_movie
-        @@app.vid.path = @@mediav
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 25, @@app.vid.width
-        
-        assert_equal @@mediav, @@app.vid.path
-        assert_true @@app.vid.loaded
-        assert_true @@app.vid.have_video_track
-        assert_equal 640, @@app.vid.video_track_width
-        assert_equal 480, @@app.vid.video_track_height
-        assert_true @@app.vid.have_audio_track
-    end
-    
-    def test_widgetDim_audio
-        @@app.vid.path = @@mediaa
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 25, @@app.vid.width
-        
-        assert_equal @@mediaa, @@app.vid.path
-        assert_true @@app.vid.loaded
-        assert_true @@app.vid.have_audio_track
-        assert_nil @@app.vid.have_video_track
-        assert_nil @@app.vid.video_track_width
-        assert_nil @@app.vid.video_track_height
-    end
-    
-    def test_widgetDim_stream
-        @@app.vid.path = @@mediast
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 25, @@app.vid.width
-        
-        assert_equal @@mediast, @@app.vid.path
-        assert_true @@app.vid.loaded
-    end
-end
-
-class VideoVlcTest3 < VideoVlcTestBase
-    
-    def test_slotDim_widgetDim_noPath
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 20, @@app.vid.width
-    end
-    
-    def test_slotDim_widgetDim_movie
-        @@app.vid.path = @@mediav
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 20, @@app.vid.width
-        
-        assert_equal @@mediav, @@app.vid.path
-        assert_true @@app.vid.loaded
-        assert_true @@app.vid.have_video_track
-        assert_equal 640, @@app.vid.video_track_width
-        assert_equal 480, @@app.vid.video_track_height
-        assert_true @@app.vid.have_audio_track
-    end
-    
-    def test_slotDim_widgetDim_audio
-        @@app.vid.path = @@mediaa
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 20, @@app.vid.width
-        
-        assert_equal @@mediaa, @@app.vid.path
-        assert_true @@app.vid.loaded
-        assert_true @@app.vid.have_audio_track
-        assert_nil @@app.vid.have_video_track
-        assert_nil @@app.vid.video_track_width
-        assert_nil @@app.vid.video_track_height
-    end
-    
-    def test_slotDim_widgetDim_stream
-        @@app.vid.path = @@mediast
-        
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 20, @@app.vid.width
-        
-        assert_equal @@mediast, @@app.vid.path
-        assert_true @@app.vid.loaded
-    end
-end
-
-class VideoVlcTest4  < VideoVlcTestBase
-    def test_videoTrackDim
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        
-        assert_equal 640, @@app.vid.width
-        assert_equal 480, @@app.vid.height
-    end
-end
-
-class VideoVlcTest5  < VideoVlcTestBase
-    def test_backgroundColor
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        assert_equal 36, @@app.vid.width
-        
-        assert_equal 255, @@app.vid.style[:bg_color].red
-        assert_equal 255, @@app.vid.style[:bg_color].green
-        assert_equal 0, @@app.vid.style[:bg_color].blue
-    end
-end
-
-class VideoVlcTest6  < VideoVlcTestBase
-    def test_libvlcOptions
-        assert_not_nil @@app.vid
-        vlci = @@app.vid.instance_variable_get(:@vlci)
-        assert_not_nil vlci
-        assert_instance_of Fiddle::Pointer, vlci
-        assert_false vlci.null?
-        assert_false @@app.vid.style.include?(:vlc_options)
-    end
-end
-
-class VideoVlcTestAudio  < VideoVlcTestBase
-    def test_audioMethod
-        assert_not_nil @@app.vid
-        assert_instance_of Shoes::VideoVlc, @@app.vid
-        
-        assert_equal 0, @@app.vid.width
-        assert_true @@app.vid.style[:hidden]
-        
-        assert_equal 85, @@app.vid.volume
-        @@app.vid.volume = 72
-        assert_equal 72, @@app.vid.volume
-    end
-end
-
-

data/examples/legacy/not_checked/shoes3-tests/wheel/wheel1.rb

@@ -1,21 +0,0 @@
-Shoes.app do
-  stack height: 200 do
-    click do |b,l,t|
-     @p.replace "Stack clicked"
-    end
-    @p = para "None"
-    flow width: 200 do 
-      para "Flow 1"
-      wheel do |d,l,t| 
-       @p.replace  "Flow 1 wheel #{d}"
-      end
-    end
-    flow width: 200 do
-      para "Flow 2"
-      click do |b,l,t|
-       @p.replace "Flow 2 clicked"
-      end
-    end
-  end
-  wheel {|d,l,t,mods | @p.replace "default slot wheel #{d} #{mods}"}
-end