From ada6ea2c125d7fd8d53121c446d1becced2856d9 Mon Sep 17 00:00:00 2001
From: Ivica Ico Bukvic <ico@vt.edu>
Date: Fri, 30 Aug 2013 03:06:29 -0400
Subject: [PATCH] clean-up and improvements
---
pd/src/pd.tk | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/pd/src/pd.tk b/pd/src/pd.tk
index 516bac256..fc1836f22 100644
--- a/pd/src/pd.tk
+++ b/pd/src/pd.tk
@@ -3859,7 +3859,7 @@ proc pdtk_tag_all_widgets_with_arrange {canvas object state} {
#puts stderr [$canvas gettags $item]
foreach tag [$canvas gettags $item] {
if { [string first $object $tag] > -1 } {
- puts stderr "...tag all match $tag"
+ #puts stderr "...tag all match $tag"
if {$state} {
$canvas addtag arrange withtag $tag
} else {
@@ -3889,10 +3889,10 @@ proc pdtk_find_lowest_widget_withtag_and_arrange {canvas name target objtag} {
#puts stderr "final_lowest=$tag"
if { $arrange_lowest != 0 } {
if { $objtag == 0 } {
- puts stderr all_widgets
+ #puts stderr all_widgets
pdtk_tag_all_widgets_with_arrange $canvas $target 1
} else {
- puts stderr one_object
+ #puts stderr one_object
$canvas addtag arrange withtag $objtag
}
$canvas raise arrange
--
GitLab