From cd67856253a28cb14d702072637ed106db7ee1c0 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Tue, 2 Jun 2009 23:26:48 +0000
Subject: better "find last error"

svn path=/trunk/; revision=11632
---
 desiredata/src/desire.tk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'desiredata/src')

diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 2dda43a7..902292d8 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -6891,7 +6891,7 @@ def Tooltip draw {} {
 		o {set ny [expr {$y+24}]}
 		i {set ny [expr {$y-24}]}
 	}
-	$self item TEXT text [list [expr $x+12] $ny] -fill $fg -text $@text -anchor w
+	$self item TEXT text [list [expr $x+12] $ny] -fill $fg -text $@text -anchor sw -width 300
 	mset {x1 y1 x2 y2} [l+ [$c bbox ${self}TEXT] [list -4 -4 +4 +4]]
 	switch -- $@type {
 	  o {set coords [list $x1 $y1 [expr $x1+8] $y1 $x $y [expr $x1+16] $y1 $x2 $y1 $x2 $y2 $x1 $y2 $x1 $y1]}
-- 
cgit v1.2.1