home *** CD-ROM | disk | FTP | other *** search
- {MaxonPASCAL3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994 }
-
- PROGRAM IntMsgDemo; { erste Version }
- USES INTUITION;
-
- VAR
- Win: ^Window;
- Msg: ^IntuiMessage;
-
- BEGIN
- Win:=Open_Window(20,10, 200,80, 1, _CLOSEWINDOW,
- ACTIVATE or WINDOWCLOSE or WINDOWDEPTH or WINDOWDRAG,
- 'Schließ mich!', Nil, 100, 20, 640, 256);
- REPEAT
-
- REPEAT { auf Message warten }
- Msg:= Get_Msg(Win^.UserPort) { Schlechte Version, da immer eine }
- UNTIL Msg<> Nil; { Msg empfangen wird, benötigt zuvielc }
- { Rechenleistung, bremst andere Prozeße }
- UNTIL Msg^.Class = _CLOSEWINDOW;
- Close_Window(Win);
- CloseLib(Intuitionbase);
- END.
-