Enable arrows in 3D preview and rename preview tabs

This commit is contained in:
Alessandro Ranellucci 2015-01-18 20:55:44 +01:00
parent 428f831886
commit b782351fd3
2 changed files with 20 additions and 8 deletions

View file

@ -48,6 +48,18 @@ sub new {
$self->set_z($self->{layers_z}[$slider->GetValue])
if $self->enabled;
});
EVT_KEY_DOWN($canvas, sub {
my ($s, $event) = @_;
my $key = $event->GetKeyCode;
if ($key == 85 || $key == 315) {
$slider->SetValue($slider->GetValue + 1);
$self->set_z($self->{layers_z}[$slider->GetValue]);
} elsif ($key == 68 || $key == 317) {
$slider->SetValue($slider->GetValue - 1);
$self->set_z($self->{layers_z}[$slider->GetValue]);
}
});
$self->SetSizer($sizer);
$self->SetMinSize($self->GetSize);