summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
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