lacci 0.2.1

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

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

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

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

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

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