source: trunk/opts.tcl @ 351

Last change on this file since 351 was 351, checked in by toby, 11 years ago

# on 2000/11/21 21:25:31, toby did:
fix font use for customization

  • Property rcs:author set to toby
  • Property rcs:date set to 2000/11/21 21:25:31
  • Property rcs:lines set to +1 -1
  • Property rcs:rev set to 1.2
  • Property rcs:state set to Exp
  • Property svn:keywords set to Author Date Revision Id
File size: 4.4 KB
Line 
1proc SetTkDefaultOptions {} { 
2
3    set TkDefault(prioLevel)    10
4    set TkDefault(font)         -*-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-*
5    set TkDefault(bold_font)    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
6    set TkDefault(menu_font)    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
7    set TkDefault(italic_font)  -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-*
8    #set TkDefault(fixed_font)   -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
9
10    option add *Font            $TkDefault(font) $TkDefault(prioLevel)
11    option add *font            $TkDefault(font) $TkDefault(prioLevel)
12    option add *Menu.font       $TkDefault(menu_font) $TkDefault(prioLevel)
13    option add *Menubutton.font $TkDefault(menu_font) $TkDefault(prioLevel)
14    option add *Label.font      $TkDefault(bold_font) $TkDefault(prioLevel)
15    option add *Scale.font      $TkDefault(italic_font) $TkDefault(prioLevel)
16    option add *TitleFrame.font $TkDefault(italic_font) $TkDefault(prioLevel)
17
18    set TkDefault(bg)           lightgray
19    set TkDefault(fg)           black
20
21    set TkDefault(dark1_bg)     gray86
22    set TkDefault(dark1_fg)     black
23    #set TkDefault(dark2_bg)     gray77
24    #set TkDefault(dark2_fg)     black
25    set TkDefault(inactive_bg)  gray77
26    set TkDefault(inactive_fg)  black
27
28    set TkDefault(light1_bg)    gray92
29    #set TkDefault(light1_fg)    white
30    #set TkDefault(light2_bg)    gray95
31    #set TkDefault(light2_fg)    white
32
33    set TkDefault(active_bg)    $TkDefault(dark1_bg)
34    set TkDefault(active_fg)    $TkDefault(fg)
35    set TkDefault(disabled_fg)  gray55
36
37    set TkDefault(input1_bg)    gray95
38    set TkDefault(input2_bg)    gray95
39    set TkDefault(output1_bg)   $TkDefault(dark1_bg)
40    set TkDefault(output2_bg)   $TkDefault(bg)
41
42    set TkDefault(select_fg)    black
43    set TkDefault(select_bg)    lightblue
44
45    set TkDefault(selector)     yellow
46
47    option add *background              $TkDefault(bg) 10
48    option add *Background              $TkDefault(bg) $TkDefault(prioLevel)
49    option add *background              $TkDefault(bg) $TkDefault(prioLevel)
50    option add *Foreground              $TkDefault(fg) $TkDefault(prioLevel)
51    option add *foreground              $TkDefault(fg) $TkDefault(prioLevel)
52    option add *activeBackground        $TkDefault(active_bg) $TkDefault(prioLevel)
53    option add *activeForeground        $TkDefault(active_fg) $TkDefault(prioLevel)
54    option add *HighlightBackground     $TkDefault(bg) $TkDefault(prioLevel)
55    option add *selectBackground        $TkDefault(select_bg) $TkDefault(prioLevel)
56    option add *selectForeground        $TkDefault(select_fg) $TkDefault(prioLevel)
57    option add *selectBorderWidth       0 $TkDefault(prioLevel)
58    option add *Menu.selectColor        $TkDefault(selector) $TkDefault(prioLevel)
59    option add *Menubutton.padY         5 $TkDefault(prioLevel)
60    option add *Button.borderWidth      2 $TkDefault(prioLevel)
61    option add *Button.anchor           c $TkDefault(prioLevel)
62    option add *Checkbutton.selectColor $TkDefault(selector) $TkDefault(prioLevel)
63    option add *Radiobutton.selectColor $TkDefault(selector) $TkDefault(prioLevel)
64    option add *Entry.relief            sunken $TkDefault(prioLevel)
65    option add *Entry.highlightBacground        $TkDefault(bg) $TkDefault(prioLevel)
66    option add *Entry.background        $TkDefault(input1_bg) $TkDefault(prioLevel)
67    option add *Entry.foreground        black $TkDefault(prioLevel)
68    option add *Entry.insertBackground  black $TkDefault(prioLevel)
69    option add *Label.anchor            w $TkDefault(prioLevel)
70    option add *Label.borderWidth       0 $TkDefault(prioLevel)
71    option add *Listbox.background      $TkDefault(light1_bg) $TkDefault(prioLevel)
72    option add *Listbox.relief          sunken $TkDefault(prioLevel)
73    option add *Scale.foreground        $TkDefault(fg) $TkDefault(prioLevel)
74    option add *Scale.activeForeground  $TkDefault(bg) $TkDefault(prioLevel)
75    option add *Scale.background        $TkDefault(bg) $TkDefault(prioLevel)
76    option add *Scale.sliderForeground  $TkDefault(bg) $TkDefault(prioLevel)
77    option add *Scale.sliderBackground  $TkDefault(light1_bg) $TkDefault(prioLevel)
78    option add *Scrollbar.background    $TkDefault(bg) $TkDefault(prioLevel)
79    option add *Scrollbar.troughColor   $TkDefault(light1_bg) $TkDefault(prioLevel)
80    option add *Scrollbar.relief        sunken $TkDefault(prioLevel)
81    option add *Scrollbar.borderWidth   1 $TkDefault(prioLevel)
82    option add *Scrollbar.width         15 $TkDefault(prioLevel)
83    option add *Text.background         $TkDefault(input1_bg) $TkDefault(prioLevel)
84    option add *Text.relief             sunken $TkDefault(prioLevel)
85    . config -background                $TkDefault(bg)
86}
87SetTkDefaultOptions
Note: See TracBrowser for help on using the repository browser.