type Behavior is abstract new Limited_Object with private;
type A_Behavior is access all Behavior'Class;
function Create_Keen return A_Actor;
procedure Impulse
( | this | : access Behavior; |
name | : Hashed_String ) is abstract; |
procedure Pause
( | this | : access Behavior ) is abstract; |