- Timestamp:
- Nov 11, 2014 7:54:05 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/field.tcl
r4667 r4702 1701 1701 } 1702 1702 1703 foreach key [array names data] { 1704 if {$key == "vtkdata"} { 1705 if {1} { 1706 set f [open /tmp/$cname.vtk "w"] 1707 fconfigure $f -translation binary -encoding binary 1708 puts -nonewline $f $data(vtkdata) 1709 close $f 1710 } 1711 } else { 1712 puts stderr "$key = \"$data($key)\"" 1703 if 0 { 1704 foreach key [array names data] { 1705 if {$key == "vtkdata"} { 1706 if 0 { 1707 set f [open /tmp/$cname.vtk "w"] 1708 fconfigure $f -translation binary -encoding binary 1709 puts -nonewline $f $data(vtkdata) 1710 close $f 1711 } 1712 } else { 1713 puts stderr "$key = \"$data($key)\"" 1714 } 1713 1715 } 1714 1716 }
Note: See TracChangeset
for help on using the changeset viewer.