Allow delete button in object list

This commit is contained in:
YuSanka 2018-07-23 11:33:13 +02:00
parent ee4f2cf549
commit 40b55a3818

View File

@ -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;
} }