Changeset 4702 for trunk


Ignore:
Timestamp:
Nov 11, 2014 7:54:05 PM (5 years ago)
Author:
ldelgass
Message:

disable dicom debug output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/field.tcl

    r4667 r4702  
    17011701    }
    17021702
    1703     foreach key [array names data] {
    1704         if {$key == "vtkdata"} {
    1705             if {1} {
    1706                 set f [open /tmp/$cname.vtk "w"]
    1707                 fconfigure $f -translation binary -encoding binary
    1708                 puts -nonewline $f $data(vtkdata)
    1709                 close $f
    1710             }
    1711         } else {
    1712             puts stderr "$key = \"$data($key)\""
     1703    if 0 {
     1704        foreach key [array names data] {
     1705            if {$key == "vtkdata"} {
     1706                if 0 {
     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)\""
     1714            }
    17131715        }
    17141716    }
Note: See TracChangeset for help on using the changeset viewer.