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 / TkWin.fs < prev    next >
Text File  |  2000-10-11  |  406b  |  17 lines
  1. #
  2. # $Id: TkWin.fs,v 1.1 2000/10/12 01:41:26 idiscovery Exp $
  3. #
  4.  
  5. proc tixSetFontset {} {
  6.  
  7.     global tixOption
  8.  
  9.     set tixOption(font)         "windows-message"
  10.     set tixOption(bold_font)    "windows-status"
  11.     set tixOption(menu_font)    "windows-menu"
  12.     set tixOption(italic_font)  "windows-message"
  13.     set tixOption(fixed_font)   "systemfixed"
  14.     set tixOption(border1)      1
  15. }
  16.  
  17.