summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-02-07 08:37:40 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-02-07 08:37:40 (GMT)
commit3655db8b8d9c31f3253d97a9ea250b07641c24d9 (patch)
tree56a09c3f54fd01459f2cd41346d893731416c0d5 /library
parent6be7cac02da8b4adafdb101e571628f100cf3798 (diff)
downloadtk-3655db8b8d9c31f3253d97a9ea250b07641c24d9.zip
tk-3655db8b8d9c31f3253d97a9ea250b07641c24d9.tar.gz
tk-3655db8b8d9c31f3253d97a9ea250b07641c24d9.tar.bz2
[6867cc13a4] "tk fontchooser configure" overwrites global variables
Diffstat (limited to 'library')
-rw-r--r--library/fontchooser.tcl5
1 files changed, 5 insertions, 0 deletions
diff --git a/library/fontchooser.tcl b/library/fontchooser.tcl
index 179476c..8b3f87e 100644
--- a/library/fontchooser.tcl
+++ b/library/fontchooser.tcl
@@ -29,6 +29,10 @@ namespace eval ::tk::fontchooser {
set S(-title) [::msgcat::mc "Font"]
set S(-command) ""
set S(-font) TkDefaultFont
+}
+
+proc ::tk::fontchooser::Setup {} {
+ variable S
# Canonical versions of font families, styles, etc. for easier searching
set S(fonts,lcase) {}
@@ -52,6 +56,7 @@ namespace eval ::tk::fontchooser {
configure ::tk::fontchooser::Configure
}
}
+::tk::fontchooser::Setup
proc ::tk::fontchooser::Show {} {
variable S