Tk Source Code

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