lacci 0.2.1 → 0.3.0

data/examples/legacy/not_checked/shoes3-tests/events/capture.rb

@@ -1,57 +0,0 @@
-require 'yaml'
-Shoes.app do  
-  stack do
-    tagline "Capture Clicks for another app"
-    para "Load this"
-    flow do
-      @el = edit_line width: 450
-      @el.text = "#{DIR}/samples/simple/chipmunk.rb"
-      button "select app" do
-        path = ask_open_file
-        @el.text = path if path
-      end
-    end
-    para "Save events to"
-    flow do 
-      @sv = edit_line width: 450
-      @sv.text = "#{Dir.getwd}/event.yaml"
-      button "Change" do
-        path = ask_save_file
-        @sv.text = path if path
-      end
-    end
-    flow do 
-      button "Start app and capture" do
-        @capture = {}
-        events = []
-        eval IO.read(@el.text).force_encoding("UTF-8"), TOPLEVEL_BINDING, @el.text
-        w2 = Shoes.APPS[-1]
-        x = w2.left
-        y = w2.top
-        w2.move x+80, y-40
-        base_t = Time.now
-        @capture[:context] = {app: @el.text, time: base_t}
-        @capture[:events] = events
-        w2.event = proc do |evt|
-          case evt.type
-          when :click
-            #$stderr.puts "click handler2 with #{evt.type}"
-            events << { time: (Time.now - base_t), button: evt.button, x: evt.x, y: evt.y, 
-                modifiers: evt.modifiers, object: evt.object, type: evt.type}
-            evt.accept = true
-          when :btn_activate
-            events << { time: (Time.now - base_t), button: evt.button, x: evt.x, y: evt.y, 
-                modifiers: evt.modifiers, object: evt.object, type: evt.type}
-          else
-            evt.accept = true
-          end
-        end
-      end
-    end
-    flow do 
-      button "Stop and save" do
-        File.open(@sv.text, 'w') {|f| YAML.dump(@capture, f)}
-      end
-    end
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/events/chipmunk.yaml

@@ -1,47 +0,0 @@
----
-:context:
-  :app: "/home/ccoupe/Projects/shoes3/minlin/samples/simple/chipmunk.rb"
-  :time: 2017-12-17 21:37:26.497452015 -07:00
-:events:
-- :time: 3.111306338
-  :button: 1
-  :x: 19
-  :y: 59
-  :modifiers: shift
-  :object: &1 !ruby/object:Shoes::Types::Shape {}
-  :type: :click
-- :time: 6.447366351
-  :button: 1
-  :x: 82
-  :y: 52
-  :modifiers: control
-  :object: &3 !ruby/object:Shoes::Types::Shape {}
-  :type: :click
-- :time: 10.895925171
-  :button: 1
-  :x: 112
-  :y: 49
-  :modifiers: shift
-  :object: &2 !ruby/object:Shoes::Types::Shape {}
-  :type: :click
-- :time: 15.735470191
-  :button: 1
-  :x: 17
-  :y: 52
-  :modifiers: control_shift
-  :object: *1
-  :type: :click
-- :time: 19.503386712
-  :button: 1
-  :x: 109
-  :y: 52
-  :modifiers: control_shift
-  :object: *2
-  :type: :click
-- :time: 22.647864317
-  :button: 1
-  :x: 82
-  :y: 54
-  :modifiers: 
-  :object: *3
-  :type: :click

data/examples/legacy/not_checked/shoes3-tests/events/event0.rb

@@ -1,8 +0,0 @@
-Shoes.app do
-  stack do 
-    @ev = shoesevent type: :click, button: 1, x: 222, y: 333
-    para "Event #{@ev.type} #{@ev.button} #{@ev.x} #{@ev.y} will use: #{@ev.accept}"
-    @ev.accept = false
-    para "Event #{@ev.type} #{@ev.button} #{@ev.x} #{@ev.y} will use: #{@ev.accept}"
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/events/event1.rb

