home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 34_5.tcl < prev    next >
Text File  |  2003-04-15  |  474b  |  21 lines
  1. #
  2. # Example 34-5
  3. # Using embedded images for a bulleted list.
  4. #
  5.  
  6. proc BList_Setup { t imagefile } {
  7.     global blist
  8.     set blist(image) [image create photo -file $imagefile]
  9.     $t tag configure bulletlist -tabs ".5c center 1c left" \
  10.         -lmargin1 0 -lmargin2 1c
  11. }
  12. proc BList_Item { t text {mark insert}} {
  13.     global blist
  14.     # Assume we are at the beginning of the line
  15.     $t insert $mark \t bulletlist
  16.     $t image create $mark -image $blist(image)
  17.     $t insert $mark \t$text bulletlist
  18. }
  19.  
  20.  
  21.