home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / TCL / BLT / _BLT.TAR / usr / lib / blt / demos / debug < prev    next >
Encoding:
Text File  |  1994-02-08  |  403 b   |  16 lines
  1. #! ../blt_wish -f
  2.  
  3. proc beforeWatch { level cmdStr argList } {
  4.     set cmd [lindex $argList 0]
  5.     puts stderr "$level $cmd => $cmdStr"
  6. }
  7. proc beforeWatch { level cmdStr argList } {
  8. }
  9. proc afterWatch { level cmdStr argList code results } {
  10.     set cmd [lindex $argList 0]
  11.     puts stderr "$level $cmd => $argList\n<= ($code) $results"
  12. }
  13.  
  14. blt_watch create trace -postcmd afterWatch 
  15. #-before beforeWatch
  16.