Changeset 4701 for branches/1.3/gui

Timestamp:

Nov 11, 2014 7:13:52 PM (9 years ago)

Author:

ldelgass

Message:

disable dicom debugging output

File:

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

branches/1.3/gui/scripts/field.tcl

@@ -1702 +1702 @@
     }
 
-    foreach key [array names data] {
-        if {$key == "vtkdata"} {
-            if {1} {
-                set f [open /tmp/$cname.vtk "w"]
-                fconfigure $f -translation binary -encoding binary
-                puts -nonewline $f $data(vtkdata)
-                close $f
-            }
-        } else {
-            puts stderr "$key = \"$data($key)\""
+    if 0 {
+        foreach key [array names data] {
+            if {$key == "vtkdata"} {
+                if 0 {
+                    set f [open /tmp/$cname.vtk "w"]
+                    fconfigure $f -translation binary -encoding binary
+                    puts -nonewline $f $data(vtkdata)
+                    close $f
+                }
+            } else {
+                puts stderr "$key = \"$data($key)\""
+            }
         }
     }