home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 34_7.tcl < prev    next >
Text File  |  2003-04-15  |  244b  |  17 lines
  1. #
  2. # Example 34-7
  3. # Dumping the text widget.
  4. #
  5.  
  6. proc Text_Dump {t {start 1.0} {end end}} {
  7.     foreach {key value index} [$t dump $start $end] {
  8.         if {$key == "text"} {
  9.             puts "$index \"$value\""
  10.         } else {
  11.             puts "$index $key $value"
  12.         }
  13.     }
  14. }
  15.  
  16.  
  17.