Changeset 417 for trunk/opts.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:05:49 PM (11 years ago)
Author:
toby
Message:

# on 2001/09/04 22:06:41, toby did:
adjustable fonts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/opts.tcl

    • Property rcs:date changed from 2000/11/21 21:25:31 to 2001/09/04 22:06:41
    • Property rcs:lines changed from +1 -1 to +119 -85
    • Property rcs:rev changed from 1.2 to 1.3
    r351 r417  
    1 proc SetTkDefaultOptions {} {
     1proc SetTkDefaultOptions {"basefont 14"} {
    22
    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-*-*-*-*-*-*-*
     3    set Opt(prio)    10
     4    set Opt(font)         "Helvetica -$basefont"
     5    set Opt(bold_font)    "Helvetica -$basefont bold"
     6    set Opt(menu_font)    "Helvetica -$basefont bold"
     7    set Opt(italic_font)  "Helvetica -$basefont bold italic"
     8    #set Opt(fixed_font)   -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
     9    incr basefont -2
     10    set Opt(graph_font)    "Helvetica -$basefont"
     11    set Opt(small_bold_font)    "Helvetica -$basefont bold"
     12    set Opt(small_font)    "Helvetica -$basefont"
     13    set Opt(coord_font)    "Courier -$basefont bold"
    914
    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)
     15    option add *Font            $Opt(font) $Opt(prio)
     16    option add *font            $Opt(font) $Opt(prio)
     17    option add *Graph*Font      $Opt(graph_font) $Opt(prio)
     18    option add *Graph.font      $Opt(graph_font) $Opt(prio)
     19    option add *Canvas.font     $Opt(bold_font) $Opt(prio)
     20    option add *Button.font     $Opt(font) $Opt(prio)
     21    option add *Menu.font       $Opt(menu_font) $Opt(prio)
     22    option add *Menubutton.font $Opt(menu_font) $Opt(prio)
     23    option add *Label.font      $Opt(bold_font) $Opt(prio)
     24    option add *Scale.font      $Opt(italic_font) $Opt(prio)
     25    option add *TitleFrame.font $Opt(italic_font) $Opt(prio)
     26    option add *SmallFont.Button.font   $Opt(small_font) $Opt(prio)
     27    option add *Coord.Listbox.font      $Opt(coord_font) $Opt(prio)
     28    option add *HistList.Listbox.font   $Opt(coord_font) $Opt(prio)
     29    option add *MonoSpc.Label.font      $Opt(coord_font) $Opt(prio)
    1730
    18     set TkDefault(bg)           lightgray
    19     set TkDefault(fg)           black
     31    set Opt(bg)           lightgray
     32    set Opt(fg)           black
    2033
    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
     34    set Opt(dark1_bg)     gray86
     35    set Opt(dark1_fg)     black
     36    #set Opt(dark2_bg)     gray77
     37    #set Opt(dark2_fg)     black
     38    set Opt(inactive_bg)  gray77
     39    set Opt(inactive_fg)  black
    2740
    28     set TkDefault(light1_bg)    gray92
    29     #set TkDefault(light1_fg)    white
    30     #set TkDefault(light2_bg)    gray95
    31     #set TkDefault(light2_fg)    white
     41    set Opt(light1_bg)    gray92
     42    #set Opt(light1_fg)    white
     43    #set Opt(light2_bg)    gray95
     44    #set Opt(light2_fg)    white
    3245
    33     set TkDefault(active_bg)    $TkDefault(dark1_bg)
    34     set TkDefault(active_fg)    $TkDefault(fg)
    35     set TkDefault(disabled_fg)  gray55
     46    set Opt(active_bg)    $Opt(dark1_bg)
     47    set Opt(active_fg)    $Opt(fg)
     48    set Opt(disabled_fg)  gray55
    3649
    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)
     50    set Opt(input1_bg)    gray95
     51    set Opt(input2_bg)    gray95
     52    set Opt(output1_bg)   $Opt(dark1_bg)
     53    set Opt(output2_bg)   $Opt(bg)
    4154
    42     set TkDefault(select_fg)    black
    43     set TkDefault(select_bg)    lightblue
     55    set Opt(select_fg)    black
     56    set Opt(select_bg)    lightblue
    4457
    45     set TkDefault(selector)     yellow
     58    set Opt(selector)   yellow
    4659
    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)
     60    option add *background              $Opt(bg) 10
     61    option add *Background              $Opt(bg) $Opt(prio)
     62    option add *background              $Opt(bg) $Opt(prio)
     63    option add *Foreground              $Opt(fg) $Opt(prio)
     64    option add *foreground              $Opt(fg) $Opt(prio)
     65    option add *activeBackground        $Opt(active_bg) $Opt(prio)
     66    option add *activeForeground        $Opt(active_fg) $Opt(prio)
     67    option add *HighlightBackground     $Opt(bg) $Opt(prio)
     68    option add *selectBackground        $Opt(select_bg) $Opt(prio)
     69    option add *selectForeground        $Opt(select_fg) $Opt(prio)
     70    option add *selectBorderWidth       0 $Opt(prio)
     71    option add *Menu.selectColor        $Opt(selector) $Opt(prio)
     72    option add *Menubutton.padY         5 $Opt(prio)
     73    option add *Button.borderWidth      2 $Opt(prio)
     74    option add *Button.anchor           c $Opt(prio)
     75    option add *Checkbutton.selectColor $Opt(selector) $Opt(prio)
     76    option add *Radiobutton.selectColor $Opt(selector) $Opt(prio)
     77    option add *Entry.relief            sunken $Opt(prio)
     78    option add *Entry.highlightBacground        $Opt(bg) $Opt(prio)
     79    option add *Entry.background        $Opt(input1_bg) $Opt(prio)
     80    option add *Entry.foreground        black $Opt(prio)
     81    option add *Entry.insertBackground  black $Opt(prio)
     82    option add *Label.anchor            w $Opt(prio)
     83    option add *Label.borderWidth       0 $Opt(prio)
     84    option add *Listbox.background      $Opt(light1_bg) $Opt(prio)
     85    option add *Listbox.relief          sunken $Opt(prio)
     86    option add *Scale.foreground        $Opt(fg) $Opt(prio)
     87    option add *Scale.activeForeground  $Opt(bg) $Opt(prio)
     88    option add *Scale.background        $Opt(bg) $Opt(prio)
     89    option add *Scale.sliderForeground  $Opt(bg) $Opt(prio)
     90    option add *Scale.sliderBackground  $Opt(light1_bg) $Opt(prio)
     91    option add *Scrollbar.background    $Opt(bg) $Opt(prio)
     92    option add *Scrollbar.troughColor   $Opt(light1_bg) $Opt(prio)
     93    option add *Scrollbar.relief        sunken $Opt(prio)
     94    option add *Scrollbar.borderWidth   1 $Opt(prio)
     95    option add *Scrollbar.width         15 $Opt(prio)
     96    option add *Text.background         $Opt(input1_bg) $Opt(prio)
     97    option add *Text.relief             sunken $Opt(prio)
     98    . config -background                $Opt(bg)
    8699}
    87100SetTkDefaultOptions
     101
     102# recursive routine to set all
     103proc ResizeFont {path} {
     104    foreach child [winfo children $path] {
     105        set childtype [winfo class $child]
     106        # class "FixedFont" should not be resized
     107        if {$childtype == "FixedFont"} continue
     108        set font [option get $child font $childtype]
     109        if {$font != ""} {
     110            catch {
     111                set curfont [$child cget -font]
     112                if {[string tolower [lindex $curfont 0]] == "symbol"} {
     113                    $child configure -font "Symbol [lrange $font 1 end]"
     114                } else {
     115                    $child configure -font $font
     116                }
     117            }
     118        }
     119        ResizeFont $child
     120    }
     121}
Note: See TracChangeset for help on using the changeset viewer.