Select Code to Download

sub menu {
my (undef, $event) = @_;
if ($event->{type} =~ /button[-_]press/ and ($event->{button} == 2 or 
+$event->{button} == 3)) {
...
}
return 1;
}

sub do_remove {
my ($x, $y) = $main_clist->get_pointer;
my ($row, $column) = $main_clist->get_selection_info($x, $y);
...
}
 }
  }