Changeset 1526 for trunk/gui

Timestamp:

Jun 17, 2009, 8:48:28 PM (15 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/field.tcl

@@ -746 +746 @@
             set _comp2dims($cname) "3D"
             set _comp2dx($cname)  [$_field get -decode no $cname.dx]
+            set f [open $cname.dx "w"]
+            puts $f [Rappture::encoding::decode -as zb64 $_comp2dx($cname)]
+            close $f
             set _comp2style($cname) [$_field get $cname.style]
             if {[$_field element $cname.flow] != ""} {