home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 39_3.tcl < prev    next >
Text File  |  2003-04-15  |  191b  |  12 lines
  1. #
  2. # Example 39-3
  3. # Specifying an image for a widget.
  4. #
  5.  
  6. set im [image create bitmap \
  7.     -file glyph.bitmap -maskfile glyph.mask \
  8.     -background white -foreground blue]
  9. button .foo -image $im
  10.  
  11.  
  12.