OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [library/] [pref/] [TkWin.fsc] - Blame information for rev 1781

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
proc tixPref:InitFontSet:TkWin {} {
2
 
3
 
4
    global tixOption
5
 
6
    set tixOption(font)         "windows-message"
7
    set tixOption(bold_font)    "windows-status"
8
    set tixOption(menu_font)    "windows-menu"
9
    set tixOption(italic_font)  "windows-message"
10
    set tixOption(fixed_font)   "systemfixed"
11
    set tixOption(border1)      1
12
 
13
}
14
proc tixPref:SetFontSet:TkWin {} {
15
global tixOption
16
option add *Menu.font                   $tixOption(menu_font) $tixOption(prioLevel)
17
option add *TixMenu.font                        $tixOption(menu_font) $tixOption(prioLevel)
18
option add *Menubutton.font                     $tixOption(menu_font) $tixOption(prioLevel)
19
option add *Label.font                  $tixOption(bold_font) $tixOption(prioLevel)
20
option add *Scale.font                  $tixOption(italic_font) $tixOption(prioLevel)
21
option add *TixBalloon*Label.font                       $tixOption(font) $tixOption(prioLevel)
22
option add *TixBitmapButton*label.font                  $tixOption(font) $tixOption(prioLevel)
23
option add *TixControl*label.font               $tixOption(bold_font) $tixOption(prioLevel)
24
option add *TixLabelEntry*label.font                    $tixOption(bold_font) $tixOption(prioLevel)
25
option add *TixLabelFrame*label.font                    $tixOption(bold_font) $tixOption(prioLevel)
26
option add *TixMwmClient*title.font                     $tixOption(menu_font) $tixOption(prioLevel)
27
option add *TixNoteBook.nbframe.font                    $tixOption(menu_font) $tixOption(prioLevel)
28
option add *TixOptionMenu*menubutton.font               $tixOption(font) $tixOption(prioLevel)
29
option add *TixComboBox*Entry.font                              $tixOption(font) $tixOption(prioLevel)
30
option add *TixFileSelectBox*Label.font                         $tixOption(bold_font) $tixOption(prioLevel)
31
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.