@@ -1,51 +0,0 @@
-Shoes.app do
-
-  event do |evt|
-    # do not trigger new events here unless you can handle them
-    case evt.type
-    when :click 
-      $stderr.puts "click handler called: #{evt.type} #{evt.button}, #{evt.x} #{evt.y} #{evt.modifiers}"
-      evt.accept = @ck1.checked?
-    when :btn_activate
-      $stderr.puts "button #{evt.object} at #{evt.type} #{evt.button} #{evt.x} #{evt.y} #{evt.width} #{evt.height}"
-      evt.accept = @ck1.checked?
-    else
-      evt.accept = true
-    end
-  end  
-
-  stack do
-    para "Click test 1"
-    flow do 
-      @ck1 = check checked: true; para "pass clicks to Shoes"
-    end
-    flow do 
-      @btn1 = button "button 1", width: 75 do
-        @eb.append "button 1 clicked\n"
-      end
-      @btn2 = button "button 2" do
-        @eb.append "button 2 clicked\n"
-      end
-      click do
-         @eb.append "flow click\n"
-      end 
-    end
-    @eb = edit_box width: 500, height: 350
-  end
-  click do |btn, x, y, mods|
-    @eb.append "app click: #{btn} x: #{x} y: #{y} mods: #{mods}\n" 
-  end
-  release do |btn, x, y, mods| 
-    @eb.append "app unclick: #{btn} x: #{x} y: #{y} mods: #{mods}\n"
-  end
-  keypress do |key|
-    $stderr.puts key
-    @eb.append "#{key} "
-  end
-  #motion do |x, y, mods| 
-  #  @eb.append "modtion #{x},#{y} #{mods} "
-  #end
-  wheel do |d,x,y,mods|
-     @eb.append "wheel #{d} #{mods} at #{x},#{y}\n"
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/events/event1.yaml

@@ -1,26 +0,0 @@
----
-:context:
-  :app: "/home/ccoupe/Projects/shoes3/Tests/events/event1.rb"
-  :time: 2017-12-18 19:14:17.527820709 -07:00
-:events:
-- :time: 2.084820129
-  :button: 1
-  :x: 379
-  :y: 55
-  :modifiers: 
-  :object: 
-  :type: :click
-- :time: 3.299109652
-  :button: 1
-  :x: 0
-  :y: 70
-  :modifiers: 
-  :object: !ruby/object:Shoes::Types::Button {}
-  :type: :btn_activate
-- :time: 4.835090063
-  :button: 1
-  :x: 75
-  :y: 70
-  :modifiers: 
-  :object: !ruby/object:Shoes::Types::Button {}
-  :type: :btn_activate

data/examples/legacy/not_checked/shoes3-tests/events/event2.rb

@@ -1,46 +0,0 @@
-Shoes.app do  
-  stack do
-    tagline "Manage clicks for second Window"
-    para "Demonstrates communication with second app"
-    flow do
-      @el = edit_line width: 450
-      @el.text = "#{DIR}/samples/simple/chipmunk.rb"
-      button "select app" do
-        path = ask_file_open
-        @el.text = path if path
-      end
-    end
-    flow do
-      $ck = check checked: true; para "Pass clicks?"
-    end
-    flow do 
-      button "Start app with handler for it" do
-        eval IO.read(@el.text).force_encoding("UTF-8"), TOPLEVEL_BINDING, @el.text
-        w2 = Shoes.APPS[-1]
-        x = w2.left
-        y = w2.top
-        w2.move x+80, y-40
-        w2.event = proc do |evt|
-          case evt.type
-          when :click
-            $stderr.puts "click handler2 with #{evt.type}"
-            evt.accept = $ck.checked?
-          else
-            evt.accept = true
-          end
-        end
-      end
-    end
-  end
-=begin
-  # 2nd App
-  eval IO.read("#{DIR}/samples/simple/chipmunk.rb").force_encoding("UTF-8"), TOPLEVEL_BINDING
-  start do
-    # move the frontmost app (#2) left and up - it flickers. 
-    w = Shoes.APPS[-1]
-    x = app.left
-    y = app.top
-    w.move x+80, y-40
-  end
-=end
-end

data/examples/legacy/not_checked/shoes3-tests/events/event3.rb

@@ -1,44 +0,0 @@
-Shoes.app do  
-  #puts "ARGV #{ARGV}"
-  script_path = ""
-  if ARGV.length > 1
-     tp = ARGV[1]
-     if tp[0] != '/'
-       script_path = "#{DIR}/#{tp}"
-     else
-       script_path = tp
-     end
-    $stderr.puts "script is: #{script_path}"
-  end
-  
-  handler = proc do |evt|
-    $stderr.puts "event handler2 with #{evt.type}"
-      evt.accept = $ck.checked?
-  end
-  
-  stack do
-    tagline "Manage events for a Shoes app"
-    para "Run this app:"
-    flow do
-      @el = edit_line width: 500
-      @el.text = script_path
-      button "Select" do
-        script_path = ask_open_file
-        @el.text = script_path if script_path
-      end
-    end
-    flow do
-      $ck = check checked: true; para "Pass clicks?"
-    end
-    flow do 
-      button "Load and control" do
-        eval IO.read("#{script_path}").force_encoding("UTF-8"), TOPLEVEL_BINDING
-        w = Shoes.APPS[-1]
-        x = w.left
-        y = w.top
-        w.move x+80, y+40
-        w.event = handler
-      end
-    end
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/events/event4.rb

