From 7f11fa36476428a03d4d053e684b39960a000986 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Fri, 30 Aug 2013 20:42:21 -0400
Subject: [PATCH] fixed -outline error due to legacy tk call that is replaced
with -stroke in the tkpath
---
pd/src/pd.tk | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 281893731..c5c3ccdc4 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -8403,7 +8403,7 @@ proc pdtk_canvas_enteritem_gettags {tkcanvas x y item} {
#puts stderr "gettags $tags $xletno [$tkcanvas canvasx $x] [$tkcanvas canvasy $y]"
if { $xletno == -1 && $object ne "text" } { return }
if { $object ne "text" } {
- set nlet_color [$tkcanvas itemcget [lindex $tags 0] -outline]
+ set nlet_color [$tkcanvas itemcget [lindex $tags 0] -stroke]
} else {
set nlet_color $select_color
}
--
GitLab