{ MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }

PROGRAM IntMsgDemo2; { zweite Version }

USES INTUITION;

VAR
 Win: ^Window;
 Msg: ^IntuiMessage;
 Ende: Boolean;

PROCEDURE Star(x, y: integer);
  VAR IText: IntuiText;
  BEGIN
    IText:=IntuiText(3, 0, 0, -4, -4, Nil, '*', Nil);
    PrintIText(Win^.RPort, ^Itext, x, y)
  END;

BEGIN
  Win:=Open_Window(20,10, 300,80, 1, _CLOSEWINDOW or MOUSEBUTTONS,
             ACTIVATE or WINDOWCLOSE or WINDOWDEPTH or WINDOWDRAG,
             'Schließ mich! Version 2.0', Nil, 100, 20, 640, 256);
  ENDe:= false;
 
  REPEAT
    { auf Nachricht warten: }
    Msg:= Wait_Port(Win^.UserPort);
    Msg:= Get_Msg(Win^.UserPort);

    Case Msg^.Class Of
     _CLOSEWINDOW: Ende:=true;
     MOUSEBUTTONS: Star(Msg^.MouseX, Msg^.MouseY)
    Otherwise;   {oder ELSE;}
      { unbekannte Message empfangen }
    END;

    Reply_Msg(Msg);   { Nachricht als ausgewertet kennzeichnen }

  UNTIL Ende;
  Close_Window(Win);
  CloseLib(IntuitionBase);
END.