Posted to tcl by kostix at Mon Jul 10 21:49:23 GMT 2006view pretty

#! /usr/bin/wish

package require Tk

variable tmo 5
variable trans 1

entry .tmo -textvariable tmo
pack .tmo

checkbutton .trans -variable trans -text {Is transient?}
pack .trans

button .start -text {Press, go to another desk and wait} \
    -command {
        after [expr $tmo * 1000] {
            toplevel .dlg

            if {$trans} { wm transient .dlg . }

            button .dlg.ok -text OK -command { destroy .dlg }
            pack .dlg.ok
        }
    }
pack .start