neingeist
/
arduinisten
Archived
1
0
Fork 0
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.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.

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
}