Changeset 883


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/graceexport.tcl

    • Property rcs:date changed from 2002/01/22 21:45:59 to 2006/07/31 18:28:43
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +4 -2
    r531 r883  
    196196    # now get graph markers
    197197    foreach m [$graph_name marker names] {
    198         if {[$graph_name marker type $m] == "line"} {
     198        if {[$graph_name marker type $m] == "line" || \
     199                [$graph_name marker type $m] == "LineMarker"} {
    199200            set coords [$graph_name marker cget $m -coords]
    200201            if {[$graph_name marker cget $m -dashes] == {}} {
     
    224225                set coords [lrange $coords 2 end]
    225226            }
    226         } elseif {[$graph_name marker type $m] == "text"} {
     227        } elseif {[$graph_name marker type $m] == "text" || \
     228                      [$graph_name marker type $m] == "TextMarker"} {
    227229            set coords [$graph_name marker cget $m -coords]
    228230            # leave a 5% margin for markers on plot limits
Note: See TracChangeset for help on using the changeset viewer.