diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2014-02-07 08:37:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2014-02-07 08:37:40 (GMT) |
| commit | 328a30390f805698fbff8d67e124b6cc2c0f9540 (patch) | |
| tree | 56a09c3f54fd01459f2cd41346d893731416c0d5 /library | |
| parent | 6cdf9805b88a9637a530ae5c6c30168579d28693 (diff) | |
| download | tk-328a30390f805698fbff8d67e124b6cc2c0f9540.zip tk-328a30390f805698fbff8d67e124b6cc2c0f9540.tar.gz tk-328a30390f805698fbff8d67e124b6cc2c0f9540.tar.bz2 | |
[6867cc13a4] "tk fontchooser configure" overwrites global variables
FossilOrigin-Name: 9c6d8f0cf39b36f2bf9573dce3b67db78e44d32f
Diffstat (limited to 'library')
| -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 |