Allow delete button in object list
This commit is contained in:
parent
ee4f2cf549
commit
40b55a3818
@ -310,6 +310,9 @@ sub new {
|
|||||||
my ($list, $event) = @_;
|
my ($list, $event) = @_;
|
||||||
if ($event->GetKeyCode == WXK_TAB) {
|
if ($event->GetKeyCode == WXK_TAB) {
|
||||||
$list->Navigate($event->ShiftDown ? &Wx::wxNavigateBackward : &Wx::wxNavigateForward);
|
$list->Navigate($event->ShiftDown ? &Wx::wxNavigateBackward : &Wx::wxNavigateForward);
|
||||||
|
} elsif ($event->GetKeyCode == WXK_DELETE ||
|
||||||
|
($event->GetKeyCode == WXK_BACK && &Wx::wxMAC) ) {
|
||||||
|
$self->remove;
|
||||||
} else {
|
} else {
|
||||||
$event->Skip;
|
$event->Skip;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user