From: sls <sls>
Date: Mon, 5 Jun 1995 04:54:39 +0000 (+0000)
Subject: Use .feedback grab to handle grab.
X-Git-Tag: r5_1_1~16
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=5841481baf5ff262c2762eaa0c3beb46d6bdf1de;p=tkinspect

Use .feedback grab to handle grab.
---

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 {