Artifact
694db97ca84b52968fa5eac3b13cfbafd9a04103483b0c33a4f19ca3f4ebf4fb:
Attachment "transient.tcl" to
ticket [91d0e9d8]
added by
cjmcdonald
2025-03-05 18:21:42.
Also attachment "transient.tcl" to
ticket [159aa5eb]
added by
cjmcdonald
2025-03-05 17:03:10.
wm title . "Main Window"
wm resizable . 1 1
button .b -text "Show Pop-Up Dialog" -command {
wm deiconify .popup
raise .popup
}
pack .b -padx 2c -pady 2c -expand 1
toplevel .popup
wm withdraw .popup
wm title .popup "Pop-Up Dialog"
wm transient .popup .
wm resizable .popup 0 0
wm protocol .popup WM_DELETE_WINDOW {wm withdraw .popup}
button .popup.b -text Close -command {wm withdraw .popup}
pack .popup.b -padx 1c -pady 1c -expand 1
