mirror of
https://github.com/OrcaSlicer/OrcaSlicer.git
synced 2026-05-18 19:12:17 +00:00
Partial GUI compatibility with XS data
This commit is contained in:
@@ -921,7 +921,7 @@ sub mouse_event {
|
||||
$parent->selection_changed(0);
|
||||
for my $preview (@{$parent->{object_previews}}) {
|
||||
my ($obj_idx, $instance_idx, $thumbnail) = @$preview;
|
||||
if (first { $_->contour->encloses_point($pos) } @{$thumbnail->expolygons}) {
|
||||
if (defined first { $_->contour->encloses_point($pos) } @{$thumbnail->expolygons}) {
|
||||
$parent->{selected_objects} = [ [$obj_idx, $instance_idx] ];
|
||||
$parent->{list}->Select($obj_idx, 1);
|
||||
$parent->selection_changed(1);
|
||||
@@ -951,7 +951,7 @@ sub mouse_event {
|
||||
} elsif ($event->Moving) {
|
||||
my $cursor = wxSTANDARD_CURSOR;
|
||||
for my $preview (@{$parent->{object_previews}}) {
|
||||
if (first { $_->contour->encloses_point($pos) } @{ $preview->[2]->expolygons }) {
|
||||
if (defined first { $_->contour->encloses_point($pos) } @{ $preview->[2]->expolygons }) {
|
||||
$cursor = Wx::Cursor->new(wxCURSOR_HAND);
|
||||
last;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user