Changeset 3802 for branches/1.3/gui/scripts/xyresult.tcl

Timestamp:

Jul 15, 2013, 9:34:45 AM (11 years ago)

Author:

gah

Message:

add -simulation to plotadd calls

File:

• branches/1.3/gui/scripts/xyresult.tcl (modified) (3 diffs)

branches/1.3/gui/scripts/xyresult.tcl

@@ -1586 +1586 @@
         set linewidth $attrs(-width)
     }
-    if { ![info exists attrs(-raise)] } {
-        set raise 0
-    } else {
-        set raise $attrs(-raise)
-    }
+    set _dataobj2raise($dataobj) [info exists attrs(-raise)]
     if { ![info exists attrs(-simulation)] } {
         set sim 0
@@ -1596 +1592 @@
         set sim $attrs(-simulation)
     }
+    set _dataobj2sim($dataobj) $sim
 
     foreach {mapx mapy} [GetAxes $dataobj] break
@@ -1670 +1667 @@
             }
         }
-        set _dataobj2raise($dataobj) $raise
-        set _dataobj2sim($dataobj) $sim
-    }
-}
+    }
+}