DEFINITION MODULE Snoop;

        (************************************************)
        (*    Snoop : The core of the Spy program       *)
        (*                                              *)
        (*  Written by Steve Faiwiszewski,   June 1988  *)
        (*                                              *)
        (*   Not to be used for commercial purpose      *)
        (************************************************)

FROM Tasks IMPORT TaskPtr;
FROM Intuition IMPORT WindowPtr;

CONST
    WINDOWLEFT = 150;
    WINDOWTOP = 20;
    WIDTH = 300;
    HEIGHT = 150;

VAR
    SpyWindow : WindowPtr;
 
PROCEDURE Observe(TargetTask : TaskPtr);
(* Display important info on the target task.  *)
(* Repeat doing so until user chooses to exit. *)

END Snoop.
