Changeset 1605 for trunk

Timestamp:

Oct 29, 2009 2:19:31 PM (14 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/xyprint.tcl (modified) (1 diff)

trunk/gui/scripts/xyprint.tcl

@@ -154 +154 @@
     set _clone ""
     set _graph ""
+    foreach font [array names _fonts] {
+        font delete $font
+    }
+    array unset _fonts
 }