@@ -1,65 +0,0 @@
-class TestWidget < Shoes::Widget
-
-    attr_accessor :click_blk
-    
-    def initialize(&blk)
-        @click_blk = blk 
-        self.width = 200; self.height = 200 ## note that you do need this
-        flow width: 190, height: 200 do   ###### explicit slot
-            background coral
-            para "user defined widget"
-        end 
-    end
-    
-    def click(btn,x,y,mods)
-      puts "TW click called, sending.."
-      @click_blk.call(btn,x,y,mods)
-    end
-end
-
-Shoes.app height: 650 do 
-  stack do
-    tagline "Clicks for non-native widgets"
-    flow do
-      @ck1 = check checked: true; para "Pass clicks?"
-    end
-    flow do
-      @img = image "#{DIR}/static/shoes-icon-walkabout.png", width: 200, height: 200
-      @img.click {|btn,x,y,mods|  @eb.append "Image clicked btn: #{btn} at #{x},#{y} with #{mods}\n"}
-      @svg = svg "#{DIR}/samples/good/paris.svg", width: 200, height: 200, group: "#diamond_4"
-      @svg.click {|btn,x,y,mods|  @eb.append "Svg clicked btn: #{btn} at #{x},#{y} with #{mods}\n"}
-      # click only works on TimeSeries plots
-      @plt = plot 200, 200, title: "Test plot", chart: "timeseries"
-      @plt.click {|btn,x,y,mods|  @eb.append "Plot clicked btn: #{btn} at #{x},#{y} with #{mods}\n"}
-      @btn = button "button" do 
-        @eb.append "Button clicked\n"
-      end
-      @tw = test_widget {|btn,x,y,mods| @eb.append "User Widget: #{btn} at #{x},#{y} with #{mods}\n"}
-    end
-    @eb = edit_box width: 500, height: 200
-    # draw a shape 
-    stroke blue
-     strokewidth 4
-     fill black
-     oval 540, 590, 50
-  end
-
-  event do |evt| 
-    # do not trigger new events here unless you can handle them
-    case evt.type
-    when :click 
-      $stderr.puts "click handler called: #{evt.type} #{evt.button}, #{evt.x} #{evt.y} #{evt.modifiers}"
-      if evt.object 
-        # Note: for Textblocks the evt.obj is the String of the text block
-        $stderr.puts "  non-native widget: #{evt.object.class} width #{evt.width} height #{evt.height}"
-      end
-      evt.accept = @ck1.checked?
-    when :btn_activate
-      $stderr.puts "button #{evt.object} at #{evt.type} #{evt.button} #{evt.x} #{evt.y} #{evt.width} #{evt.height}"
-      evt.accept = @ck1.checked?
-    else
-      evt.accept = false
-    end
-  end
-
-end

data/examples/legacy/not_checked/shoes3-tests/events/event5.rb

@@ -1,17 +0,0 @@
-Shoes.app(width: 200, height: 200) do
-   @img1 = image "#{DIR}/static/shoes-icon-walkabout.png", left: 0, top: 0, width: 200, height: 200
-   @img2 = image "#{DIR}/static/shoes-icon-blue.png", left: 50, top: 50, width: 100, height: 100
-   event do |evt|
-    case evt.type
-    when :click 
-      $stderr.puts "click handler called: #{evt.type} #{evt.button}, #{evt.x} #{evt.y} #{evt.modifiers}"
-      if evt.object 
-        # Note: for Textblocks the evt.obj is the String of the text block
-        $stderr.puts "  non-native widget: #{evt.object.class} width #{evt.width} height #{evt.height}"
-      end
-      evt.accept = true
-    else
-      evt.accept = false
-    end
-   end
-end

data/examples/legacy/not_checked/shoes3-tests/events/event6.rb

