Changeset 5165


Ignore:
Timestamp:
Mar 23, 2015 2:10:49 AM (6 years ago)
Author:
ldelgass
Message:

disable debug output

File:
1 edited

Legend:

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

    r5164 r5165  
    851851        foreach viewpoint [$dataobj viewpoints] {
    852852            set _viewpoints($viewpoint) [$dataobj viewpoint $viewpoint]
    853             array set vp $_viewpoints($viewpoint)
    854             foreach key { label description x y z distance heading pitch srs verticalDatum } {
    855                 if { [info exists vp($key)] } {
    856                     puts stderr "$viewpoint $key $vp($key)"
     853            if 0 {
     854                array set vp $_viewpoints($viewpoint)
     855                foreach key { label description x y z distance heading pitch srs verticalDatum } {
     856                    if { [info exists vp($key)] } {
     857                        puts stderr "$viewpoint $key $vp($key)"
     858                    }
    857859                }
    858860            }
     
    10411043#
    10421044itcl::body Rappture::MapViewer::ReceiveLegend { colormap min max size } {
    1043 puts stderr "ReceiveLegend colormap=$colormap range=$min,$max size=$size"
     1045    #puts stderr "ReceiveLegend colormap=$colormap range=$min,$max size=$size"
    10441046    if { [IsConnected] } {
    10451047        set bytes [ReceiveBytes $size]
     
    10541056        }
    10551057        $_image(legend-$colormap) configure -data $bytes
    1056 puts stderr "read $size bytes for [image width $_image(legend-$colormap)]x[image height $_image(legend-$colormap)] legend>"
     1058        #puts stderr "read $size bytes for [image width $_image(legend-$colormap)]x[image height $_image(legend-$colormap)] legend>"
    10571059        if { [catch {DrawLegend $colormap $min $max} errs] != 0 } {
    10581060            global errorInfo
Note: See TracChangeset for help on using the changeset viewer.