From 3655db8b8d9c31f3253d97a9ea250b07641c24d9 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 7 Feb 2014 08:37:40 +0000
Subject: [6867cc13a4] "tk fontchooser configure" overwrites global variables

---
 library/fontchooser.tcl | 5 +++++
 1 file changed, 5 insertions(+)

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
-- 
cgit v0.12