home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / examples / progDH15.11 < prev    next >
Encoding:
Text File  |  1995-06-29  |  420 b   |  24 lines
  1. #
  2. # Dan Hellers program 15.11, page 512
  3.  
  4. xtAppInitialize
  5.  
  6. xmRowColumn .rowcol managed -orientation horizontal
  7. xmLabel .rowcol.label managed -labelString "Enter Text:"
  8. xmText .rowcol.text managed
  9.  
  10. .rowcol.text modifyVerifyCallback {allcaps %ptr %length}
  11.  
  12. proc allcaps {ptr length} {
  13.   upvar 1 $ptr p
  14.   upvar 1 $length l
  15.  
  16.   if {$l == 0} return
  17.   set lower [string tolower $p]
  18.   set p $lower
  19. }
  20.  
  21. . realizeWidget
  22. . mainLoop
  23.  
  24.