rename field to emphasise it stores a reference

Author: mohawk2

lib/PDL/Graphics/TriD/ScrollButtonScaler.pm

@@ -5,12 +5,12 @@
 
 package PDL::Graphics::TriD::ScrollButtonScaler;
 use base qw/PDL::Graphics::TriD::ButtonControl/;
-use fields qw/Dist Zoom/;
+use fields qw/DistRef Zoom/;
 
 sub new {
   my($type,$win,$dist,$zoom) = @_;
   my $this = $type->SUPER::new($win);
-  $this->{Dist} = $dist;
+  $this->{DistRef} = $dist;
   $this->{Zoom} = $zoom;  # multiplier for zooming
                           # >1 zooms out, <1 zooms in
   return $this;
@@ -19,7 +19,7 @@ sub new {
 sub ButtonRelease{
   my ($this,$x,$y) = @_;
   print "ButtonRelease @_\n"  if $PDL::Graphics::TriD::verbose;
-  ${$this->{Dist}} *= $this->{Zoom};
+  ${$this->{DistRef}} *= $this->{Zoom};
   1;
 }
 

lib/PDL/Graphics/TriD/SimpleScaler.pm

@@ -7,16 +7,16 @@ package PDL::Graphics::TriD::SimpleScaler;
 use strict;
 use warnings;
 use base qw/PDL::Graphics::TriD::ButtonControl/;
-use fields qw/Dist/;
+use fields qw/DistRef/;
 
 $PDL::Graphics::TriD::verbose //= 0;
 
 sub new {
   my($type,$win,$dist) = @_;
-  
+
   my $this = $type->SUPER::new( $win);
 
-  $this->{Dist} = $dist;				  
+  $this->{DistRef} = $dist;
   $win->add_resizecommand(sub {print "Resized window: ",join(",",@_),"\n" if $PDL::Graphics::TriD::verbose;  $this->set_wh(@_); });
   return $this;
 }
@@ -32,7 +32,7 @@ sub xy2norm {
 
 sub mouse_moved {
 	my($this,$x0,$y0,$x1,$y1) = @_;
-	${$this->{Dist}} *=
+	${$this->{DistRef}} *=
 	  $this->xy2fac($this->xy2norm($x0,$y0),$this->xy2norm($x1,$y1));
 }