# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1185466239 -3600
# Node ID 0190c6ad759e773d6be06dcf0403d5472ce11125
# Parent  b4f4df48337d36f8c2d8354f34e9e9e6a7632ab1
Fixes for viewpointable classes

darcs-hash:20070726161039-f76cc-e9be0dd8f1ea1366b127547df97b6f55056cd70e.gz

diff -r b4f4df48337d -r 0190c6ad759e implementations/viewpointable/viewpointable.lisp
--- a/implementations/viewpointable/viewpointable.lisp	Thu Jul 26 17:03:47 2007 +0100
+++ b/implementations/viewpointable/viewpointable.lisp	Thu Jul 26 17:10:39 2007 +0100
@@ -4,13 +4,13 @@
 ;; are implemented, a viewpointable-composition can be made and have
 ;; viewpoint operations carried out without loss of context.
 
-(defclass viewpointable-event (event)
+(defclass viewpointable-event (amuse::event)
   ((source-event :initarg :source-event
 		 :accessor %viewpointable-event-source-event)
    (source-composition :initarg :source-composition
 		       :accessor %viewpointable-event-source-composition)))
 
-(defclass viewpointable-composition (composition) ())
+(defclass viewpointable-composition (monody) ())
 
 (defmethod timepoint ((event viewpointable-event))
   (timepoint (%viewpointable-event-source-event event)))