Tk Source Code
View Ticket
Not logged in
Tcl 2014 Conference, Portland/OR, US, Nov 10-14
Send your abstracts to tclconference@googlegroups.com by Sep 8.
Ticket UUID: 6867cc13a4a9ac80d2861daab0e0380cea1a6ecb
Title: [tk fontchooser configure] overwrites global variables
Type: Bug Version: 8.6.1
Submitter: anonymous Created on: 2014-01-28 10:58:02
Subsystem: 46. Unix Fonts Assigned To: jan.nijtmans
Priority: 5 Medium Severity: Minor
Status: Closed Last Modified: 2014-02-07 08:35:02
Resolution: Fixed Closed By: jan.nijtmans
    Closed on: 2014-02-07 08:35:02
Description:
% set font Helvetica
Helvetica
% tk fontchooser configure -title foo
% set font
Zrnic
User Comments: jan.nijtmans added on 2014-02-07 08:35:02:

Fixed in 9c6d8f0cf3


anonymous added on 2014-01-28 14:51:25:
This should fix it:

--- a/library/fontchooser.tcl
+++ b/library/fontchooser.tcl
@@ -10,6 +10,8 @@
 
 namespace eval ::tk::fontchooser {
     variable S
+    variable font
+    variable style
 
     set S(W) .__tk__fontchooser
     set S(fonts) [lsort -dictionary [font families]]