Posted to tcl by jdc at Mon Feb 08 14:18:04 GMT 2010view raw

  1. pack [frame .frame]
  2. pack [text .frame.text]
  3. tk busy hold .frame
  4. pack [button .cancel -text "Cancel" -command [list tk busy forget .frame]]
  5. focus .cancel
  6. bind .cancel <Tab> {break}
  7. bind .cancel <Shift-Tab> {break}
  8. update