axes just get togl method not special name

Author: mohawk2

lib/PDL/Graphics/TriD/GL.pm

@@ -71,12 +71,12 @@ sub PDL::Graphics::TriD::BoundingBox::togl {
 
 sub PDL::Graphics::TriD::Graph::togl {
 	my($this) = @_;
-	$this->{Axis}{$_}->togl_axis($this) for grep $_ ne "Default", keys %{$this->{Axis}};
+	$this->{Axis}{$_}->togl($this) for grep $_ ne "Default", keys %{$this->{Axis}};
 	$this->{Data}{$_}->togl_graph($this,$this->get_points($_)) for keys %{$this->{Data}};
 }
 
 use PDL;
-sub PDL::Graphics::TriD::CylindricalEquidistantAxes::togl_axis {
+sub PDL::Graphics::TriD::CylindricalEquidistantAxes::togl {
 	my($this,$graph) = @_;
         my (@nadd,@nc,@ns);
 	for my $dim (0..1) {
@@ -121,9 +121,9 @@ sub PDL::Graphics::TriD::CylindricalEquidistantAxes::togl_axis {
 	glEnable(GL_LIGHTING);
 }
 
-sub PDL::Graphics::TriD::EuclidAxes::togl_axis {
+sub PDL::Graphics::TriD::EuclidAxes::togl {
 	my($this,$graph) = @_;
-        print "togl_axis: got object type " . ref($this) . "\n" if $PDL::Graphics::TriD::verbose;
+        print "togl: got object type " . ref($this) . "\n" if $PDL::Graphics::TriD::verbose;
 	glLineWidth(1); # ought to be user defined
 	glDisable(GL_LIGHTING);
 	my $ndiv = 4;

lib/PDL/Graphics/TriD/VRML.pm

@@ -304,7 +304,7 @@ sub PDL::Graphics::TriD::Graph::tovrml {
 	my @children = ();
 	for(sort keys %{$this->{Axis}}) {
 		if($_ eq "Default") {next}
-		push @children, @{$this->{Axis}{$_}->tovrml_axis($this)};
+		push @children, @{$this->{Axis}{$_}->tovrml($this)};
 	}
 	for(sort keys %{$this->{Data}}) {
 	    push @children,
@@ -314,7 +314,7 @@ sub PDL::Graphics::TriD::Graph::tovrml {
 }
 
 
-sub PDL::Graphics::TriD::EuclidAxes::tovrml_axis {
+sub PDL::Graphics::TriD::EuclidAxes::tovrml {
   my($this,$graph) = @_;
   my $vrml = $PDL::Graphics::VRML::current_window;
   my $lset = vrn('Shape',