Commit 5a786a30 authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

cosmetic fix

parent 877b28c8
......@@ -3662,13 +3662,12 @@ proc pdtk_canvas_mouseup {name x y b} {
#}
proc pdtk_select_all_gop_widgets {name gop state} {
#puts stderr "======================$name $gop $state"
#puts stderr "pdtk_select_all_gop_widgets $name $gop $state"
foreach item [$name.c find all] {
#puts stderr [$name.c gettags $item]
foreach tag [$name.c gettags $item] {
if { [string first $gop $tag] > -1 } {
#puts stderr ...match
#$name.c delete $item
if {$state} {
$name.c addtag selected withtag $tag
} else {
......
Supports Markdown
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