put ::Window fields in Window.pm

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -768,10 +768,6 @@ use OpenGL::Modern qw/
   GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT
 /;
 
-use base qw/PDL::Graphics::TriD::Object/;
-use fields qw/Ev Width Height Interactive
-              _ViewPorts _CurrentViewPort /;
-
 my @GL_VERSION_NEEDED = (3, 3, 1);
 sub gdriver {
   my($this, $options) = @_;

lib/PDL/Graphics/TriD/Window.pm

@@ -6,7 +6,8 @@ package PDL::Graphics::TriD::Window;
 use strict;
 use warnings;
 use PDL::Graphics::TriD::ViewPort;
-use Data::Dumper;
+use base qw(PDL::Graphics::TriD::Object);
+use fields qw(Width Height Interactive _ViewPorts _CurrentViewPort);
 
 $PDL::Graphics::TriD::verbose //= 0;
 our ($DEFAULT_WIDTH, $DEFAULT_HEIGHT) = (600, 600);