home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
100-199
/
ff158.lzh
/
MemBoardTest
/
myscreen.def
< prev
next >
Wrap
Text File
|
1988-10-02
|
1KB
|
43 lines
DEFINITION MODULE myscreen;
FROM Intuition IMPORT ScreenPtr;
FROM Rasters IMPORT RastPortPtr ;
FROM Intuition IMPORT Window, Gadget,GadgetPtr, StringInfo, Border,
IntuitionText;
FROM SYSTEM IMPORT WORD;
FROM Strings IMPORT String;
VAR
RP: RastPortPtr;
ourscreen: ScreenPtr;
ourwindow: POINTER TO Window;
ColourTable: ARRAY [0..31] OF CARDINAL;
strborder : Border;
strpairs, boolpairs : ARRAY[0..11] OF WORD;
stadrtextintui, enadrtextintui : IntuitionText;
stadrgadg, enadrgadg, errnogadg,loopergadg : Gadget;
windowtitle,screentitle,sttext,entext, tempstring,
stadrresult,enadrresult, errresult, looperresult : String;
stgadgstring, engadgstring, errgadgstring, loopergadgstring : StringInfo;
PROCEDURE InitScreen(width, height, depth: CARDINAL): BOOLEAN;
(* initialise a new screen.
width, height: the raster size in pixels.
depth: number of bit planes to allocate.
returns: TRUE => all VARS in this module are vaild for the requested
raster.
FALSE => no graphics library or not enough memory. *)
PROCEDURE Refresh;
PROCEDURE EndMake;
(* Cleans up the screen after demo *)
END myscreen.