Changeset 4996 for trunk


Ignore:
Timestamp:
Feb 11, 2015 3:14:22 AM (6 years ago)
Author:
ldelgass
Message:

add some error checks

File:
1 edited

Legend:

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

    r4995 r4996  
    310310    Rappture::Tooltip::for $itk_component(zoomout) "Zoom out"
    311311
    312     BuildLayerTab
    313     BuildMapTab
    314     BuildTerrainTab
    315     BuildCameraTab
     312    if { [catch {
     313        BuildLayerTab
     314        BuildMapTab
     315        BuildTerrainTab
     316        BuildCameraTab
     317    } errs] != 0 } {
     318        puts stderr errs=$errs
     319    }
    316320
    317321    # Legend
     
    788792            array set vp $_viewpoints($viewpoint)
    789793            foreach key { x y z distance heading pitch srs verticalDatum } {
    790                 puts stderr "$viewpoint $key $vp($key)"
     794                if { [info exists vp($key)] } {
     795                    puts stderr "$viewpoint $key $vp($key)"
     796                }
    791797            }
    792798        }
Note: See TracChangeset for help on using the changeset viewer.