Allow delete button in object list
This commit is contained in:
parent
ee4f2cf549
commit
40b55a3818
1 changed files with 3 additions and 0 deletions
|
@ -310,6 +310,9 @@ sub new {
|
|||
my ($list, $event) = @_;
|
||||
if ($event->GetKeyCode == WXK_TAB) {
|
||||
$list->Navigate($event->ShiftDown ? &Wx::wxNavigateBackward : &Wx::wxNavigateForward);
|
||||
} elsif ($event->GetKeyCode == WXK_DELETE ||
|
||||
($event->GetKeyCode == WXK_BACK && &Wx::wxMAC) ) {
|
||||
$self->remove;
|
||||
} else {
|
||||
$event->Skip;
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue