Changeset 4362 for trunk/gui/scripts

Timestamp:

May 21, 2014, 5:00:33 PM (10 years ago)

Author:

ldelgass

Message:

Add toggle for coords readout

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -201 +201 @@
     array set _settings [subst {
         camera-throw           0
+        coords-precision       5
+        coords-units           "latlong_decimal_degrees"
+        coords-visible         1
         grid                   0
         grid-type              "geodetic"
@@ -370 +373 @@
         bind $itk_component(view) <Double-3> \
             [itcl::code $this camera go %x %y 2.5]
+        bind $itk_component(view) <Double-3> \
+            +[itcl::code $this SendCmd "map setpos %x %y"]
 
         # Bindings for panning via keyboard
@@ -965 +970 @@
                     terrain-vertscale terrain-wireframe
             }
+            FixSettings coords-visible
         } else {
             error "No map settings on reset"
@@ -1326 +1332 @@
     }
     switch -- $what {
+        "coords-visible" - "coords-precision" - "coords-units" {
+            set bool $_settings(coords-visible)
+            set units $_settings(coords-units)
+            set precision $_settings(coords-precision)
+            SendCmd "map posdisp $bool $units $precision"
+        }
         "grid" - "grid-type" {
             set bool $_settings(grid)
@@ -1332 +1344 @@
         }
         "camera-throw" {
-            set bool $_settings(camera-throw)
+            set bool $_settings($what)
             SendCmd "camera throw $bool"
         }
         "terrain-edges" {
-            set bool $_settings(terrain-edges)
+            set bool $_settings($what)
             SendCmd "map terrain edges $bool"
         }
         "terrain-lighting" {
-            set bool $_settings(terrain-lighting)
+            set bool $_settings($what)
             SendCmd "map terrain lighting $bool"
         }
@@ -1348 +1360 @@
         }
         "terrain-vertscale" {
-            set val $_settings(terrain-vertscale)
+            set val $_settings($what)
             SendCmd "map terrain vertscale $val"
         }
         "terrain-wireframe" {
-            set bool $_settings(terrain-wireframe)
+            set bool $_settings($what)
             SendCmd "map terrain wireframe $bool"
         }
@@ -1395 +1407 @@
         -icon [Rappture::icon surface]]
     $inner configure -borderwidth 4
+
+    checkbutton $inner.posdisp \
+        -text "Show Coordinate Readout" \
+        -variable [itcl::scope _settings(coords-visible)] \
+        -command [itcl::code $this AdjustSetting coords-visible] \
+        -font "Arial 9" -anchor w 
 
     checkbutton $inner.grid \
@@ -1440 +1458 @@
 
     blt::table $inner \
-        0,0 $inner.grid      -cspan 2  -anchor w -pady 2 \
-        1,0 $inner.wireframe -cspan 2  -anchor w -pady 2 \
-        2,0 $inner.lighting  -cspan 2  -anchor w -pady 2 \
-        3,0 $inner.edges     -cspan 2  -anchor w -pady 2 \
-        4,0 $inner.vscale_l  -anchor w -pady 2 \
-        4,1 $inner.vscale    -fill x   -pady 2 \
-        5,0 $inner.palette_l -anchor w -pady 2 \
-        5,1 $inner.palette   -fill x   -pady 2  
+        0,0 $inner.posdisp   -cspan 2  -anchor w -pady 2 \
+        1,0 $inner.grid      -cspan 2  -anchor w -pady 2 \
+        2,0 $inner.wireframe -cspan 2  -anchor w -pady 2 \
+        3,0 $inner.lighting  -cspan 2  -anchor w -pady 2 \
+        4,0 $inner.edges     -cspan 2  -anchor w -pady 2 \
+        5,0 $inner.vscale_l  -anchor w -pady 2 \
+        5,1 $inner.vscale    -fill x   -pady 2 \
+        6,0 $inner.palette_l -anchor w -pady 2 \
+        6,1 $inner.palette   -fill x   -pady 2  
 
     blt::table configure $inner r* c* -resize none
-    blt::table configure $inner r7 c1 -resize expand
+    blt::table configure $inner r8 c1 -resize expand
 }