Commit 7f11fa36 authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

fixed -outline error due to legacy tk call that is replaced with -stroke in the tkpath

parent 1194e8db
...@@ -8403,7 +8403,7 @@ proc pdtk_canvas_enteritem_gettags {tkcanvas x y item} { ...@@ -8403,7 +8403,7 @@ proc pdtk_canvas_enteritem_gettags {tkcanvas x y item} {
#puts stderr "gettags $tags $xletno [$tkcanvas canvasx $x] [$tkcanvas canvasy $y]" #puts stderr "gettags $tags $xletno [$tkcanvas canvasx $x] [$tkcanvas canvasy $y]"
if { $xletno == -1 && $object ne "text" } { return } if { $xletno == -1 && $object ne "text" } { return }
if { $object ne "text" } { if { $object ne "text" } {
set nlet_color [$tkcanvas itemcget [lindex $tags 0] -outline] set nlet_color [$tkcanvas itemcget [lindex $tags 0] -stroke]
} else { } else {
set nlet_color $select_color set nlet_color $select_color
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment