home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tix8.1 / pref / Old12Pt.fs < prev    next >
Text File  |  2000-05-17  |  559b  |  15 lines
  1. #
  2. # $Id: Old12Pt.fs,v 1.1.1.1 2000/05/17 11:08:48 idiscovery Exp $
  3. #
  4.  
  5. proc tixSetFontset:12Point {} {
  6.     global tixOption
  7.  
  8.     set tixOption(font)         -*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*
  9.     set tixOption(bold_font)    -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*
  10.     set tixOption(menu_font)    -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-*
  11.     set tixOption(italic_font)  -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-*
  12.     set tixOption(fixed_font) -*-courier-medium-r-*-*-12-*-*-*-*-*-*-*
  13.     set tixOption(border1)      1
  14. }
  15.