Posted to tcl by patthoyts at Wed Dec 09 16:12:16 GMT 2009view pretty

package require Tk
wm title . "Test transient dialog"
wm geometry . 400x300
toplevel .t
wm transient .t .
wm title .t "Transient"
bind .t <Map> {
    bind %W <Map> {}
    wm transient .t .
}
tkwait window .