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 / TK.fsc < prev    next >
Text File  |  2000-05-17  |  592b  |  20 lines
  1. #
  2. # $Id: TK.fsc,v 1.1.1.1 2000/05/17 11:08:48 idiscovery Exp $
  3. #
  4. proc tixPref:InitFontSet:TK {} { 
  5.  
  6.  
  7.     global tixOption
  8.  
  9.     set tixOption(font)         -Adobe-Helvetica-Medium-R-Normal--*-120-*
  10.     set tixOption(bold_font)    -Adobe-Helvetica-Bold-R-Normal--*-120-*
  11.     set tixOption(menu_font)    -Adobe-Helvetica-Bold-R-Normal--*-120-*
  12.     set tixOption(italic_font)  -Adobe-Helvetica-Bold-O-Normal--*-120-*
  13.     set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
  14.     set tixOption(border1)      1
  15.  
  16. }
  17. proc tixPref:SetFontSet:TK {} { 
  18. global tixOption
  19. }
  20.