Changeset 5212 for branches/1.4/gui/scripts

Timestamp:

Apr 13, 2015, 7:56:06 PM (10 years ago)

Author:

ldelgass

Message:

merge r5210:5211 from trunk

Location:

branches/1.4

Files:

• . (modified) (1 prop)
• gui/scripts/flowvisviewer.tcl (modified) (1 diff)
• gui/scripts/nanovisviewer.tcl (modified) (1 diff)

branches/1.4/gui/scripts/flowvisviewer.tcl

@@ -622 +622 @@
     set op [lindex $args 0]
     switch -- $op {
-      -objects {
-        # put the dataobj list in order according to -raise options
-        set dlist $_dlist
-        foreach obj $dlist {
-            if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
-                set i [lsearch -exact $dlist $obj]
-                if {$i >= 0} {
-                    set dlist [lreplace $dlist $i $i]
-                    lappend dlist $obj
+        -objects {
+            # put the dataobj list in order according to -raise options
+            set dlist $_dlist
+            foreach obj $dlist {
+                if {[info exists _obj2ovride($obj-raise)] &&
+                    $_obj2ovride($obj-raise)} {
+                    set i [lsearch -exact $dlist $obj]
+                    if {$i >= 0} {
+                        set dlist [lreplace $dlist $i $i]
+                        lappend dlist $obj
+                    }
                 }
             }
-        }
-        return $dlist
-      }
-      -image {
-        if {[llength $args] != 2} {
-            error "wrong # args: should be \"get -image 3dview|legend\""
-        }
-        switch -- [lindex $args end] {
-            3dview {
-                return $_image(plot)
-            }
-            legend {
-                return $_image(legend)
-            }
-            default {
-                error "bad image name \"[lindex $args end]\": should be 3dview or legend"
-            }
-        }
-      }
-      default {
-        error "bad option \"$op\": should be -objects or -image"
-      }
+            return $dlist
+        }
+        -image {
+            if {[llength $args] != 2} {
+                error "wrong # args: should be \"get -image 3dview|legend\""
+            }
+            switch -- [lindex $args end] {
+                3dview {
+                    return $_image(plot)
+                }
+                legend {
+                    return $_image(legend)
+                }
+                default {
+                    error "bad image name \"[lindex $args end]\": should be 3dview or legend"
+                }
+            }
+        }
+        default {
+            error "bad option \"$op\": should be -objects or -image"
+        }
     }
 }

branches/1.4/gui/scripts/nanovisviewer.tcl

@@ -482 +482 @@
     set op [lindex $args 0]
     switch -- $op {
-      -objects {
-        # put the dataobj list in order according to -raise options
-        set dlist $_dlist
-        foreach obj $dlist {
-            if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} {
-                set i [lsearch -exact $dlist $obj]
-                if {$i >= 0} {
-                    set dlist [lreplace $dlist $i $i]
-                    lappend dlist $obj
+        -objects {
+            # put the dataobj list in order according to -raise options
+            set dlist $_dlist
+            foreach obj $dlist {
+                if {[info exists _obj2ovride($obj-raise)] &&
+                    $_obj2ovride($obj-raise)} {
+                    set i [lsearch -exact $dlist $obj]
+                    if {$i >= 0} {
+                        set dlist [lreplace $dlist $i $i]
+                        lappend dlist $obj
+                    }
                 }
             }
-        }
-        return $dlist
-      }
-      -image {
-        if {[llength $args] != 2} {
-            error "wrong # args: should be \"get -image 3dview|legend\""
-        }
-        switch -- [lindex $args end] {
-            3dview {
-                return $_image(plot)
-            }
-            legend {
-                return $_image(legend)
-            }
-            default {
-                error "bad image name \"[lindex $args end]\": should be 3dview or legend"
-            }
-        }
-      }
-      default {
-        error "bad option \"$op\": should be -objects or -image"
-      }
+            return $dlist
+        }
+        -image {
+            if {[llength $args] != 2} {
+                error "wrong # args: should be \"get -image 3dview|legend\""
+            }
+            switch -- [lindex $args end] {
+                3dview {
+                    return $_image(plot)
+                }
+                legend {
+                    return $_image(legend)
+                }
+                default {
+                    error "bad image name \"[lindex $args end]\": should be 3dview or legend"
+                }
+            }
+        }
+        default {
+            error "bad option \"$op\": should be -objects or -image"
+        }
     }
 }