home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 35_6.tcl < prev    next >
Text File  |  2003-04-15  |  397b  |  17 lines
  1. #
  2. # Example 35-6
  3. # Canvas bitmap items.
  4. #
  5.  
  6. set o [$c create bitmap 10 10 -bitmap @candle.xbm -anchor nw\
  7.     -background white -foreground blue]
  8. set x [lindex [$c bbox $o] 2]                                    ;# Right edge of bitmap
  9. foreach builtin {error gray12 gray50 hourglass \
  10.                 info questhead question warning} {
  11.     incr x 20
  12.     set o [$c create bitmap $x 30 -bitmap $builtin -anchor c]
  13.     set x [lindex [$c bbox $o] 2]
  14. }
  15.  
  16.  
  17.