Delete key enabled in Object's Settings Dialog
This commit is contained in:
parent
b4efff1d95
commit
254592c849
@ -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;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user