mirror of
				https://github.com/SoftFever/OrcaSlicer.git
				synced 2025-11-02 20:51:23 -07:00 
			
		
		
		
	Key down and char event handlers of class 3D moved to c++
This commit is contained in:
		
							parent
							
								
									f6ef28becc
								
							
						
					
					
						commit
						ff86407840
					
				
					 9 changed files with 357 additions and 96 deletions
				
			
		| 
						 | 
				
			
			@ -120,16 +120,23 @@ sub new {
 | 
			
		|||
#==============================================================================================================================
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_double_click_callback($self->{canvas3D}, $on_double_click);
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_right_click_callback($self->{canvas3D}, sub { $on_right_click->($self->{canvas3D}, @_); });
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_arrange_callback($self->{canvas3D}, sub { $self->arrange });
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_rotate_object_left_callback($self->{canvas3D}, sub { $self->rotate(-45, Z, 'relative') });
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_rotate_object_right_callback($self->{canvas3D}, sub { $self->rotate( 45, Z, 'relative') });
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_scale_object_uniformly_callback($self->{canvas3D}, sub { $self->changescale(undef) });
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_increase_objects_callback($self->{canvas3D}, sub { $self->increase() });
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_decrease_objects_callback($self->{canvas3D}, sub { $self->decrease() });
 | 
			
		||||
        Slic3r::GUI::_3DScene::register_on_remove_object_callback($self->{canvas3D}, sub { $self->remove() });        
 | 
			
		||||
#        $self->{canvas3D}->set_on_double_click($on_double_click);
 | 
			
		||||
#        $self->{canvas3D}->set_on_right_click(sub { $on_right_click->($self->{canvas3D}, @_); });
 | 
			
		||||
#        $self->{canvas3D}->set_on_arrange(sub { $self->arrange });
 | 
			
		||||
#        $self->{canvas3D}->set_on_rotate_object_left(sub { $self->rotate(-45, Z, 'relative') });
 | 
			
		||||
#        $self->{canvas3D}->set_on_rotate_object_right(sub { $self->rotate( 45, Z, 'relative') });
 | 
			
		||||
#        $self->{canvas3D}->set_on_scale_object_uniformly(sub { $self->changescale(undef) });
 | 
			
		||||
#        $self->{canvas3D}->set_on_increase_objects(sub { $self->increase() });
 | 
			
		||||
#        $self->{canvas3D}->set_on_decrease_objects(sub { $self->decrease() });
 | 
			
		||||
#        $self->{canvas3D}->set_on_remove_object(sub { $self->remove() });
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
        $self->{canvas3D}->set_on_arrange(sub { $self->arrange });
 | 
			
		||||
        $self->{canvas3D}->set_on_rotate_object_left(sub { $self->rotate(-45, Z, 'relative') });
 | 
			
		||||
        $self->{canvas3D}->set_on_rotate_object_right(sub { $self->rotate( 45, Z, 'relative') });
 | 
			
		||||
        $self->{canvas3D}->set_on_scale_object_uniformly(sub { $self->changescale(undef) });
 | 
			
		||||
        $self->{canvas3D}->set_on_increase_objects(sub { $self->increase() });
 | 
			
		||||
        $self->{canvas3D}->set_on_decrease_objects(sub { $self->decrease() });
 | 
			
		||||
        $self->{canvas3D}->set_on_remove_object(sub { $self->remove() });
 | 
			
		||||
        $self->{canvas3D}->set_on_instances_moved($on_instances_moved);
 | 
			
		||||
        $self->{canvas3D}->set_on_enable_action_buttons($enable_action_buttons);
 | 
			
		||||
#===================================================================================================================================        
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -5,14 +5,21 @@ use utf8;
 | 
			
		|||
 | 
			
		||||
use List::Util qw();
 | 
			
		||||
use Wx qw(:misc :pen :brush :sizer :font :cursor :keycode wxTAB_TRAVERSAL);
 | 
			
		||||
use Wx::Event qw(EVT_KEY_DOWN EVT_CHAR);
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
#use Wx::Event qw(EVT_KEY_DOWN EVT_CHAR);
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
use base qw(Slic3r::GUI::3DScene Class::Accessor);
 | 
			
		||||
 | 
			
		||||
use Wx::Locale gettext => 'L';
 | 
			
		||||
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
__PACKAGE__->mk_accessors(qw(
 | 
			
		||||
    on_arrange on_rotate_object_left on_rotate_object_right on_scale_object_uniformly
 | 
			
		||||
    on_rotate_object_left on_rotate_object_right on_scale_object_uniformly
 | 
			
		||||
    on_remove_object on_increase_objects on_decrease_objects on_enable_action_buttons));
 | 
			
		||||
#__PACKAGE__->mk_accessors(qw(
 | 
			
		||||
#    on_arrange on_rotate_object_left on_rotate_object_right on_scale_object_uniformly
 | 
			
		||||
#    on_remove_object on_increase_objects on_decrease_objects on_enable_action_buttons));
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
 | 
			
		||||
sub new {
 | 
			
		||||
    my $class = shift;
 | 
			
		||||
| 
						 | 
				
			
			@ -94,43 +101,45 @@ sub new {
 | 
			
		|||
            if $wipe_tower_moved && $self->{on_wipe_tower_moved};
 | 
			
		||||
    });
 | 
			
		||||
 | 
			
		||||
    EVT_KEY_DOWN($self, sub {
 | 
			
		||||
        my ($s, $event) = @_;
 | 
			
		||||
        if ($event->HasModifiers) {
 | 
			
		||||
            $event->Skip;
 | 
			
		||||
        } else {
 | 
			
		||||
            my $key = $event->GetKeyCode;
 | 
			
		||||
            if ($key == WXK_DELETE) {
 | 
			
		||||
                $self->on_remove_object->() if $self->on_remove_object;
 | 
			
		||||
            } else {
 | 
			
		||||
                $event->Skip;
 | 
			
		||||
            }
 | 
			
		||||
        }
 | 
			
		||||
    });
 | 
			
		||||
 | 
			
		||||
    EVT_CHAR($self, sub {
 | 
			
		||||
        my ($s, $event) = @_;
 | 
			
		||||
        if ($event->HasModifiers) {
 | 
			
		||||
            $event->Skip;
 | 
			
		||||
        } else {
 | 
			
		||||
            my $key = $event->GetKeyCode;
 | 
			
		||||
            if ($key == ord('a')) {
 | 
			
		||||
                $self->on_arrange->() if $self->on_arrange;
 | 
			
		||||
            } elsif ($key == ord('l')) {
 | 
			
		||||
                $self->on_rotate_object_left->() if $self->on_rotate_object_left;
 | 
			
		||||
            } elsif ($key == ord('r')) {
 | 
			
		||||
                $self->on_rotate_object_right->() if $self->on_rotate_object_right;
 | 
			
		||||
            } elsif ($key == ord('s')) {
 | 
			
		||||
                $self->on_scale_object_uniformly->() if $self->on_scale_object_uniformly;
 | 
			
		||||
            } elsif ($key == ord('+')) {
 | 
			
		||||
                $self->on_increase_objects->() if $self->on_increase_objects;
 | 
			
		||||
            } elsif ($key == ord('-')) {
 | 
			
		||||
                $self->on_decrease_objects->() if $self->on_decrease_objects;
 | 
			
		||||
            } else {
 | 
			
		||||
                $event->Skip;
 | 
			
		||||
            }
 | 
			
		||||
        }
 | 
			
		||||
    });
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
#    EVT_KEY_DOWN($self, sub {
 | 
			
		||||
#        my ($s, $event) = @_;
 | 
			
		||||
#        if ($event->HasModifiers) {
 | 
			
		||||
#            $event->Skip;
 | 
			
		||||
#        } else {
 | 
			
		||||
#            my $key = $event->GetKeyCode;
 | 
			
		||||
#            if ($key == WXK_DELETE) {
 | 
			
		||||
#                $self->on_remove_object->() if $self->on_remove_object;
 | 
			
		||||
#            } else {
 | 
			
		||||
#                $event->Skip;
 | 
			
		||||
#            }
 | 
			
		||||
#        }
 | 
			
		||||
#    });
 | 
			
		||||
#
 | 
			
		||||
#    EVT_CHAR($self, sub {
 | 
			
		||||
#        my ($s, $event) = @_;
 | 
			
		||||
#        if ($event->HasModifiers) {
 | 
			
		||||
#            $event->Skip;
 | 
			
		||||
#        } else {
 | 
			
		||||
#            my $key = $event->GetKeyCode;
 | 
			
		||||
#            if ($key == ord('a')) {
 | 
			
		||||
#                $self->on_arrange->() if $self->on_arrange;
 | 
			
		||||
#            } elsif ($key == ord('l')) {
 | 
			
		||||
#                $self->on_rotate_object_left->() if $self->on_rotate_object_left;
 | 
			
		||||
#            } elsif ($key == ord('r')) {
 | 
			
		||||
#                $self->on_rotate_object_right->() if $self->on_rotate_object_right;
 | 
			
		||||
#            } elsif ($key == ord('s')) {
 | 
			
		||||
#                $self->on_scale_object_uniformly->() if $self->on_scale_object_uniformly;
 | 
			
		||||
#            } elsif ($key == ord('+')) {
 | 
			
		||||
#                $self->on_increase_objects->() if $self->on_increase_objects;
 | 
			
		||||
#            } elsif ($key == ord('-')) {
 | 
			
		||||
#                $self->on_decrease_objects->() if $self->on_decrease_objects;
 | 
			
		||||
#            } else {
 | 
			
		||||
#                $event->Skip;
 | 
			
		||||
#            }
 | 
			
		||||
#        }
 | 
			
		||||
#    });
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
    
 | 
			
		||||
    return $self;
 | 
			
		||||
}
 | 
			
		||||
