diff options
| -rw-r--r-- | library/fontchooser.tcl | 5 |
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 |