| 1 | proc 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 | |
|---|
| 17 | set TkDefault(bg) lightgray |
|---|
| 18 | set TkDefault(fg) black |
|---|
| 19 | |
|---|
| 20 | set TkDefault(dark1_bg) gray86 |
|---|
| 21 | set TkDefault(dark1_fg) black |
|---|
| 22 | #set TkDefault(dark2_bg) gray77 |
|---|
| 23 | #set TkDefault(dark2_fg) black |
|---|
| 24 | set TkDefault(inactive_bg) gray77 |
|---|
| 25 | set TkDefault(inactive_fg) black |
|---|
| 26 | |
|---|
| 27 | set TkDefault(light1_bg) gray92 |
|---|
| 28 | #set TkDefault(light1_fg) white |
|---|
| 29 | #set TkDefault(light2_bg) gray95 |
|---|
| 30 | #set TkDefault(light2_fg) white |
|---|
| 31 | |
|---|
| 32 | set TkDefault(active_bg) $TkDefault(dark1_bg) |
|---|
| 33 | set TkDefault(active_fg) $TkDefault(fg) |
|---|
| 34 | set TkDefault(disabled_fg) gray55 |
|---|
| 35 | |
|---|
| 36 | set TkDefault(input1_bg) gray95 |
|---|
| 37 | set TkDefault(input2_bg) gray95 |
|---|
| 38 | set TkDefault(output1_bg) $TkDefault(dark1_bg) |
|---|
| 39 | set TkDefault(output2_bg) $TkDefault(bg) |
|---|
| 40 | |
|---|
| 41 | set TkDefault(select_fg) black |
|---|
| 42 | set TkDefault(select_bg) lightblue |
|---|
| 43 | |
|---|
| 44 | set TkDefault(selector) yellow |
|---|
| 45 | |
|---|
| 46 | option add *background $TkDefault(bg) 10 |
|---|
| 47 | option add *Background $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 48 | option add *background $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 49 | option add *Foreground $TkDefault(fg) $TkDefault(prioLevel) |
|---|
| 50 | option add *foreground $TkDefault(fg) $TkDefault(prioLevel) |
|---|
| 51 | option add *activeBackground $TkDefault(active_bg) $TkDefault(prioLevel) |
|---|
| 52 | option add *activeForeground $TkDefault(active_fg) $TkDefault(prioLevel) |
|---|
| 53 | option add *HighlightBackground $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 54 | option add *selectBackground $TkDefault(select_bg) $TkDefault(prioLevel) |
|---|
| 55 | option add *selectForeground $TkDefault(select_fg) $TkDefault(prioLevel) |
|---|
| 56 | option add *selectBorderWidth 0 $TkDefault(prioLevel) |
|---|
| 57 | option add *Menu.selectColor $TkDefault(selector) $TkDefault(prioLevel) |
|---|
| 58 | option add *Menubutton.padY 5 $TkDefault(prioLevel) |
|---|
| 59 | option add *Button.borderWidth 2 $TkDefault(prioLevel) |
|---|
| 60 | option add *Button.anchor c $TkDefault(prioLevel) |
|---|
| 61 | option add *Checkbutton.selectColor $TkDefault(selector) $TkDefault(prioLevel) |
|---|
| 62 | option add *Radiobutton.selectColor $TkDefault(selector) $TkDefault(prioLevel) |
|---|
| 63 | option add *Entry.relief sunken $TkDefault(prioLevel) |
|---|
| 64 | option add *Entry.highlightBacground $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 65 | option add *Entry.background $TkDefault(input1_bg) $TkDefault(prioLevel) |
|---|
| 66 | option add *Entry.foreground black $TkDefault(prioLevel) |
|---|
| 67 | option add *Entry.insertBackground black $TkDefault(prioLevel) |
|---|
| 68 | option add *Label.anchor w $TkDefault(prioLevel) |
|---|
| 69 | option add *Label.borderWidth 0 $TkDefault(prioLevel) |
|---|
| 70 | option add *Listbox.background $TkDefault(light1_bg) $TkDefault(prioLevel) |
|---|
| 71 | option add *Listbox.relief sunken $TkDefault(prioLevel) |
|---|
| 72 | option add *Scale.foreground $TkDefault(fg) $TkDefault(prioLevel) |
|---|
| 73 | option add *Scale.activeForeground $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 74 | option add *Scale.background $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 75 | option add *Scale.sliderForeground $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 76 | option add *Scale.sliderBackground $TkDefault(light1_bg) $TkDefault(prioLevel) |
|---|
| 77 | option add *Scrollbar.background $TkDefault(bg) $TkDefault(prioLevel) |
|---|
| 78 | option add *Scrollbar.troughColor $TkDefault(light1_bg) $TkDefault(prioLevel) |
|---|
| 79 | option add *Scrollbar.relief sunken $TkDefault(prioLevel) |
|---|
| 80 | option add *Scrollbar.borderWidth 1 $TkDefault(prioLevel) |
|---|
| 81 | option add *Scrollbar.width 15 $TkDefault(prioLevel) |
|---|
| 82 | option add *Text.background $TkDefault(input1_bg) $TkDefault(prioLevel) |
|---|
| 83 | option add *Text.relief sunken $TkDefault(prioLevel) |
|---|
| 84 | option add *TitleFrame.font $TkDefault(italic_font) |
|---|
| 85 | . config -background $TkDefault(bg) |
|---|
| 86 | } |
|---|
| 87 | SetTkDefaultOptions |
|---|
