home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Texte / scribus / scribus-1.3.3.9-win32-install.exe / tcl / tix8.1 / pref / TkWin.fsc < prev    next >
Text File  |  2000-10-11  |  2KB  |  35 lines
  1. #
  2. # $Id: TkWin.fsc,v 1.1 2000/10/12 01:41:36 idiscovery Exp $
  3. #
  4. proc tixPref:InitFontSet:TkWin {} { 
  5.  
  6.  
  7.     global tixOption
  8.  
  9.     set tixOption(font)         "windows-message"
  10.     set tixOption(bold_font)    "windows-status"
  11.     set tixOption(menu_font)    "windows-menu"
  12.     set tixOption(italic_font)  "windows-message"
  13.     set tixOption(fixed_font)   "systemfixed"
  14.     set tixOption(border1)      1
  15.  
  16. }
  17. proc tixPref:SetFontSet:TkWin {} { 
  18. global tixOption
  19. option add *Menu.font            $tixOption(menu_font) $tixOption(prioLevel)
  20. option add *TixMenu.font            $tixOption(menu_font) $tixOption(prioLevel)
  21. option add *Menubutton.font            $tixOption(menu_font) $tixOption(prioLevel)
  22. option add *Label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  23. option add *Scale.font            $tixOption(italic_font) $tixOption(prioLevel)
  24. option add *TixBalloon*Label.font             $tixOption(font) $tixOption(prioLevel)
  25. option add *TixBitmapButton*label.font             $tixOption(font) $tixOption(prioLevel)
  26. option add *TixControl*label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  27. option add *TixLabelEntry*label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  28. option add *TixLabelFrame*label.font              $tixOption(bold_font) $tixOption(prioLevel)
  29. option add *TixMwmClient*title.font            $tixOption(menu_font) $tixOption(prioLevel)
  30. option add *TixNoteBook.nbframe.font            $tixOption(menu_font) $tixOption(prioLevel)
  31. option add *TixOptionMenu*menubutton.font        $tixOption(font) $tixOption(prioLevel)
  32. option add *TixComboBox*Entry.font                $tixOption(font) $tixOption(prioLevel)
  33. option add *TixFileSelectBox*Label.font                    $tixOption(bold_font) $tixOption(prioLevel)
  34. }
  35.