home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / wtour / text2.tcl < prev    next >
Encoding:
Text File  |  1995-06-29  |  234 b   |  17 lines
  1. #
  2. # Text callback info
  3. #
  4.  
  5. xmText .text managed
  6.  
  7. .text modifyVerifyCallback {value-changing %reason %ptr}
  8.  
  9. proc value-changing {reason ptr} {
  10.     upvar 1 $ptr p
  11.  
  12.     puts stdout "value in Text changing:
  13.     reason: $reason
  14.     text: $p"
  15. }
  16.     
  17.