home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 25_10.tcl < prev    next >
Text File  |  2003-04-16  |  284b  |  16 lines

  1. #
  2. # Example 25-10
  3. # The look of a default button.
  4. #
  5.  
  6. . config -borderwidth 10
  7. # OK is the default button
  8. frame .ok -borderwidth 2 -relief sunken
  9. button .ok.b -text OK
  10. pack .ok.b -padx 5 -pady 5
  11. # Cancel is not
  12. button .cancel -text Cancel
  13. pack .ok .cancel -side left -padx 5 -pady 5
  14.  
  15.  
  16.