Select Code to Download

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

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

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

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