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