Changeset 4324 for trunk

Timestamp:

Apr 7, 2014, 1:02:03 AM (11 years ago)

Author:

ldelgass

Message:

Client button 1 double click binding for viewpoint change

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -343 +343 @@
         bind $itk_component(view) <ButtonRelease-1> \
             [itcl::code $this Pan release %x %y]
+        bind $itk_component(view) <Double-1> \
+            [itcl::code $this camera go %x %y]
 
         # Bindings for rotation via mouse
@@ -1536 +1538 @@
             }
 puts stderr "view: $_view(x), $_view(y), $_view(z), $_view(heading), $_view(pitch), $_view(distance), $_view(srs), $_view(verticalDatum)"
+        }
+        "go" {
+            SendCmd "camera go $args"
         }
         "reset" {