chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
57e87083d5bf1a19d295895efac94dbd50749e6a
[chiark-tcl-applet.git]
/
example
1
#!/usr/bin/wish8.4
2
3
source applet.tcl
4
5
#----- specifics -----
6
7
.m1 add command -command { msel; puts hi } -label hi
8
.m3 add command -command { msel; puts boo } -label boo
9
10
image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm
11
setimage ims
12
13
setuptooltip
14
settooltip "line\nanother"