Path: ...!local-2.nntp.ord.giganews.com!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: Thu, 27 Jun 2024 06:51:18 +0000
From: Mark Summerfield <mark@qtrac.eu>
Subject: Re: I am failing to get a hide/show dialog to show more than once
Newsgroups: comp.lang.tcl
References: <eYecndBfv-AJe-b7nZ2dnZfqnPUAAAAA@brightview.co.uk>
	<ygazfr8t33i.fsf@akutech.de>
MIME-Version: 1.0
User-Agent: Pan/0.154 (Izium; 517acf4)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Message-ID: <5Pqdnbdjd8R7luD7nZ2dnZfqnPudnZ2d@brightview.co.uk>
Date: Thu, 27 Jun 2024 06:51:18 +0000
Lines: 23
X-Usenet-Provider: http://www.giganews.com
X-Trace: sv3-W0dopL02gi1v/DB+2MRoXZHffEWtm1sLlIZCPe/4WD/SztpH3pZ25Mv06iXhjzQ1mc3ogOlbyJjFU7s!xQta+fpRZScN2QWcrjAy5FR5Pi3J6E5FJL/OxzvY476sQOBE2R/tqM1J9Rkd45a4+2hkl4N8Q+04!F9bLyXLjPhseg4mdXieU7zmMsA==
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: 1871

[snip]

Based on your idea of using winfo exists I've now refined the on_options 
proc to this:

proc test::on_options {} {
    if {![winfo exists .optionsForm]} {
        puts "on_options init"
        toplevel .optionsForm
        set on_close [lambda {} {dialog hide .optionsForm}]
        wm title .optionsForm "Options — [tk appname]"
        ttk::label .optionsForm.label -text "Options go here"
        grid .optionsForm.label -row 0 -column 0
        ttk::button .optionsForm.closeButton -text Close -command 
$on_close
        grid .optionsForm.closeButton -row 1 -column 0
        wm protocol .optionsForm WM_DELETE_WINDOW $on_close
        bind .optionsForm <Escape> $on_close
        dialog prepare .optionsForm
    }
    puts on_options
    dialog show .optionsForm
}