tests/toolbar.itk

   1 #!/usr/bin/tclsh
   2
   3 source "boilerplate.tcl"
   4
   5 Tools .toolbar -tooltipdelay 700
   6
   7 .toolbar add "Foo" [code foo]
   8 .toolbar separator
   9 .toolbar add "Bar" [code bar]
  10 .toolbar add "Baz" [code baz]
  11 .toolbar add "Close" [code exit] right
  12
  13 .toolbar set_tips \
  14                 "Bar"   "This is a bar" \
  15                 "Baz"   "Some baz?"
  16
  17 pack .toolbar