home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / dev / gui / mui31dev.lha / MUI / Developer / Oberon / examples / RexxBoxGUI.mod < prev    next >
Encoding:
Text File  |  1995-11-19  |  1.3 KB  |  49 lines
  1. (*------------------------------------------
  2.  
  3.   :Module.      RexxBoxGUI.mod
  4.   :Author.      Albert Weinert  [awn]
  5.   :Address.     Moltkestr. 68; 50859 Köln
  6.   :EMail.       a.weinert@darkness.gun.de
  7.   :Phone.       +49-221-480800
  8.   :Revision.    R.0
  9.   :Date.        10-Apr-1995
  10.   :Copyright.   Albert Weinert
  11.   :Language.    Oberon-2
  12.   :Translator.  AmigaOberon V3.20
  13.   :Contents.    <Kurzbeschreibung>
  14.   :Imports.     <Importiertes, Name/ShortCut des Autors>
  15.   :Remarks.     <Was Du willst, evtl. Usage>
  16.   :Bugs.        <Bekannte Fehler>
  17.   :Usage.       <Angaben zur Anwendung>
  18.   :RCSId.       $Id$
  19.   :History.     .0     [awn] 10-Apr-1995 : Erstellt
  20.  
  21. --------------------------------------------*)
  22. MODULE RexxBoxGUI;
  23.  
  24. IMPORT
  25.   e  := Exec,
  26.   I  := Intuition,
  27.   m  := Mui,
  28.   mw := RBMainWindowClass,
  29.   ms := MuiSimple,
  30.   u := Utility,
  31.   y := SYSTEM;
  32.  
  33. VAR
  34.   app -   : m.Object;
  35.   mainWin : m.Object;
  36. BEGIN
  37.   mainWin := I.NewObject( mw.class, NIL,
  38.               m.aWindowTitle, y.ADR( "RexxBox Hauptfenster" ),
  39.               u.end );
  40.  
  41.   app := ms.ApplicationObject( m.aApplicationTitle, y.ADR("RexxBox"),
  42.                    m.aApplicationBase, y.ADR("REXXBOX"),
  43.                    m.aApplicationWindow, mainWin,
  44.                    u.end );
  45.   ms.Set( mainWin, m.aWindowOpen, e.true );
  46. CLOSE
  47.   IF app # NIL THEN m.DisposeObject( app ) END;
  48. END RexxBoxGUI.
  49.