Changeset 5165 for trunk/gui

Timestamp:

Mar 23, 2015, 2:10:49 AM (10 years ago)

Author:

ldelgass

Message:

disable debug output

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/mapviewer.tcl

@@ -851 +851 @@
         foreach viewpoint [$dataobj viewpoints] {
             set _viewpoints($viewpoint) [$dataobj viewpoint $viewpoint]
-            array set vp $_viewpoints($viewpoint)
-            foreach key { label description x y z distance heading pitch srs verticalDatum } {
-                if { [info exists vp($key)] } {
-                    puts stderr "$viewpoint $key $vp($key)"
+            if 0 {
+                array set vp $_viewpoints($viewpoint)
+                foreach key { label description x y z distance heading pitch srs verticalDatum } {
+                    if { [info exists vp($key)] } {
+                        puts stderr "$viewpoint $key $vp($key)"
+                    }
                 }
             }
@@ -1041 +1043 @@
 #
 itcl::body Rappture::MapViewer::ReceiveLegend { colormap min max size } {
-puts stderr "ReceiveLegend colormap=$colormap range=$min,$max size=$size"
+    #puts stderr "ReceiveLegend colormap=$colormap range=$min,$max size=$size"
     if { [IsConnected] } {
         set bytes [ReceiveBytes $size]
@@ -1054 +1056 @@
         }
         $_image(legend-$colormap) configure -data $bytes
-puts stderr "read $size bytes for [image width $_image(legend-$colormap)]x[image height $_image(legend-$colormap)] legend>"
+        #puts stderr "read $size bytes for [image width $_image(legend-$colormap)]x[image height $_image(legend-$colormap)] legend>"
         if { [catch {DrawLegend $colormap $min $max} errs] != 0 } {
             global errorInfo