lacci 0.2.1

data/examples/legacy/not_checked/shoes3-tests/menus/event.rb

@@ -0,0 +1,33 @@
+Shoes.app width: 600, height: 600 do
+  stack do
+    para "Events and Menus"
+    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/menus/menu1.rb

@@ -0,0 +1,8 @@
+
+Shoes.app menus: true do
+  stack do
+    para "Does Shoes->Quit work?"
+    para "ID is #{app.id}"
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/menus/menu2.rb

@@ -0,0 +1,25 @@
+Shoes.app menus: true, width: 300, height: 200 do  
+  mb = menubar
+  helpmenu = menu "Help"
+  @aboutitem =  menuitem "About", key: "control_h" do
+    alert "This is a menu test", title: "About"
+  end
+  helpmenu << @aboutitem
+  cobbleritem = menuitem "Cobbler" do Shoes.cobbler end
+  helpmenu << cobbleritem
+  mb << helpmenu
+  button "new app" do
+    Shoes.app menus: true, width: 300, height: 200 do 
+      para "Shared menus"
+    end
+  end
+  button "change About" do
+    @aboutitem.title = "Info"
+    @aboutitem.block = proc {
+      if confirm "The block is changed, disable menuitem?"
+        @aboutitem.enable = false
+      end
+    }
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/menus/menu3.rb

@@ -0,0 +1,103 @@
+
+Shoes.app menus: true do
+  def showall
+    @eb.text = ""
+    mb = menubar
+    mb.menus.each do |mn|
+      @eb.append "#{mn.title}\n"
+      mn.items.each do |item|
+        @eb.append "  #{item.title}\n"
+      end
+    end
+  end
+  
+  def get_index(str)
+    if str[/\-\d+|\d+/] 
+      str.to_i
+    else
+      str
+    end
+  end
+  
+  stack do
+    flow do
+      button "Show all" do
+        showall
+      end
+      button "Add Info menu" do
+        mb = menubar
+        mn = menu "Info"
+        mi = menuitem "About" do
+          alert "Happy Shoes!"
+        end 
+        mn << mi
+        mb << mn
+        @el1.text = mn.title
+        @el2.text = mi.title
+        showall
+      end
+      stack do
+        flow do
+          para "menu:"
+          @el1 = edit_line width: 80
+          @el1.text = "Shoes"
+          button "Get" do
+            q = get_index @el1.text
+            mb = menubar
+            t = mb[q]
+            @eb.text = t.title if t
+          end
+          button "Remove" do
+            mb = menubar
+            q = get_index @el1.text
+            mb.remove q
+            showall
+          end
+          button "Insert" do
+            mb = menubar
+            name =  @el1.text
+            mn = menu name
+            q = get_index @el6.text
+            mb.insert mn, q
+            showall
+          end 
+          para "at (-1 is append)"
+          @el6 = edit_line width: 40
+          @el6.text = '-1'
+        end
+        flow do
+          para "item:"
+          @el2 = edit_line width: 80
+          button "Get"  do
+            mb = menubar
+            n = get_index @el1.text
+            mn = mb[n]
+            q = get_index @el2.text
+            t = mn[q]
+            @eb.text = "#{mn.title}\n  #{t.title}"
+          end
+          button "Remove" do
+            mb = menubar
+            mni = get_index @el1.text
+            mn = mb[mni]
+            mn.remove get_index(@el2.text)
+            showall
+          end
+          button "Insert" do
+            mb = menubar
+            mni = get_index @el1.text
+            mn = mb[mni]
+            newmi = menuitem @el2.text
+            mn.insert newmi, get_index(@el5.text)
+            showall
+          end 
+          para "at (-1 is append)"
+          @el5 = edit_line width: 40
+          @el5.text = '-1'
+        end
+     end
+    end
+    @eb = edit_box width: 400, height: 400
+  end
+end
+

data/examples/legacy/not_checked/shoes3-tests/menus/menu4.rb

@@ -0,0 +1,41 @@
+Shoes.app menus: true do
+  stack do
+    para "Menu Command Key Test"
+    flow do
+      @ctl = check; para "ctl/cmd"
+      @shf = check; para "shift"
+      @alt = check; para "alt"
+      @el = edit_line width: 40    
+      button "Add Test item/key to Shoes menu" do
+        mb = menubar
+        mn = mb[0] # shoes menu
+        keystr = ""
+        keystr << "control_" if @ctl.checked?
+        keystr << "shift_" if @shf.checked? 
+        keystr << "alt_" if @alt.checked?
+        keystr << @el.text
+        mi = menuitem "Test", key: keystr do
+          confirm "you pressed #{mi.key}"
+        end
+        mn.append mi
+      end
+    end
+    flow do
+      @ctl2 = check; para "ctl/cmd"
+      @shf2 = check; para "shift"
+      @alt2 = check; para "alt"
+      @el2 = edit_line width: 40    
+      button "Change Test key" do
+        mb = menubar
+        mn = mb[0] # shoes menu
+        mi = mn["Test"]
+        keystr = ""
+        keystr << "control_" if @ctl2.checked?
+        keystr << "shift_" if @shf2.checked? 
+        keystr << "alt_" if @alt2.checked?
+        keystr << @el2.text
+        mi.key = keystr    
+      end
+    end
+  end
+end

data/examples/legacy/not_checked/shoes3-tests/menus/tests.txt

@@ -0,0 +1,42 @@
+-------------------  GTK -----------------------
+
+Tests/menu/menu2.rb
+change  menuitem title        ok
+diable  menuitem              ok
+
+
+Tests/menu/menu3.rb
+
+Menuitem Tests - Info Menu   at 0       at 1+   at -1
+insert                         ok         ok      ok    foo About bar
+remove                         ok         ok      ok   
+  
+
+Menu       Tests - Info Menu   at 0       at 1+   at -1
+insert                         won't        ok      ok    Shoes info help
+remove                         won't        ok      ok  
+
+Test/menu/menu4.rb
+create action key               ok
+change action key               ok
+
+-------------------  OSX -----------------------
+
+Tests/menu/menu2.rb
+change  menuitem title        ok
+diable  menuitem              ok
+
+
+Tests/menu/menu3.rb
+Menuitem Tests - Info Menu   at 0        at 1+   at -1
+insert                        ok          ok      ok
+remove                        ok          ok      ok
+
+
+Menu     Tests - Info Menu   at 0       at 1+   at -1
+insert                       won't        ok      ok
+remove                       won't        ok      ok 
+
+Test/menu/menu4.rb
+create action key              ok
+change action key              ok

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

@@ -0,0 +1,13 @@
+Shoes.app do
+  stack do
+    para "Click the button to reduce opacity to %90"
+    button "reduce" do
+     app.opacity =  0.90
+     para "Opacity is #{app.opacity}\n"
+    end
+    button "normal" do
+     app.opacity = 1.0
+     para "normal\n"
+    end
+  end
+end