examples/test_domino.tcl

   1 #!/usr/bin/itkwish3.1
   2
   3 package require TLC
   4 namespace import tlc::*
   5 eval [go_home]
   6
   7 Log log -threshold debug
   8
   9 Domino #auto domfoo
  10
  11 proc changed {text} {
  12         log notice "changed: ($text)"
  13         $::domfoo tip
  14 }
  15
  16 proc domchanged {} {
  17         log notice "domchanged"
  18 }
  19
  20 $domfoo attach_output domchanged
  21
  22 mycombobox .cb -choices {foo bar bax} -cb changed
  23 pack .cb
  24
  25 wm deiconify .
  26