$canvas->createWindow(0,0, -window => $widget);

$widget->Tk::bind('<Button-1>' => sub { &dostuff0 });