Mercurial > hg > amuse
diff implementations/viewpointable/viewpointable.lisp @ 117:0190c6ad759e
Fixes for viewpointable classes
darcs-hash:20070726161039-f76cc-e9be0dd8f1ea1366b127547df97b6f55056cd70e.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Thu, 26 Jul 2007 17:10:39 +0100 |
| parents | b4f4df48337d |
| children | 3b36cf79b525 |
line wrap: on
line diff
--- 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)))