move data_changed from GObject to Object

Author: mohawk2

lib/PDL/Graphics/TriD/Object.pm

@@ -87,10 +87,16 @@ sub clear {
 }
 
 sub changed {
-	my($this) = @_;
-	print "VALID0 $this\n" if $PDL::Graphics::TriD::verbose;
-	$this->{ValidList} = 0;
-	$_->($this) for @{$this->{ChangedSub}};
+  my($this) = @_;
+  print "VALID0 $this\n" if $PDL::Graphics::TriD::verbose;
+  $this->{ValidList} = 0;
+  $_->($this) for @{$this->{ChangedSub}};
+}
+
+# In the future, have this happen automatically by the ndarrays.
+sub data_changed {
+  my($this) = @_;
+  $this->changed;
 }
 
 1;

lib/PDL/Graphics/TriD/Objects.pm

@@ -80,12 +80,6 @@ sub cdummies { $_[1] }
 sub r_type { "" }
 sub defcols { $_[0]{Options}{UseDefcols} }
 
-# In the future, have this happen automatically by the ndarrays.
-sub data_changed {
-	my($this) = @_;
-	$this->changed;
-}
-
 package PDL::Graphics::TriD::Points;
 use base qw/PDL::Graphics::TriD::GObject/;
 sub get_valid_options { +{