Delete key enabled in Object's Settings Dialog

This commit is contained in:
Enrico Turri 2018-04-09 14:20:44 +02:00
parent b4efff1d95
commit 254592c849

View File

@ -401,14 +401,17 @@ sub on_tree_key_down {
my ($self, $event) = @_; my ($self, $event) = @_;
my $keycode = $event->GetKeyCode; my $keycode = $event->GetKeyCode;
# Wx >= 0.9911 # Wx >= 0.9911
if (defined(&Wx::TreeEvent::GetKeyEvent) && if (defined(&Wx::TreeEvent::GetKeyEvent)) {
($event->GetKeyEvent->GetModifiers & wxMOD_CONTROL)) { if ($event->GetKeyEvent->GetModifiers & wxMOD_CONTROL) {
if ($keycode == WXK_UP) { if ($keycode == WXK_UP) {
$event->Skip; $event->Skip;
$self->on_btn_move_up; $self->on_btn_move_up;
} elsif ($keycode == WXK_DOWN) { } elsif ($keycode == WXK_DOWN) {
$event->Skip; $event->Skip;
$self->on_btn_move_down; $self->on_btn_move_down;
}
} elsif ($keycode == WXK_DELETE) {
$self->on_btn_delete;
} }
} }
} }