home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / IntMsgDemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  760 b   |  24 lines

  1. {MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. PROGRAM IntMsgDemo; { erste Version }
  4. USES INTUITION;
  5.  
  6. VAR
  7.  Win: ^Window;
  8.  Msg: ^IntuiMessage;
  9.  
  10. BEGIN
  11.   Win:=Open_Window(20,10, 200,80, 1, _CLOSEWINDOW,
  12.              ACTIVATE or WINDOWCLOSE or WINDOWDEPTH or WINDOWDRAG,
  13.              'Schließ mich!', Nil, 100, 20, 640, 256);
  14.   REPEAT
  15.  
  16.     REPEAT                            { auf Message warten                    }
  17.       Msg:= Get_Msg(Win^.UserPort)    { Schlechte Version, da immer eine      }
  18.     UNTIL Msg<> Nil;                  { Msg empfangen wird, benötigt zuvielc  }
  19.                                       { Rechenleistung, bremst andere Prozeße }
  20.   UNTIL Msg^.Class = _CLOSEWINDOW;
  21.   Close_Window(Win);
  22.   CloseLib(Intuitionbase);
  23. END.
  24.