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

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