diff options
author | joye <joye> | 2014-03-21 17:35:40 (GMT) |
---|---|---|
committer | joye <joye> | 2014-03-21 17:35:40 (GMT) |
commit | 6411246148acdb0d22c02421d2f19d730b719bda (patch) | |
tree | 3e4871b5eeb78a36a332d94008b00744cd263b64 /library/graph.tcl | |
parent | 84a50e5d3d2499b4676442a0e09f66ebeee92824 (diff) | |
download | blt-6411246148acdb0d22c02421d2f19d730b719bda.zip blt-6411246148acdb0d22c02421d2f19d730b719bda.tar.gz blt-6411246148acdb0d22c02421d2f19d730b719bda.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'library/graph.tcl')
-rw-r--r-- | library/graph.tcl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/library/graph.tcl b/library/graph.tcl index 6253570..205aa85 100644 --- a/library/graph.tcl +++ b/library/graph.tcl @@ -419,20 +419,25 @@ proc blt::ZoomStack::TitleNext { g } { if {![$g marker exists $marker]} { $g marker create text $marker -bindtags "" -anchor nw } - $g marker configure $marker -text "Zoom #$level" \ - -coords $coords + $g marker configure $marker -text "Zoom #$level" -coords $coords } proc blt::ZoomStack::TitleLast { g } { variable _private - set marker "zoomTitle" set level [llength $_private($g,stack)] + if { [$g cget -invertxy] } { + set coords "Inf -Inf" + } else { + set coords "-Inf Inf" + } + + set marker "zoomTitle" if { $level > 0 } { if {![$g marker exists $marker]} { $g marker create text "zoomTitle" -anchor nw } - $g marker configure $marker -text "Zoom #$level" + $g marker configure $marker -text "Zoom #$level" -coords $coords } } |