@@ -1,51 +0,0 @@
-Shoes.app do
-
-  event do |evt|
-    # do not trigger new events here unless you can handle them recursively
-    # which is harder than you think. 
-    case evt.type
-    when :click 
-      $stderr.puts "click handler called: #{evt.type} #{evt.button}, #{evt.x} #{evt.y} #{evt.modifiers}"
-      evt.accept = true
-    when :keypress
-      $stderr.puts "keypress: #{evt.key}"
-      evt.accept = true
-    when :keydown
-      $stderr.puts "keydown for #{evt.key}"
-      evt.accept = $ck.checked? 
-    when :keyup
-      $stderr.puts "keyup for #{evt.key}"
-      evt.accept = $ck.checked? 
-    when :motion
-      evt.accept = false
-    when :release
-      evt.accept = false
-    when :wheel 
-      $stderr.puts "wheel handler called: #{evt.type} #{evt.button}, #{evt.x} #{evt.y} #{evt.modifiers}"
-      evt.accept = true
-    else
-      puts "Other: #{evt.type.inspect}"
-      evt.accept = true
-    end
-  end  
-
-  stack do
-    para "Key Tests"
-    flow do
-      $ck = check checked: true; para "Enable up/down"
-    end
-    @eb = edit_box width: 500, height: 350
-  end
-  keypress do |key|
-    @eb.append "press: #{key}\n"
-  end
-  keyup do |key| 
-    @eb.append "up: #{key}\n"
-  end
-  keydown do |key| 
-    @eb.append "down: #{key}\n"
-  end
-  wheel do |d, x, y, mods|
-    @eb.append "wheel dir: #{d} at #{x},#{y}, with #{mods}\n"
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/events/replay.rb

@@ -1,60 +0,0 @@
-require 'yaml'
-Shoes.app do  
-  yaml_path = ""
-  if ARGV.length > 1
-     tp = ARGV[1]
-     if tp[0] != '/'
-       yaml_path = "#{DIR}/../#{tp}"
-     else
-       yaml_path = tp
-     end
-  end
-  stack do
-    tagline "Replay Clicks for another app"
-    para "Load events from"
-    flow do 
-      @sv = edit_line width: 450
-      @sv.text = yaml_path
-      button "Change" do
-        path = ask_open_file
-        @sv.text = path if path
-      end
-    end
-
-    flow do
-      button "Start App" do
-        evtflhash = YAML::load_file(@sv.text)
-        hdr = evtflhash[:context]
-        puts hdr
-        script = hdr[:app]
-        eval IO.read(script).force_encoding("UTF-8"), TOPLEVEL_BINDING, script
-        w2 = Shoes.APPS[-1]
-        x = w2.left
-        y = w2.top
-        w2.move x+80, y-40
-        @events = evtflhash[:events]
-        #puts @events
-      end
-    end
-    button "Replay Events" do
-     # note this creates as many simulaneous timers as events
-     # not pretty
-      w2 = Shoes.APPS[-1]
-      base_t = nil
-      @events.each_index do |r|
-        ev = @events[r]
-        if r == 0 
-          # chop first delay - minor improvement
-          base_t = ev[:time]
-          puts "base_t #{base_t}"
-        end
-        t = ev[:time]
-        timer(t-base_t) do
-          puts "wait for #{t-base_t}"
-          puts "  move to #{ev[:x]}, #{ev[:y]} and click "
-          w2.replay_event(ev)
-        end
-      end
-    end
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/gapp/fullscreen.rb

@@ -1,38 +0,0 @@
-Shoes.app do 
-  stack do
-    para "Muliple Monitor Full Screen Test"
-    st = Shoes.settings
-    @eb = edit_box width: 400, height: 150
-  end
-  start do
-    st = Shoes.settings
-    dflt = st.monitor_default
-    @eb.append "Default monitor is #{dflt}\n"
-    st.monitor_count.times do |mon|
-      @eb.append "Monitor #{mon} => #{st.monitor_geometry(mon)}\n"
-    end
-    button "Tooggle FullScreen #{dflt}" do
-      state = app.fullscreen 
-      app.fullscreen = (state ? false : true);
-    end
-    (st.monitor_count - 1).times do |mon|
-       flow do 
-        newmon = (dflt ^ 1)
-        @ck = check
-        para "full screen?"
-        button "New Window on #{newmon}" do
-          window title: "Launched in #{newmon}", monitor: newmon, fullscreen: @ck.checked? do
-            stack do
-              para "My Monitor is #{app.monitor}"
-              button "Fullscreen #{app.monitor}" do
-                state = app.fullscreen
-                app.fullscreen = (state ? false : true);
-              end
-              @eb = edit_box width: 300, height: 150
-            end
-          end
-        end
-      end
-    end
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/gapp/icon.rb

