Use .feedback grab to handle grab.

diff --git a/windows_list.tcl b/windows_list.tcl
index bea9a4a89b6a4619232e8c7ae213c99e9a772d8d..614b397b73abcb0e932fb643652473eb4d3fcaa2 100644 (file)
--- 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 {