scarpe 0.1.0 → 0.2.0

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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