sub event_mouse {
my ($can,$event) = @_;
if ($event->type eq 'button-press') {
if ($event->button == 1 and $drag == 1) {
if($band == 0) {
$lx1 = $event->x;
$ly1 = $event->y;
$band = 1;
}
else{
$lx2 = $event->x;
$ly2 = $event->y;
$band = 0;
my $item = Gnome2::Canvas::Item->new
(
$root, 'Gnome2::Canvas::Line',
points => [$lx1, $ly1, $lx2, $ly2],
fill_color => 'red',
first_arrowhead => TRUE,
last_arrowhead => TRUE
);
$drag = 0;
}
}
}
}