namespaces etc.

[chiark-tcl-applet.git] / example

diff --git a/example b/example
index 3b45d0bd19e76c23033e9ccb4fa7a89f1258f95d..67977a9dbcf132e829219e255447360bbbe91dca 100755 (executable)
--- a/example
+++ b/example
@@ -3,18 +3,22 @@
 
 source applet.tcl
 
-#----- specifics -----
+#----- menu -----
+
+foreach b {1 3} {
+    applet::setup-button-menu $b
+}
 
 .m1 add command -command { msel; puts hi } -label hi
 .m3 add command -command { msel; puts boo } -label boo
 
-image create bitmap ims -file gs_s.xbm   
+#image create bitmap ims -file gs_s.xbm   
 #image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm   
 #setimage ims
 #setimage ims
 
-setuptooltip
-settooltip "line\nanother"
+applet::setup-tooltip
+applet::tooltip-set "line\nanother"
 
 fconfigure stdout -buffering line