Path: ...!Xl.tags.giganews.com!local-1.nntp.ord.giganews.com!nntp.brightview.co.uk!news.brightview.co.uk.POSTED!not-for-mail
NNTP-Posting-Date: Fri, 21 Jun 2024 11:49:53 +0000
From: Mark Summerfield <mark@qtrac.eu>
Subject: Re: how to create a dialog that is hidden/shown rather than
 created/destroyed
Newsgroups: comp.lang.tcl
References: <RJ-dnawmWOec0-j7nZ2dnZfqnPWdnZ2d@brightview.co.uk>
MIME-Version: 1.0
User-Agent: Pan/0.154 (Izium; 517acf4)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Message-ID: <9JCcna079Nd_9ej7nZ2dnZfqn_WdnZ2d@brightview.co.uk>
Date: Fri, 21 Jun 2024 11:49:54 +0000
Lines: 14
X-Usenet-Provider: http://www.giganews.com
X-Trace: sv3-SSERYPVTxz9BHsX8pi/rvzSnCcZiDTYsnYgZSYhZcDoz//JZs6Y7WOe09BsYXUkth+WLkuyICuDNIgw!AhZCDyciINiUs72ZXV+zEDMXveNPMy6ESQwmgd6+fz341PbLJypTptwcJ81WhTJYbTS2CW2DdAz1!dWmGBYO32kaUavCUIy8nevDsfA==
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
Bytes: 1220

I figured it out.

I replaced this:

catch { tkwait visibility $form }

with

catch {
    tkwait visibility $form
    grab release $form
}

and now it works.