1 #!/usr/bin/env tclsh8.5
3 source "boilerplate.tcl"
5 Tools .toolbar -tooltipdelay 700
7 .toolbar add "Foo" [code foo]
9 .toolbar add "Bar" [code bar]
10 .toolbar add "Baz" [code baz]
11 .toolbar add "Close" [code exit] right
14 "Bar" "This is a bar" \