home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 42_1.tcl < prev    next >
Text File  |  2003-04-16  |  428b  |  22 lines
  1. #
  2. # Example 42-1
  3. # The FontWidget procedure handles missing fonts.
  4. #
  5.  
  6. proc FontWidget { args } {
  7.     # args is a Tcl command
  8.     if {[catch $args w]} {
  9.         # Delete the font specified in args, if any
  10.         set ix [lsearch $args -font]
  11.         if {$ix >= 0} {
  12.             set args [lreplace $args $ix [expr $ix+1]]
  13.         }
  14.         # This font overrides the resource database
  15.         # The "fixed" font is UNIX-specific
  16.         set w [eval $args {-font fixed}]
  17.     }
  18.     return $w
  19. }
  20.  
  21.  
  22.