home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / 68000 / winh2.def < prev    next >
Encoding:
Modula Definition  |  1988-12-22  |  1.8 KB  |  51 lines
  1. (*********************************************************)
  2. (*                    WindowHelp2.def                    *)
  3. (* Module mit Hilfen für Windows,Gadgets,Screens, Images *)
  4. (* (C) 1988 Frank Schäfer & Carsten Manns & TOOLBOX      *)
  5.  
  6. DEFINITION MODULE WindowHelp2;
  7.  
  8.  
  9. FROM Exec      IMPORT UByte;
  10. FROM Graphics  IMPORT ViewModeSet;
  11. FROM Intuition IMPORT ActivationFlagSet,IDCMPFlagSet,
  12.  Image,ImagePtr,Gadget,GadgetFlagSet,GadgetPtr,
  13.  IntuiMessage,NewWindow,RememberPtr,ScreenPtr,
  14.  WindowFlagSet,WindowPtr,IntuiTextPtr;
  15. FROM SYSTEM    IMPORT ADDRESS;
  16.  
  17. PROCEDURE MakeList (VAR FirstPtr : RememberPtr;
  18.            Size : LONGCARD; Chip : BOOLEAN) : ADDRESS;
  19.  
  20. PROCEDURE GADGET (VAR NewGadget : Gadget;
  21.                   X, Y, W, H : INTEGER;
  22.                   GFlags : GadgetFlagSet;
  23.                   AFlags : ActivationFlagSet;
  24.                   I1, I2 : ImagePtr;
  25.                   Text   : IntuiTextPtr;
  26.                   Nummer : INTEGER);
  27.  
  28. PROCEDURE NearMouse (VAR Window : NewWindow);
  29.  
  30. PROCEDURE MakeImage (Start : ADDRESS; VAR Grafik : Image;
  31.                      PlaneP,PlaneO : UByte;
  32.                      VAR RamPtr : RememberPtr);
  33.  
  34. PROCEDURE SCREEN (Top,Width,Height,Depth,APen,BPen 
  35.                   : INTEGER; Mode : ViewModeSet;
  36.                   Name : ADDRESS; Vorne : BOOLEAN)
  37.                   : ScreenPtr;
  38.  
  39. PROCEDURE WaitEvent (VAR WindowPointer : WindowPtr;
  40.                       VAR Message : IntuiMessage);
  41.  
  42. PROCEDURE WINDOW (MyScreen : ScreenPtr;
  43.                   X,Y,Left,Top : INTEGER;
  44.                   BlockPen, DetailPen : UByte;
  45.                   Title : ADDRESS;
  46.                   WindowGadget : GadgetPtr;
  47.                   WindowFlags : WindowFlagSet;
  48.                   PortFlags : IDCMPFlagSet ) : WindowPtr;
  49.  
  50. END WindowHelp2.
  51.