home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 5
/
amigaformatcd05.iso
/
mui
/
developer
/
oberon
/
examples
/
rexxbox.mod
< prev
next >
Wrap
Text File
|
1996-08-13
|
1KB
|
45 lines
(*------------------------------------------
:Module. RexxBox.mod
:Author. Albert Weinert [awn]
:Address. Moltkestr. 68, 50859 Köln, Germany
:EMail. a.weinert@darkness.gun.de
:Phone. +49-221-480800
:Revision. R.0
:Date. 10-Apr-1995
:Copyright. Albert Weinert
:Language. Oberon-2
:Translator. AmigaOberon V3.20
:Contents. <Kurzbeschreibung>
:Imports. <Importiertes, Name/ShortCut des Autors>
:Remarks. <Was Du willst, evtl. Usage>
:Bugs. <Bekannte Fehler>
:Usage. <Angaben zur Anwendung>
:RCSId. $Id$
:History. .0 [awn] 10-Apr-1995 : Erstellt
--------------------------------------------*)
MODULE RexxBox;
IMPORT Mui, gui:= RexxBoxGUI,y := SYSTEM, Exec, NoGuru;
VAR
running : BOOLEAN;
signal : LONGSET;
BEGIN
running := TRUE;
WHILE running DO
CASE Mui.DOMethod( gui.app, Mui.mApplicationInput,y.ADR( signal ) ) OF
| Mui.vApplicationReturnIDQuit: running := FALSE;
ELSE END;
IF signal # LONGSET{} THEN y.SETREG( 0, Exec.Wait(signal) ) END;;
END;
END RexxBox.