Posted to tcl by jdc at Mon Feb 08 14:18:04 GMT 2010view raw
- pack [frame .frame]
- pack [text .frame.text]
- tk busy hold .frame
- pack [button .cancel -text "Cancel" -command [list tk busy forget .frame]]
- focus .cancel
- bind .cancel <Tab> {break}
- bind .cancel <Shift-Tab> {break}
- update