Posted to tcl by aspect at Tue Jun 30 13:50:50 GMT 2015view raw

  1. package require Tk
  2.  
  3. #interp bgerror {} handler
  4. proc handler args {
  5. puts "bgerror: $args"
  6. }
  7. after 0 {
  8. canvas .c -bg #008 -width 100%
  9. }
  10.  
  11. vwait done
  12.