home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / moduldfs.lzh / MODULADEFS / INTUITION.DEF < prev    next >
Encoding:
Modula Definition  |  1991-08-15  |  3.4 KB  |  119 lines
  1. (*****************************************
  2.  * Name : Intuition.DEF                  *
  3.  * Purpose : interface to intuition      *
  4.  * Author : JSG                          *
  5.  *****************************************)
  6.  
  7. DEFINITION MODULE Intuition;
  8.  
  9. FROM SYSTEM IMPORT ADDRESS,BYTE;
  10.  
  11. CONST CLOSEWINDOW   =    512D;
  12.       WINDOWCLOSE   =      8D;
  13.       ACTIVATE      =   4096D;
  14.       WINDOWDRAG    =      2D;
  15.       WINDOWDEPTH   =      4D;
  16.       WINDOWSIZING  =      1D;
  17.       BORDERLESS    =   2048D;
  18.       BACKDROP      =    256D;
  19.       NOCAREREFRESH = 131072D;
  20.       CUSTOMSCREEN  =     0FH;
  21.       WBSCREEN      =     01H;
  22.       HIRES         =   8000H;
  23.       INTERLACE     =     04H;
  24.  
  25. TYPE NewWindow = RECORD
  26.                    leftEdge,
  27.                    topEdge,
  28.                    width,
  29.                    height: CARDINAL;
  30.                    detailPen,
  31.                    blockPen: BYTE;
  32.                    IDCMPFlags,
  33.                    flags: LONGINT;
  34.                    firstGadget,
  35.                    checkMark: LONGINT;
  36.                    title,
  37.                    screen,
  38.                    bitMap: ADDRESS;
  39.                    minWidth,
  40.                    minHeight,
  41.                    maxWidth,
  42.                    maxHeight: CARDINAL;
  43.                    type: CARDINAL;
  44.                  END;
  45.  
  46.     NewScreen = RECORD
  47.                   leftEdge,
  48.                   topEdge,
  49.                   width,
  50.                   height,
  51.                   depth: CARDINAL;
  52.                   detailPen,
  53.                   blockPen: BYTE;
  54.                   viewModes,
  55.                   type: CARDINAL;
  56.                   font,
  57.                   title,
  58.                   gadget,
  59.                   bitMap: ADDRESS;
  60.                 END;
  61.  
  62.     MsgPort = RECORD
  63.                 mpNode: ARRAY[0..13] OF BYTE;
  64.                 mpFlags,
  65.                 mpSigBit: BYTE;
  66.                 mpSigTask : ADDRESS;
  67.                 mpMsgList: ARRAY[0..13] OF BYTE;
  68.               END;
  69.  
  70.     Window = RECORD
  71.                NextWindow : ADDRESS;
  72.                LeftEdge,TopEdge,Width,Height : CARDINAL;
  73.                MouseY,MouseX : CARDINAL;
  74.                minWidth,minHeight,maxWidth,maxHeight : CARDINAL;
  75.                Flags : LONGINT;
  76.                MenuStrip : ADDRESS;
  77.                Title : ADDRESS;
  78.                FirstRequest,
  79.                DMRequest : ADDRESS;
  80.                ReqCount : CARDINAL;
  81.                WScreen  : ADDRESS;
  82.                Rport    : ADDRESS;
  83.                BorderLeft,BorderRight,
  84.                BorderTop,BorderBottom : BYTE;
  85.                BorderRport : ADDRESS;
  86.                FirstGadget : ADDRESS;
  87.                Parent,Descendent : ADDRESS;
  88.                Pointer : ADDRESS;
  89.                PtrHeight,PtrWidth : BYTE;
  90.                XoffSet,Yoffset : BYTE;
  91.                IDCMPflags  : LONGINT;
  92.                UserPort,WindowPort : ADDRESS;
  93.                MessageKey : ADDRESS;
  94.                DetailPen,BlockPen : BYTE;
  95.                CheckMark : ADDRESS;
  96.                ScreenTitle : ADDRESS;
  97.                GZZMouseX,GZZMouseY,
  98.                GZZWidth,GZZHeight : CARDINAL;
  99.                ExtData,UserData : ADDRESS;
  100.              END; (* Window RECORD *)
  101.  
  102.  
  103.     WindowPtr = POINTER TO Window;
  104.  
  105. PROCEDURE OpenWindow(VAR nw: NewWindow): WindowPtr;
  106. PROCEDURE CloseWindow(w: WindowPtr);
  107. PROCEDURE OpenScreen(VAR ns: NewScreen): LONGINT;
  108. PROCEDURE CloseScreen(s: LONGINT);
  109. PROCEDURE ViewPortAddress(w: WindowPtr): ADDRESS;
  110. PROCEDURE ShowTitle(scrn:LONGINT;OnOff:BOOLEAN);
  111.  
  112. END Intuition.
  113.  
  114.  
  115.  
  116.  
  117.  
  118.         
  119.