From 7d80d3c3f6bbe14ca0938e8602e5fe153886c178 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@monsoon-hp.(none)>
Date: Fri, 2 Mar 2012 11:15:29 -0500
Subject: [PATCH] a couple more minor bug fixes to the tooltip engine
---
src/pd.tk | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/pd.tk b/src/pd.tk
index c8762631c..305ed3f94 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -7221,8 +7221,8 @@ proc pdtk_tip {w fromc show args} {
-wraplength [winfo width $w] -bg $nlet_color -fg $fg -bd 1 \
-padx 2 -pady 2 -relief flat
}
- set xreal [expr [$w canvasx 0] * -1 + [winfo pointerx $w]-[winfo rootx $w]]
- set yreal [expr [$w canvasy 0] * -1 + [winfo pointery $w]-[winfo rooty $w]]
+ set xreal [expr [$w canvasx 0] + [winfo pointerx $w]-[winfo rootx $w]]
+ set yreal [expr [$w canvasy 0] + [winfo pointery $w]-[winfo rooty $w]]
# first figure out default behavior for above/below
if { [string match "\{Inlet*" $args] } {
--
GitLab