| # looknfeel.tcl - Standard look and feel decisions. |
| # Copyright (C) 1997 Cygnus Solutions. |
| # Written by Tom Tromey <tromey@cygnus.com>. |
| |
| # Run this once just after Tk is initialized. It will do whatever |
| # setup is required to make the application conform to our look and |
| # feel. |
| proc standard_look_and_feel {} { |
| global tcl_platform |
| |
| # FIXME: this is really gross: we know how tk_dialog chooses its |
| # -wraplength, and we make it bigger. Instead we should make our |
| # own dialog function. |
| option add *Dialog.msg.wrapLength 0 startupFile |
| |
| # We don't ever want tearoffs. |
| option add *Menu.tearOff 0 startupFile |
| |
| # The default font should be used by default. |
| # The bold font is like the default font, but is bold; use it for |
| # emphasis. |
| # The fixed font is guaranteed not to be proportional. |
| # The status font should be used in status bars and tooltips. |
| if {$tcl_platform(platform) == "windows"} then { |
| define_font global/default -family windows-message |
| # FIXME: this isn't actually a bold font... |
| define_font global/bold -family windows-caption |
| define_font global/fixed -family fixedsys |
| define_font global/status -family windows-status |
| # FIXME: we'd like this font to update automatically as well. But |
| # for now we can't. |
| array set actual [font actual windows-message] |
| set actual(-slant) italic |
| eval define_font global/italic [array get actual] |
| |
| # The menu font used to be set via the "windows-menu" |
| # font family, however this seems to have been deprecated |
| # for Tcl/Tk version 8.3, so we hard code it instead. |
| define_font global/menu -family {MS Sans Serif} -size 8 |
| } else { |
| set size 12 |
| define_font global/default -family courier -size $size |
| define_font global/bold -family courier -size $size -weight bold |
| define_font global/fixed -family courier -size $size |
| define_font global/status -family helvetica -size [expr $size - 1] |
| define_font global/italic -family courier -size $size -slant italic |
| define_font global/menu -family helvetica -size $size |
| } |
| |
| # Make sure this font is actually used by default. |
| option add *Font global/default |
| option add *Menu.Font global/menu |
| } |