diff options
-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 } } |