Changeset 1750 for trunk/gui

Timestamp:

Jun 7, 2010 4:16:07 PM (14 years ago)

Author:

gah

Message:

propagate type to settings for sequences (no scatter plot sequences)

File:

• trunk/gui/scripts/sequenceresult.tcl (modified) (1 diff)

trunk/gui/scripts/sequenceresult.tcl

@@ -568 +568 @@
     foreach dataobj [$_topmost value $_pos] {
         set settings "-color autoreset -width 2"
-        if {[catch {$dataobj hints style} style] == 0} {
+        if { [catch {$dataobj hints style} style] == 0} {
             eval lappend settings $style
         }
+        if { [catch {$dataobj hints type} type] == 0} {
+            if {"" != $type} {
+                lappend settings -type $type
+            }
+        }
         $viewer add $dataobj $settings
     }