home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 34_1.tcl < prev    next >
Text File  |  2003-04-15  |  385b  |  16 lines
  1. #
  2. # Example 34-1
  3. # Tag configurations for basic character styles.
  4. #
  5.  
  6. proc TextStyles { t } {
  7.     $t tag configure bold -font {times 12 bold}
  8.     $t tag configure italic -font {times 12 italic}
  9.     $t tag configure fixed -font {courier 12}
  10.     $t tag configure underline -underline true
  11.     $t tag configure super -offset 6 -font {helvetica 8}
  12.     $t tag configure sub -offset -6 -font {helvetica 8}
  13. }
  14.  
  15.  
  16.