examples/test_dateentry.tcl

   1 #!/usr/bin/env tclsh8.4
   2
   3 source "boilerplate.tcl"
   4
   5 proc cb {foo} {
   6         puts "foo: ($foo)"
   7         .e configure -state disabled
   8 }
   9
  10
  11 proc bar {newdate} {
  12         puts "newdate: ($newdate)"
  13         puts "foo: ($::foo)"
  14 }
  15
  16 Signal #auto bar
  17 $bar set_state 1
  18 option add *stateGate $bar
  19 Dateentry .e -textvariable ::foo -year 2006 -month Jul -day 07 -command bar -resultformat "%d %b %Y"
  20 #.e attach_signal $bar
  21 #set foo                "kjasdhf"
  22
  23 #after 3000 [list $bar set_state 0]
  24
  25 pack .e
  26
  27 wm deiconify .
  28
  29 start_console