Changeset 4701 for branches/1.3/gui/scripts/field.tcl
- Timestamp:
- Nov 11, 2014, 7:13:52 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/field.tcl
r4677 r4701 1702 1702 } 1703 1703 1704 foreach key [array names data] { 1705 if {$key == "vtkdata"} { 1706 if {1} { 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)\"" 1704 if 0 { 1705 foreach key [array names data] { 1706 if {$key == "vtkdata"} { 1707 if 0 { 1708 set f [open /tmp/$cname.vtk "w"] 1709 fconfigure $f -translation binary -encoding binary 1710 puts -nonewline $f $data(vtkdata) 1711 close $f 1712 } 1713 } else { 1714 puts stderr "$key = \"$data($key)\"" 1715 } 1714 1716 } 1715 1717 }
Note: See TracChangeset
for help on using the changeset viewer.