home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Drivers / MemBoardTest.lha / MemBoardTest / myscreen.def < prev    next >
Encoding:
Modula Definition  |  1988-10-02  |  1.2 KB  |  43 lines
  1. DEFINITION MODULE myscreen;
  2.  
  3.  
  4.  
  5. FROM Intuition IMPORT ScreenPtr;
  6. FROM Rasters IMPORT RastPortPtr ;
  7. FROM Intuition IMPORT Window, Gadget,GadgetPtr, StringInfo, Border,
  8.                       IntuitionText;
  9. FROM SYSTEM IMPORT WORD;
  10. FROM Strings IMPORT String;
  11.  
  12.  
  13. VAR
  14.   RP: RastPortPtr;
  15.   ourscreen: ScreenPtr;
  16.   ourwindow: POINTER TO Window;
  17.   ColourTable: ARRAY [0..31] OF CARDINAL;
  18.   strborder : Border;
  19.   strpairs, boolpairs : ARRAY[0..11] OF WORD;
  20.   stadrtextintui, enadrtextintui  : IntuitionText;
  21.   stadrgadg, enadrgadg, errnogadg,loopergadg : Gadget;
  22.   windowtitle,screentitle,sttext,entext, tempstring,
  23.       stadrresult,enadrresult, errresult, looperresult : String;
  24.   stgadgstring, engadgstring, errgadgstring, loopergadgstring : StringInfo;
  25.  
  26. PROCEDURE InitScreen(width, height, depth: CARDINAL): BOOLEAN;
  27.   (* initialise a new screen.
  28.  
  29.      width, height: the raster size in pixels.
  30.      depth: number of bit planes to allocate.
  31.      returns: TRUE => all VARS in this module are vaild for the requested
  32.                 raster.
  33.               FALSE => no graphics library or not enough memory. *)
  34.  
  35. PROCEDURE Refresh;
  36.  
  37. PROCEDURE EndMake;
  38.   (* Cleans up the screen after demo *)
  39.  
  40.  
  41. END myscreen.
  42.  
  43.