Posted to tcl by jeremy_c at Thu Jan 21 14:37:50 GMT 2010view raw

  1. package require Tk
  2. rename bgerror TclBgError
  3. proc bgerror {args} {
  4. puts "Our bgerror handler"
  5. TclBgError $args
  6. }