Insert tcl_doevent() in Canvas constructor (fixes ImageView issue 13)