| 
						 | 
				
			
			@ -150,43 +159,43 @@ sub set_on_select_object {
 | 
			
		|||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_right_click($cb);
 | 
			
		||||
#}
 | 
			
		||||
#
 | 
			
		||||
#sub set_on_arrange {
 | 
			
		||||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_arrange($cb);
 | 
			
		||||
#}
 | 
			
		||||
#
 | 
			
		||||
#sub set_on_rotate_object_left {
 | 
			
		||||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_rotate_object_left($cb);
 | 
			
		||||
#}
 | 
			
		||||
#
 | 
			
		||||
#sub set_on_rotate_object_right {
 | 
			
		||||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_rotate_object_right($cb);
 | 
			
		||||
#}
 | 
			
		||||
#
 | 
			
		||||
#sub set_on_scale_object_uniformly {
 | 
			
		||||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_scale_object_uniformly($cb);
 | 
			
		||||
#}
 | 
			
		||||
#
 | 
			
		||||
#sub set_on_increase_objects {
 | 
			
		||||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_increase_objects($cb);
 | 
			
		||||
#}
 | 
			
		||||
#
 | 
			
		||||
#sub set_on_decrease_objects {
 | 
			
		||||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_decrease_objects($cb);
 | 
			
		||||
#}
 | 
			
		||||
#
 | 
			
		||||
#sub set_on_remove_object {
 | 
			
		||||
#    my ($self, $cb) = @_;
 | 
			
		||||
#    $self->on_remove_object($cb);
 | 
			
		||||
#}
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
 | 
			
		||||
sub set_on_arrange {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->on_arrange($cb);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub set_on_rotate_object_left {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->on_rotate_object_left($cb);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub set_on_rotate_object_right {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->on_rotate_object_right($cb);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub set_on_scale_object_uniformly {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->on_scale_object_uniformly($cb);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub set_on_increase_objects {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->on_increase_objects($cb);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub set_on_decrease_objects {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->on_decrease_objects($cb);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub set_on_remove_object {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->on_remove_object($cb);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub set_on_instances_moved {
 | 
			
		||||
    my ($self, $cb) = @_;
 | 
			
		||||
    $self->{on_instances_moved} = $cb;
 | 
			
		||||
| 
						 | 
				
			
			@ -243,7 +252,7 @@ sub reload_scene {
 | 
			
		|||
    $self->{objects_volumes_idxs} = [];    
 | 
			
		||||
    foreach my $obj_idx (0..$#{$self->{model}->objects}) {
 | 
			
		||||
#==============================================================================================================================
 | 
			
		||||
        my $volume_idxs = Slic3r::GUI::_3DScene::load_model($self, $self->{model}, $obj_idx, [0]);
 | 
			
		||||
        my $volume_idxs = Slic3r::GUI::_3DScene::load_model($self, $self->{model}, $obj_idx);
 | 
			
		||||
        push(@{$self->{objects_volumes_idxs}}, \@{$volume_idxs});
 | 
			
		||||
        
 | 
			
		||||
#        my @volume_idxs = $self->load_object($self->{model}, $self->{print}, $obj_idx);
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue