[Tcl-bugs] [tk] (Ticket 6867cc13a4 - Change) [tk fontchooser configure] overwrites global variables

[<tcl...@tc...>]

Repository: http://core.tcl.tk/tk

Change Notification For
  [[tk fontchooser configure] overwrites global variables]
  Ticket   http://core.tcl.tk/tk/tktview?name=6867cc13a4a9ac80d2861daab0e0380cea1a6ecb
  Artifact http://core.tcl.tk/tk/tinfo?name=8a2f1c5dec1508892536f9b037fe89353cc847ef
  On       2014-01-28T14:51:25
  By       anonymous

Changed Fields
  icomment: 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]]
  login:    anonymous