1# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
2#
3#	$Id: WmDefault.fs,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
4#
5
6proc tixSetFontset {} {
7    global tixOption
8
9    package require wm_default
10    if {![info exists ::wm_default::wm]} {
11	wm_default::setup
12	wm_default::addoptions
13    }
14
15    set tixOption(font) 	$::wm_default::system_font
16    set tixOption(bold_font)    [concat $::wm_default::system_font bold]
17    set tixOption(menu_font)    $::wm_default::menu_font
18    set tixOption(italic_font)  [concat $::wm_default::system_font italic]
19    set tixOption(fixed_font)   $::wm_default::fixed_font
20    set tixOption(text_font)   $::wm_default::text_font
21    set tixOption(border1)      $::wm_default::borderwidth
22
23}
24