Tk Source Code

View Ticket
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to
or submit via the online form by Aug 20.
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
% set font Helvetica
% tk fontchooser configure -title foo
% set font
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]]