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

package require Tk

#interp bgerror {} handler
proc handler args {
	puts "bgerror: $args"
}
after 0 {
	canvas .c -bg #008 -width 100%
}

vwait done