Subversion Repositories or1k

proc tixPref:InitFontSet:12Point {} {

    global tixOption

    set tixOption(font)         -*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*

    set tixOption(bold_font)    -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*

    set tixOption(menu_font)    -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*

    set tixOption(italic_font)  -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-*

    set tixOption(fixed_font) -*-courier-medium-r-*-*-12-*-*-*-*-*-*-*

    set tixOption(border1)      1

}

proc tixPref:SetFontSet:12Point {} {

global tixOption

option add *Font                        $tixOption(font) $tixOption(prioLevel)

option add *font                        $tixOption(font) $tixOption(prioLevel)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

}