From 5841481baf5ff262c2762eaa0c3beb46d6bdf1de Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Mon, 5 Jun 1995 04:54:39 +0000
Subject: [PATCH] Use .feedback grab to handle grab.
---
windows_list.tcl | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/windows_list.tcl b/windows_list.tcl
index bea9a4a..614b397 100644
--- a/windows_list.tcl
+++ b/windows_list.tcl
@@ -67,8 +67,7 @@ widget windows_list {
if $slot(use_feedback) {
feedback .feedback -title "Getting Windows" \
-steps [llength $windows]
- grab set .feedback
- update idletasks
+ .feedback grab
}
foreach w $windows {
$self get_windows $target windows $w
@@ -78,7 +77,6 @@ widget windows_list {
}
}
if $slot(use_feedback) {
- grab release .feedback
destroy .feedback
}
foreach w $windows {
--
2.23.0