3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use more generic EVT_KEY_DOWN().

Browse source
This commit is contained in:
Henrik Brix Andersen 2012-07-24 14:17:10 +02:00
parent 4bee713579
commit 0b0e531661
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Slic3r/GUI/Tab.pm
View file

@ -6,7 +6,7 @@ use utf8;
use File::Basename qw(basename); use File::Basename qw(basename);
use List::Util qw(first); use List::Util qw(first);
use Wx qw(:bookctrl :dialog :keycode :icon :id :misc :panel :sizer :treectrl :window); use Wx qw(:bookctrl :dialog :keycode :icon :id :misc :panel :sizer :treectrl :window);
use Wx::Event qw(EVT_BUTTON EVT_CHOICE EVT_TREE_SEL_CHANGED EVT_TREE_KEY_DOWN); use Wx::Event qw(EVT_BUTTON EVT_CHOICE EVT_KEY_DOWN EVT_TREE_SEL_CHANGED);
use base 'Wx::Panel'; use base 'Wx::Panel';
sub new { sub new {
@ -74,12 +74,10 @@ sub new {
$self->{sizer}->Layout; $self->{sizer}->Layout;
$self->Refresh; $self->Refresh;
}); });
EVT_TREE_KEY_DOWN($self->{treectrl}, $self->{treectrl}, sub { EVT_KEY_DOWN($self->{treectrl}, sub {
my ($treectrl, $event) = @_; my ($treectrl, $event) = @_;
# TODO: Once https://rt.cpan.org/Public/Bug/Display.html?id=78550 is fixed,
# add proper checks for Shift+Tab etc.
if ($event->GetKeyCode == WXK_TAB) { if ($event->GetKeyCode == WXK_TAB) {
$treectrl->Navigate(&Wx::wxNavigateForward); $treectrl->Navigate($event->ShiftDown ? &Wx::wxNavigateBackward : &Wx::wxNavigateForward);
} else { } else {
$event->Skip; $event->Skip;
} }