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 / 12Point.fs < prev    next >
Text File  |  2001-11-04  |  671b  |  24 lines
  1. #
  2. # $Id: 12Point.fs,v 1.1.1.1.2.1 2001/11/04 05:24:15 idiscovery Exp $
  3. #
  4.  
  5. proc tixSetFontset {} {
  6.     global tixOption tcl_platform
  7.  
  8.     switch -- $tcl_platform(platform) "windows" {
  9.     # This should be Tahoma for Win2000/XP
  10.     set font "MS Sans Serif"
  11.     set fixedfont "Courier New"
  12.     } unix {
  13.     set font "helvetica"
  14.     set fixedfont "courier"
  15.     }
  16.  
  17.     set tixOption(font)         [list $font -12]
  18.     set tixOption(bold_font)    [list $font -12 bold]
  19.     set tixOption(menu_font)    [list $font -12]
  20.     set tixOption(italic_font)  [list $font -12 bold italic]
  21.     set tixOption(fixed_font)   [list $fixedfont -12]
  22.     set tixOption(border1)      1
  23. }
  24.