home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 230.lha / SPY / Sources / Snoop.Def < prev    next >
Encoding:
Modula Definition  |  1989-04-08  |  771 b   |  28 lines
  1. DEFINITION MODULE Snoop;
  2.  
  3.         (************************************************)
  4.         (*    Snoop : The core of the Spy program       *)
  5.         (*                                              *)
  6.         (*  Written by Steve Faiwiszewski,   June 1988  *)
  7.         (*                                              *)
  8.         (*   Not to be used for commercial purpose      *)
  9.         (************************************************)
  10.  
  11. FROM Tasks IMPORT TaskPtr;
  12. FROM Intuition IMPORT WindowPtr;
  13.  
  14. CONST
  15.     WINDOWLEFT = 150;
  16.     WINDOWTOP = 20;
  17.     WIDTH = 300;
  18.     HEIGHT = 150;
  19.  
  20. VAR
  21.     SpyWindow : WindowPtr;
  22.  
  23. PROCEDURE Observe(TargetTask : TaskPtr);
  24. (* Display important info on the target task.  *)
  25. (* Repeat doing so until user chooses to exit. *)
  26.  
  27. END Snoop.
  28.