Home Explore Help
Register Sign In
wzj
/
Sources_For_Win
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Branch: license-dev
Branches Tags
Sources_For_...
/
Python
/
tcl
/
tix8.4.3
/
pref
/
12Point.fsc

12Point.fsc 2.0 KB
Permalink History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344 
  1. #
    2. 

  2. # $Id: 12Point.fsc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
    3. 

  3. #
    4. 

  4. proc tixPref:InitFontSet:12Point {} { 
    5. 

  5. 

  6.     global tixOption tcl_platform
    7. 

  7. 

  8.     switch -- $tcl_platform(platform) "windows" {
    9. 

  9. 	# This should be Tahoma for Win2000/XP
    10. 

  10. 	set font "MS Sans Serif"
    11. 

  11. 	set fixedfont "Courier New"
    12. 

  12.     } unix {
    13. 

  13. 	set font "helvetica"
    14. 

  14. 	set fixedfont "courier"
    15. 

  15.     }
    16. 

  16. 

  17.     set tixOption(font)         [list $font -12]
    18. 

  18.     set tixOption(bold_font)    [list $font -12 bold]
    19. 

  19.     set tixOption(menu_font)    [list $font -12]
    20. 

  20.     set tixOption(italic_font)  [list $font -12 bold italic]
    21. 

  21.     set tixOption(fixed_font)   [list $fixedfont -12]
    22. 

  22.     set tixOption(border1)      1
    23. 

  23. 

  24. }
    25. 

  25. proc tixPref:SetFontSet:12Point {} { 
    26. 

  26. global tixOption
    27. 

  27. option add *Font			$tixOption(font) $tixOption(prioLevel)
    28. 

  28. option add *font			$tixOption(font) $tixOption(prioLevel)
    29. 

  29. option add *Menu.font			$tixOption(menu_font) $tixOption(prioLevel)
    30. 

  30. option add *TixMenu.font			$tixOption(menu_font) $tixOption(prioLevel)
    31. 

  31. option add *Menubutton.font			$tixOption(menu_font) $tixOption(prioLevel)
    32. 

  32. option add *Label.font              	$tixOption(bold_font) $tixOption(prioLevel)
    33. 

  33. option add *Scale.font			$tixOption(italic_font) $tixOption(prioLevel)
    34. 

  34. option add *TixBalloon*Label.font 			$tixOption(font) $tixOption(prioLevel)
    35. 

  35. option add *TixBitmapButton*label.font 			$tixOption(font) $tixOption(prioLevel)
    36. 

  36. option add *TixControl*label.font              	$tixOption(bold_font) $tixOption(prioLevel)
    37. 

  37. option add *TixLabelEntry*label.font              	$tixOption(bold_font) $tixOption(prioLevel)
    38. 

  38. option add *TixLabelFrame*label.font 	 		$tixOption(bold_font) $tixOption(prioLevel)
    39. 

  39. option add *TixMwmClient*title.font			$tixOption(menu_font) $tixOption(prioLevel)
    40. 

  40. option add *TixNoteBook.nbframe.font			$tixOption(menu_font) $tixOption(prioLevel)
    41. 

  41. option add *TixOptionMenu*menubutton.font		$tixOption(font) $tixOption(prioLevel)
    42. 

  42. option add *TixComboBox*Entry.font				$tixOption(font) $tixOption(prioLevel)
    43. 

  43. option add *TixFileSelectBox*Label.font            		$tixOption(bold_font) $tixOption(prioLevel)
    44. 

  44. }
    45.