Changeset 4701 for branches/1.3


Ignore:
Timestamp:
Nov 11, 2014, 10:13:52 PM (5 years ago)
Author:
ldelgass
Message:

disable dicom debugging output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3/gui/scripts/field.tcl

    r4677 r4701  
    17021702    }
    17031703
    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            }
    17141716        }
    17151717    }
Note: See TracChangeset for help on using the changeset viewer.