examples/testlookup.tcl

   1 #!/usr/bin/itkwish3.1
   2
   3 source "boilerplate.tcl"
   4
   5 proc l {id name} {
   6 }
   7
   8 proc ne {} {
   9         $::enabled set_state $::gui_enabled
  10 }
  11
  12 checkbutton .e -text "enabled" -variable gui_enabled -command ne
  13
  14 Signal #auto enabled
  15
  16 Lookup .l -lookup_command l
  17 .l attach_signal $enabled
  18
  19 Form .f -schema {
  20         "Test"  {t lookup}
  21 }
  22 [.f path "Test"] attach_signal $enabled
  23
  24 pack .e .l .f -side top -anchor nw
  25
  26 wm deiconify .