Home Explore Help
Register Sign In
huang_chao
/
EC600G
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 95e9c2788e
Branches Tags
EC600G
/
prebuilts
/
win32
/
python3
/
tcl
/
tix8.4.3
/
pref
/
14Point.fsc

14Point.fsc 2.1 KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950 
  1. #
    2. 

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

  3. #
    4. 

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

  5. 

  6. 

  7.     global tixOption tcl_platform
    8. 

  8. 

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

  10. 	if {$tcl_platform(osVersion) < 5} {
    11. 

  11. 	    set font "MS Sans Serif"
    12. 

  12. 	} else {
    13. 

  13. 	    set font "Tahoma"
    14. 

  14. 	}
    15. 

  15. 	set fixedfont "Courier New"
    16. 

  16. 	set bd 1
    17. 

  17.     } unix {
    18. 

  18. 	set font "helvetica"
    19. 

  19. 	set fixedfont "courier"
    20. 

  20. 	set bd 2
    21. 

  21.     }
    22. 

  22. 

  23.     set tixOption(font)         [list $font -14]
    24. 

  24.     set tixOption(bold_font)    [list $font -14 bold]
    25. 

  25.     set tixOption(menu_font)    [list $font -14]
    26. 

  26.     set tixOption(italic_font)  [list $font -14 bold italic]
    27. 

  27.     set tixOption(fixed_font)   [list $fixedfont -14]
    28. 

  28.     set tixOption(border1)      $bd
    29. 

  29. 

  30. }
    31. 

  31. proc tixPref:SetFontSet:14Point {} { 
    32. 

  32. global tixOption
    33. 

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

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

  35. option add *Menu.font			$tixOption(menu_font) $tixOption(prioLevel)
    36. 

  36. option add *TixMenu.font			$tixOption(menu_font) $tixOption(prioLevel)
    37. 

  37. option add *Menubutton.font			$tixOption(menu_font) $tixOption(prioLevel)
    38. 

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

  39. option add *Scale.font			$tixOption(italic_font) $tixOption(prioLevel)
    40. 

  40. option add *TixBalloon*Label.font 			$tixOption(font) $tixOption(prioLevel)
    41. 

  41. option add *TixBitmapButton*label.font 			$tixOption(font) $tixOption(prioLevel)
    42. 

  42. option add *TixControl*label.font              	$tixOption(bold_font) $tixOption(prioLevel)
    43. 

  43. option add *TixLabelEntry*label.font              	$tixOption(bold_font) $tixOption(prioLevel)
    44. 

  44. option add *TixLabelFrame*label.font 	 		$tixOption(bold_font) $tixOption(prioLevel)
    45. 

  45. option add *TixMwmClient*title.font			$tixOption(menu_font) $tixOption(prioLevel)
    46. 

  46. option add *TixNoteBook.nbframe.font			$tixOption(menu_font) $tixOption(prioLevel)
    47. 

  47. option add *TixOptionMenu*menubutton.font		$tixOption(font) $tixOption(prioLevel)
    48. 

  48. option add *TixComboBox*Entry.font				$tixOption(font) $tixOption(prioLevel)
    49. 

  49. option add *TixFileSelectBox*Label.font            		$tixOption(bold_font) $tixOption(prioLevel)
    50. 

  50. }
    51.