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,8 +401,8 @@ 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;
@ -410,6 +410,9 @@ sub on_tree_key_down {
$event->Skip; $event->Skip;
$self->on_btn_move_down; $self->on_btn_move_down;
} }
} elsif ($keycode == WXK_DELETE) {
$self->on_btn_delete;
}
} }
} }