Changeset 4577 for trunk/gui/scripts/mapviewer.tcl

Timestamp:

Jul 27, 2014, 1:43:37 PM (10 years ago)

Author:

ldelgass

Message:

Fix test for out of range map coords response

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -882 +882 @@
         "coords" {
             set len [llength $args]
-            if {$len < 4} {
-                puts stderr "Coords out of range"
+            if {$len == 4} {
+                puts stderr "Map coords out of range"
             } elseif {$len < 6} {
                 foreach { x y z } [lrange $args 1 end] break
-                puts stderr "Coords: $x $y $z"
+                puts stderr "Map coords: $x $y $z"
             } elseif {$len < 7} {
                 foreach { x y z screenX screenY } [lrange $args 1 end] break
-                puts stderr "Coords($screenX,$screenY): $x $y $z"
+                puts stderr "Map coords($screenX,$screenY): $x $y $z"
             } else {
                 foreach { x y z screenX screenY srs vert } [lrange $args 1 end] break
-                puts stderr "Coords($screenX,$screenY): $x $y $z {$srs} {$vert}"
+                puts stderr "Map coords($screenX,$screenY): $x $y $z {$srs} {$vert}"
             }
         }
@@ -918 +918 @@
             set len [llength $args]
             if {$len == 5} {
-                puts stderr "Screen Coords out of range"
+                puts stderr "Screen coords out of range"
             } else {
                 foreach { x y z worldX worldY worldZ } [lrange $args 1 end] break
-                puts stderr "Coords($worldX,$worldY,$worldZ): $x $y $z"
+                puts stderr "Screen coords($worldX,$worldY,$worldZ): $x $y $z"
             }
         }