Posted to tcl by saedelaere at Mon Sep 28 13:34:15 GMT 2009view raw

  1. button .b -text "hello world"
  2. grid .b
  3. bind .b <Any-Leave> {
  4. set id [after 1000 {
  5. puts "# \[[clock format [clock scan now] -format {%H:%M:%S}]\] Removing station list from video window."
  6. }]
  7. }