$cn->toplevel->bind(
        '<ButtonPress>',
        [
           sub {  my ( $x, $y, $cn ) = @_;
               $lx = $x;
               $ly = $y;
               _start_draw($cn);
           },
           Tcl::Ev('%x', '%y'),
           $cn,
        ]
    );