home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 44_2.tcl < prev    next >
Text File  |  2003-04-15  |  293b  |  17 lines
  1. #
  2. # Example 44-2
  3. # Bind_Display presents the bindings for a widget or class.
  4. #
  5.  
  6. proc Bind_Display { frame } {
  7.     global bind
  8.     $frame.key delete 0 end
  9.     $frame.cmd delete 0 end
  10.     foreach seq [bind $bind(class)] {
  11.         $frame.key insert end $seq
  12.         $frame.cmd insert end [bind $bind(class) $seq]
  13.     }
  14. }
  15.  
  16.  
  17.