Changeset 4767 for trunk/gui/scripts/vtkglyphviewer.tcl

Timestamp:

Nov 23, 2014 3:24:52 AM (9 years ago)

Author:

ldelgass

Message:

More syncing of code between clients

File:

• trunk/gui/scripts/vtkglyphviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/vtkglyphviewer.tcl

@@ -860 +860 @@
     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
         }
@@ -978 +979 @@
                 if 0 { 
                     set f [open "/tmp/glyph.vtk" "w"]
-                    puts $f $bytes
+                    fconfigure $f -translation binary -encoding binary
+                    puts -nonewline $f $bytes
                     close $f
                 }