home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / IntMsgDemo2.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  1000 b   |  43 lines
  1. { MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. PROGRAM IntMsgDemo2; { zweite Version }
  4.  
  5. USES INTUITION;
  6.  
  7. VAR
  8.  Win: ^Window;
  9.  Msg: ^IntuiMessage;
  10.  Ende: Boolean;
  11.  
  12. PROCEDURE Star(x, y: integer);
  13.   VAR IText: IntuiText;
  14.   BEGIN
  15.     IText:=IntuiText(3, 0, 0, -4, -4, Nil, '*', Nil);
  16.     PrintIText(Win^.RPort, ^Itext, x, y)
  17.   END;
  18.  
  19. BEGIN
  20.   Win:=Open_Window(20,10, 300,80, 1, _CLOSEWINDOW or MOUSEBUTTONS,
  21.              ACTIVATE or WINDOWCLOSE or WINDOWDEPTH or WINDOWDRAG,
  22.              'Schließ mich! Version 2.0', Nil, 100, 20, 640, 256);
  23.   ENDe:= false;
  24.  
  25.   REPEAT
  26.     { auf Nachricht warten: }
  27.     Msg:= Wait_Port(Win^.UserPort);
  28.     Msg:= Get_Msg(Win^.UserPort);
  29.  
  30.     Case Msg^.Class Of
  31.      _CLOSEWINDOW: Ende:=true;
  32.      MOUSEBUTTONS: Star(Msg^.MouseX, Msg^.MouseY)
  33.     Otherwise;   {oder ELSE;}
  34.       { unbekannte Message empfangen }
  35.     END;
  36.  
  37.     Reply_Msg(Msg);   { Nachricht als ausgewertet kennzeichnen }
  38.  
  39.   UNTIL Ende;
  40.   Close_Window(Win);
  41.   CloseLib(IntuitionBase);
  42. END.
  43.