10Point.fsc 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. #
  2. # $Id: 10Point.fsc,v 1.2 2002/01/24 09:17:02 idiscovery Exp $
  3. #
  4. proc tixPref:InitFontSet:10Point {} {
  5. global tixOption tcl_platform
  6. switch -- $tcl_platform(platform) "windows" {
  7. # This should be Tahoma for Win2000/XP
  8. set font "MS Sans Sherif"
  9. set fixedfont "Courier New"
  10. } unix {
  11. set font "helvetica"
  12. set fixedfont "courier"
  13. }
  14. set tixOption(font) [list $font -10]
  15. set tixOption(bold_font) [list $font -10 bold]
  16. set tixOption(menu_font) [list $font -10]
  17. set tixOption(italic_font) [list $font -10 bold italic]
  18. set tixOption(fixed_font) [list $fixedfont -10]
  19. set tixOption(border1) 1
  20. }
  21. proc tixPref:SetFontSet:10Point {} {
  22. global tixOption
  23. option add *Font $tixOption(font) $tixOption(prioLevel)
  24. option add *font $tixOption(font) $tixOption(prioLevel)
  25. option add *Menu.font $tixOption(menu_font) $tixOption(prioLevel)
  26. option add *TixMenu.font $tixOption(menu_font) $tixOption(prioLevel)
  27. option add *Menubutton.font $tixOption(menu_font) $tixOption(prioLevel)
  28. option add *Label.font $tixOption(bold_font) $tixOption(prioLevel)
  29. option add *Scale.font $tixOption(italic_font) $tixOption(prioLevel)
  30. option add *TixBalloon*Label.font $tixOption(font) $tixOption(prioLevel)
  31. option add *TixBitmapButton*label.font $tixOption(font) $tixOption(prioLevel)
  32. option add *TixControl*label.font $tixOption(bold_font) $tixOption(prioLevel)
  33. option add *TixLabelEntry*label.font $tixOption(bold_font) $tixOption(prioLevel)
  34. option add *TixLabelFrame*label.font $tixOption(bold_font) $tixOption(prioLevel)
  35. option add *TixMwmClient*title.font $tixOption(menu_font) $tixOption(prioLevel)
  36. option add *TixNoteBook.nbframe.font $tixOption(menu_font) $tixOption(prioLevel)
  37. option add *TixOptionMenu*menubutton.font $tixOption(font) $tixOption(prioLevel)
  38. option add *TixComboBox*Entry.font $tixOption(font) $tixOption(prioLevel)
  39. option add *TixFileSelectBox*Label.font $tixOption(bold_font) $tixOption(prioLevel)
  40. }