Posted to tcl by patthoyts at Wed Dec 09 16:12:16 GMT 2009view raw
- 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 .