Subversion Repositories or1k

proc tixPref:InitFontSet:14Point {} { 


    global tixOption

    set tixOption(font)         -*-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-*
    set tixOption(bold_font)    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
    set tixOption(menu_font)    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
    set tixOption(italic_font)  -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-*
    set tixOption(fixed_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*

}
proc tixPref:SetFontSet:14Point {} { 
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)
}