before(Object, Message, Sender)
This is a pre-declared but user-defined public method for handling before events.
before(?object, ?term, ?object)
(none)
before(Object, Message, Sender) :-
writeq(Object), write('::'), writeq(Message),
write(' from '), writeq(Sender), nl.