Changeset 6124 for trunk/gui/scripts

Timestamp:

Mar 15, 2016, 2:21:58 AM (9 years ago)

Author:

ldelgass

Message:

Add option to get legend image to MapViewer::get

File:

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

trunk/gui/scripts/mapviewer.tcl

@@ -57 +57 @@
     public method get {args}
     public method isconnected {}
-    public method parameters {title args} {
-        # do nothing
-    }
+    public method parameters {title args} { # do nothing }
     public method scale {args}
     public method select {option {args ""}}
@@ -730 +728 @@
 # USAGE: get ?-visible?
 # USAGE: get ?-image view?
+# USAGE: get ?-image legend <dataobj> <layer>?
 #
 # Clients use this to query the list of objects being plotted, in
@@ -800 +799 @@
         }
         -image {
-            if {[llength $args] != 2} {
-                error "wrong # args: should be \"get -image view\""
-            }
-            switch -- [lindex $args end] {
+            if {[llength $args] < 2} {
+                error "wrong # args: should be \"get -image view|legend\""
+            }
+            switch -- [lindex $args 1] {
+                legend {
+                    if {[llength $args] < 4} {
+                        error "wrong # args: should be \"get -image legend <dataobj> <layer>\""
+                    }
+                    set dataobj [lindex $args 2]
+                    set layer [lindex $args 3]
+                    set colormap $layer
+                    if {![$dataobj layer $layer shared]} {
+                        set colormap $dataobj-$layer
+                        set colormap "[regsub -all {::} ${colormap} {}]"
+                    }
+                    return $_image(legend-$colormap)
+                }
                 view {
                     return $_image(plot)
                 }
                 default {
-                    error "bad image name \"[lindex $args end]\": should be view"
+                    error "bad image name \"[lindex $args 1]\": should be view|legend"
                 }
             }
         }
         default {
-            error "bad option \"$op\": should be -objects or -image"
+            error "bad option \"$op\": should be -objects, -hidden, -visible or -image"
         }
     }