Changeset 883 for trunk/graceexport.tcl

Timestamp:

Dec 4, 2009 5:13:41 PM (11 years ago)

Author:

toby

Message:

# on 2006/07/31 18:28:43, toby did:
missing tickmarks (new BLT version?) add fix from Bogdan Jurca

File:

• trunk/graceexport.tcl (modified) (2 diffs, 3 props)

trunk/graceexport.tcl

@@ -196 +196 @@
     # now get graph markers
     foreach m [$graph_name marker names] {
-        if {[$graph_name marker type $m] == "line"} {
+        if {[$graph_name marker type $m] == "line" || \
+                [$graph_name marker type $m] == "LineMarker"} {
             set coords [$graph_name marker cget $m -coords]
             if {[$graph_name marker cget $m -dashes] == {}} {
@@ -224 +225 @@
                 set coords [lrange $coords 2 end]
             }
-        } elseif {[$graph_name marker type $m] == "text"} {
+        } elseif {[$graph_name marker type $m] == "text" || \
+                      [$graph_name marker type $m] == "TextMarker"} {
             set coords [$graph_name marker cget $m -coords]
             # leave a 5% margin for markers on plot limits