Prevent warnings when zooming on uninitialized 3D canvas

This commit is contained in:
Alessandro Ranellucci 2014-07-26 17:15:47 +02:00
parent 53f2d6bb4b
commit 9f7734abeb

View File

@ -379,6 +379,7 @@ sub mouse_to_3d {
sub ZoomTo { sub ZoomTo {
my ($self, $factor, $tox, $toy) = @_; my ($self, $factor, $tox, $toy) = @_;
return if !$self->init;
glTranslatef($tox, $toy, 0); glTranslatef($tox, $toy, 0);
glMatrixMode(GL_MODELVIEW); glMatrixMode(GL_MODELVIEW);
$self->Zoom($factor); $self->Zoom($factor);