home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 31_4.tcl < prev    next >
Text File  |  2003-04-16  |  322b  |  18 lines
  1. #
  2. # Example 31-4
  3. # Resource_ButtonFrame defines buttons based on resources.
  4. #
  5.  
  6. proc Resource_ButtonFrame { f class } {
  7.     frame $f -class $class -borderwidth 2
  8.     pack $f -side top -fill x
  9.     foreach b [option get $f buttonlist {}] {
  10.         if [catch {button $f.$b}] {
  11.             button $f.$b -font fixed
  12.         }
  13.         pack $f.$b -side right
  14.     }
  15. }
  16.  
  17.  
  18.