Changeset 4768 for branches/1.3/gui/scripts/vtkstreamlinesviewer.tcl

Timestamp:

Nov 23, 2014, 3:29:00 AM (10 years ago)

Author:

ldelgass

Message:

merge r4767 from trunk

Location:

branches/1.3

Files:

• . (modified) (1 prop)
• gui/scripts/vtkstreamlinesviewer.tcl (modified) (2 diffs)

branches/1.3/gui/scripts/vtkstreamlinesviewer.tcl

@@ -875 +875 @@
     if { $info(-type) == "image" } {
         if 0 {
-            set f [open "last.ppm" "w"] 
-            puts $f $bytes
+            set f [open "last.ppm" "w"]
+            fconfigure $f -encoding binary
+            puts -nonewline $f $bytes
             close $f
         }
@@ -990 +991 @@
                     set f [open /tmp/vtkstreamlines.vtk "w"]
                     fconfigure $f -translation binary -encoding binary
-                    puts $f $bytes
+                    puts -nonewline $f $bytes
                     close $f
                 }