@@ -1,56 +0,0 @@
-Shoes.app do
- stack do
-    para "Icon setting tests"
-    st = Shoes.settings
-    default = st.icon_path
-    para "Settings path is #{st.icon_path} "
-    button "Show Default icon" do
-      @pnl.clear do
-        image "#{DIR}/#{st.icon_path}"
-      end
-    end
-    para "Must be relative to #{DIR}"
-    flow do
-      button "Set default" do
-        fp = ask_open_file
-        str = fp[DIR.length+1..-1]
-        @el1.text = str
-      end
-      @el1 = edit_line
-      button "Test" do
-        @pnl.clear do
-          image "#{DIR}/#{@el1.text}"
-        end
-        st.icon_path = @el1.text
-        window do
-          para "What icon did you expect?"
-        end
-      end
-      button "restore" do
-        st.icon_path = default
-        @pnl.clear do
-          image "#{DIR}/#{st.icon_path}"
-        end
-      end
-    end
-    para "app.window_set_icon_path - try ABS path"
-    flow do
-      @el2 = edit_line
-      button "select" do
-        fp = ask_open_file
-        @el2.text = fp
-      end
-      button "test" do
-        @pnl.clear do
-          image @el2.text
-        end
-        app.set_window_icon_path @el2.text
-        window do
-          para "Is that the icon you expected"
-        end
-       end
-    end
-  end 
-  @pnl = stack do
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/gapp/mon1.rb

@@ -1,46 +0,0 @@
-Shoes.app do 
-  stack do
-    para "Muliple Monitor Test"
-    st = Shoes.settings
-    @eb = edit_box width: 400, height: 150
-  end
-  start do
-    st = Shoes.settings
-    dflt = st.monitor_default
-    @eb.append "Default monitor is #{dflt}\n"
-    st.monitor_count.times do |mon|
-      @eb.append "Monitor #{mon} => #{st.monitor_geometry(mon)}\n"
-    end
-    (st.monitor_count- 1).times do |mon|
-       flow do 
-        newmon = (dflt ^ 1)
-        button "New Window on #{newmon}" do
-          window title: "Launched in #{newmon}", monitor: newmon do
-            stack do
-              para "My Monitor is #{app.monitor}"
-              button "Dialog" do
-                alert "Which Window?"
-              end
-              button "move down right" do
-                x = self.left
-                y = self.top
-                @eb.append "from: #{x}, #{y}\n"
-                self.move x+20, y+20
-                x = self.left
-                y = self.top
-                @eb.append "to:   #{x}, #{y}\n"
-              end
-              @eb = edit_box width: 300, height: 150
-            end
-          end
-        end
-        button "Move This to #{newmon}" do
-          app.monitor = newmon
-        end
-        button "Restore this to #{dflt}" do
-         app.monitor = dflt
-        end
-      end
-    end
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/gapp/settings1.rb

@@ -1,22 +0,0 @@
-Shoes.app do 
-  stack do
-    para "Check if we can access shoes.yaml settings"
-    button "Check" do
-      st = Shoes.settings
-      @eb.append "Have settings for #{st}\n"
-      @eb.append "Name: #{st.app_name}\n"
-      if RUBY_PLATFORM =~ /(linux)|(bsd)/
-        @eb.append "Dbus: #{st.dbus}\n"
-        @eb.append "RDomain: #{st.rdomain}\n"
-      end
-      @eb.append "Theme: #{st.theme}\n"
-      @eb.append "MDI: #{st.mdi}\n"
-      @eb.append "Menus: #{st.use_menus}\n"
-      st.monitor_count.times  do |mon|
-        @eb.append "Monitor #{mon} => #{st.monitor_geometry(mon)}\n"
-      end
-      @eb.append "Default monitor: #{st.monitor_default}\n"
-    end 
-    @eb = edit_box width: 400, height: 300
-  end
-end

data/examples/legacy/not_checked/shoes3-tests/gapp/title1.rb

@@ -1,34 +0,0 @@
-Shoes.app do
- stack do
-    para "Title and app name tests"
-    st = Shoes.settings
-    para "settings name is #{st.app_name} vs #{app.name}"
-    flow do
-      @el1 = edit_line width: 100, border: 3
-      button "name =" do
-        app.name = @el1.text
-        para "settings name is #{st.app_name} vs #{app.name} did title change?"
-      end
-    end
-    flow do
-      @el2 = edit_line width: 100, border: 3
-      button "app_name =" do
-        st.app_name = @el2.text
-        window do
-          para "only affect new windows?"
-        end
-        para "settings name is #{st.app_name} vs #{app.name} did title change?"
-      end
-    end
-    flow do 
-      @el3 = edit_line width: 100, margin: 3
-      button "wtitle =" do
-        app.set_window_title @el3.text
-        window do
-          para "only affect new windows?"
-        end
-        para "settings name is #{st.app_name} vs #{app.name} did title change?"
-      end
-    end
-  end
-end