use inheritance for default_options

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -829,7 +829,7 @@ Allowed 3d window types, case insensitive, are:
 
 sub new {
   my($class,$options,$window_obj) = @_;
-  my $opt = PDL::Options->new(default_options());
+  my $opt = PDL::Options->new($class->default_options);
   $opt->incremental(1);
   $opt->options($options) if(defined $options);
   my $p = $opt->options;
@@ -842,16 +842,13 @@ default options for object oriented methods
 
 =cut
 
-sub default_options{
-   {  'x'     => 0,
-      'y'     => 0,
-      'width' => 500,
-      'height'=> 500,
-      'parent'=> 0,
-      'mask'  => eval '&OpenGL::StructureNotifyMask',
-      'steal' => 0,
-      'attributes' => eval '[ &OpenGL::GLX_DOUBLEBUFFER, &OpenGL::GLX_RGBA ]',
-   }
+sub default_options {
+  {
+    x => 0,
+    y => 0,
+    width => 500,
+    height => 500,
+  }
 }
 
 =head2 swap_buffers

lib/PDL/Graphics/TriD/GL/GLX.pm

@@ -31,6 +31,16 @@ sub new {
   $self;
 }
 
+sub default_options {
+  my ($class) = @_;
+  +{ %{ $class->SUPER::default_options },
+    parent => 0,
+    mask => StructureNotifyMask,
+    steal => 0,
+    attributes => [ GLX_DOUBLEBUFFER, GLX_RGBA ],
+  };
+}
+
 sub event_pending {
   my ($self) = @_;
   OpenGL::XPending($self->{Display});