Select Code to Download

    $canvas->Tk::bind("<Button-1>"        => \&start_mouse);
    $canvas->Tk::bind("<Motion>"          => \&move_mouse);
    $canvas->Tk::bind("<ButtonRelease-1>" => \&stop_mouse);

package Tk::Draw;
...

1;