You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
54 lines
2.1 KiB
Tcl
54 lines
2.1 KiB
Tcl
# 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
|
|
}
|