home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 32_3.tcl < prev    next >
Text File  |  2003-04-15  |  299b  |  18 lines
  1. #
  2. # Example 32-3
  3. # Reestablishing validation using an idle task.
  4. #
  5.  
  6. proc Upper {w validation action new} {
  7.     if {$action == 1} {
  8.         $w insert insert [string toupper $new]
  9.         after idle [list $w configure -validate $validation]
  10.     }
  11.     return 1
  12. }
  13.  
  14. entry .e -validate all -vcmd {Upper %W %v %d %S}
  15. pack .e
  16.  
  17.  
  18.