home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / amigan / amigan 9 / automata / source / amsetup.def < prev    next >
Encoding:
Modula Definition  |  1994-01-27  |  943 b   |  29 lines
  1. DEFINITION MODULE AMSetUp;
  2.  
  3. (*   AMSetUp prepares the screen for the Automata program.
  4.  
  5.      Version 2.2a    by Mike Dryja   March 1, 1987  *)
  6.     
  7. FROM AMCalc    IMPORT RuleString;
  8. FROM Intuition IMPORT RequesterPtr, ScreenPtr, WindowPtr;
  9.  
  10. VAR
  11.   AMScreen  : ScreenPtr;    (* Screen pointer for Automata *)
  12.   AMWindow  : WindowPtr;    (* Main display window *)
  13.   AuthorReq,                (* Pointer to author info requester *)
  14.   StringReq : RequesterPtr; (* Pointer to rule requester (a string) *)
  15.   OldRule,
  16.   NewRule   : RuleString;   (* RuleStrings for gadget in requester *)
  17.  
  18. PROCEDURE PrepareScreen () : BOOLEAN;
  19.   (* Prepares the screen for Automata, returning in AMScreen the screen in
  20.      AMWindow the window for the graphics and in UIWindow the window for
  21.      the user input, for use in AMGraphics *)
  22.  
  23. PROCEDURE CloseSetUp ();
  24.   (* Closes all of the windows, screens, and libraries opened by Prepare-
  25.      Screen *)
  26.  
  27. END AMSetUp.
  28.  
  29.