From 6411246148acdb0d22c02421d2f19d730b719bda Mon Sep 17 00:00:00 2001
From: joye <joye>
Date: Fri, 21 Mar 2014 17:35:40 +0000
Subject: *** empty log message ***

---
 library/graph.tcl | 13 +++++++++----
 1 file 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
     }
 }
 
-- 
cgit v0.12