- or download this
$pm->command(-label=>"rerun", -command=>[\&rerun, $dataset] );
$button->bind('<ButtonRelease-1>' => [ sub { push @menulist, $pm; $pm-
+>post( $_[1], $_[2] ) }, Ev('X'), Ev('Y') ] );
- or download this
$pm->command(-label=>"rerun", -command=>[\&rerun, $dataset] );
$button->bind('<ButtonRelease-3>' => [ sub { push @menulist, $pm; $pm-
+>post( $_[1], $_[2] ) }, Ev('X'), Ev('Y') ] );