Changeset 4996 for trunk

Timestamp:

Feb 11, 2015 3:14:22 AM (6 years ago)

Author:

ldelgass

Message:

add some error checks

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -310 +310 @@
     Rappture::Tooltip::for $itk_component(zoomout) "Zoom out"
 
-    BuildLayerTab
-    BuildMapTab
-    BuildTerrainTab
-    BuildCameraTab
+    if { [catch {
+        BuildLayerTab
+        BuildMapTab
+        BuildTerrainTab
+        BuildCameraTab
+    } errs] != 0 } {
+        puts stderr errs=$errs
+    }
 
     # Legend
@@ -788 +792 @@
             array set vp $_viewpoints($viewpoint)
             foreach key { x y z distance heading pitch srs verticalDatum } {
-                puts stderr "$viewpoint $key $vp($key)"
+                if { [info exists vp($key)] } {
+                    puts stderr "$viewpoint $key $vp($key)"
+                }
             }
         }