Názory k článku Programovací jazyk TCL (15)

Děkuji za povídání o těch oknech - večer si to vyzkouším. To vaše řešení vypadá velmi elegantně. Já jsem si nevšimnul Vaší otázky pod minulých článkem, proto reaguji až teď. Takže zatím to dělám takhle divně pomocí kódu (někde jsem to vygoogloval):

toplevel $dialog -takefocus 1
wm title $dialog [format "Node %i" $id]
wm transient $dialog .

# nějaký kód...

tkwait visibility .
grab $dialog
wm transient $dialog .
wm protocol $dialog WM_DELETE_WINDOW {grab release $dialog; destroy $dialog}
raise $dialog
tkwait window $dialog

Akorát se občas povede, že wish vyplivne chybové hlášení o neexistujícím okně a tak.