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
