From 33d249ed6aecfb7798ea7738381602c599837c89 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Sat, 23 Aug 2014 19:47:04 -0400
Subject: [PATCH] *troubleshooting of pd.tk and tooltips (seem to work prior to
latest merge, need to test further)
---
pd/src/pd.tk | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index b4a8337e4..94f826e8f 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -8371,9 +8371,8 @@ proc pdtk_tip_mouseover {w} {
}
proc pdtk_gettip { w item xletno name helpname dir } {
- #puts stderr "pdtk_gettip $w"
+ # puts stderr "pdtk_gettip $w $item $xletno $name $helpname $dir"
variable k12_mode
- #puts stderr "pdtk_gettip $w $item $xletno $name $helpname $dir"
if {$name eq "preset_hub" && $k12_mode == 1} {
return
}
@@ -8404,6 +8403,7 @@ proc pdtk_gettip { w item xletno name helpname dir } {
set filefound 1
}
if {$filefound} {
+ # puts stderr filefound
set filecontents [read $fp]
close $fp
# leave in pd's linebreaks-- serendipitously it
@@ -8427,6 +8427,7 @@ proc pdtk_gettip { w item xletno name helpname dir } {
}
}
# make Pd's comma atoms look pretty
+ # puts stderr $msg
regsub -all {\\,} $msg {,} msg
regsub -all { ,} $msg {,} msg
regsub -all {\n} $msg { } msg
--
GitLab