Changeset 4277 for trunk/gui/apps/mapviewer-test

Timestamp:

Mar 26, 2014, 1:52:16 PM (10 years ago)

Author:

ldelgass

Message:

Add menu options to reset map

File:

• trunk/gui/apps/mapviewer-test (modified) (2 diffs)

trunk/gui/apps/mapviewer-test

@@ -149 +149 @@
 }
 
+proc resetMapGeocentric {} {
+    global widgets
+    set cmd "map reset geocentric"
+    namespace eval Rappture::MapViewer [list $widgets(mapviewer) SendCmd $cmd]
+}
+
+proc resetMapGlobalGeodetic {} {
+    global widgets
+    set cmd "map reset projected global-geodetic"
+    namespace eval Rappture::MapViewer [list $widgets(mapviewer) SendCmd $cmd]
+}
+
+proc resetMapGlobalMercator {} {
+    global widgets
+    set cmd "map reset projected global-mercator"
+    namespace eval Rappture::MapViewer [list $widgets(mapviewer) SendCmd $cmd]
+}
+
 # ----------------------------------------------------------------------
 # USAGE: show_comm <channel> <data>
@@ -268 +286 @@
 .mbar.file add command -label "Send Earth File..." -underline 0 -command send_file
 .mbar.file add command -label "Load script..." -underline 0 -command load_script
+.mbar.file add command -label "Reset Map to Geocentric" -underline 0 -command resetMapGeocentric
+.mbar.file add command -label "Reset Map to Geodetic Projection" -underline 0 -command resetMapGlobalGeodetic
+.mbar.file add command -label "Reset Map to Mercator Projection" -underline 0 -command resetMapGlobalMercator
 .mbar.file add command -label "Reset" -underline 0 -command reset
 .mbar.file add separator