parent $event_class
object $movement_event

var $root dbref 'movement_event
var $root child_index 0
var $root fertile 0
var $root manager $movement_event
var $root owned [$movement_event]
var $root owners [$movement_event]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $root inited 1
var $event_class type 'movement

method exit
    arg rep;
    
    return rep[2];
.

method new
    arg actor, source, dest;
    
    //  (> .perms(caller(), $exit) <);
    return <this(), #[['exit, sender()], ['actor, actor], ['source, source], ['dest, dest]]>;
.

method dest
    arg args;
    
    return (args[3]).dest();
.

method source
    arg args;
    
    return (args[3]).source();
.

method dispatch
    arg dict;
    
    (dict['source]).announce_event(<this(), dict>);
    (dict['dest]).announce_event(<this(), dict>);
.

method process
    arg dict;
    
.