diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-02-07 08:37:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-02-07 08:37:40 (GMT) |
| commit | 3655db8b8d9c31f3253d97a9ea250b07641c24d9 (patch) | |
| tree | 56a09c3f54fd01459f2cd41346d893731416c0d5 | |
| parent | 6be7cac02da8b4adafdb101e571628f100cf3798 (diff) | |
| download | tk-3655db8b8d9c31f3253d97a9ea250b07641c24d9.zip tk-3655db8b8d9c31f3253d97a9ea250b07641c24d9.tar.gz tk-3655db8b8d9c31f3253d97a9ea250b07641c24d9.tar.bz2 | |
[6867cc13a4] "tk fontchooser configure" overwrites global variables
| -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 |