home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 44_2.tcl < prev    next >
Text File  |  2003-04-16  |  145b  |  11 lines
  1. #
  2. # Example 44-2
  3. # Telling other applications what your name is.
  4. #
  5.  
  6. foreach app [winfo interps] {
  7.     catch {send $app [list Iam [tk appname]]}
  8. }
  9.  
  10.  
  11.