(*--------------------------------------------------------------------------

:Program.    CCInitWin.DEF 
:Author.     Ralf Kaiser
:Address.    5600 Wuppertal 2, Winckelmannstr. 1 
:Phone,      02 02/59 28 10
:Shortcut.   [rk]
:Version.    2.1
:Date.       21.01.89
:Copyright.  Public Domain
:Language.   Modula 2
:Translator. M2 AMIGA Version 3.2d
:Imports.    InitStruct, Nicolas Benezan [bne]
:Contents.   Initialisiert das Window für CompControl

----------------------------------------------------------------------------*)

DEFINITION MODULE CCInitWin;

FROM SYSTEM IMPORT
 LONGSET, ADR, ADDRESS;

FROM Arts IMPORT
 Assert, TermProcedure;
 
FROM Intuition IMPORT
 GadgetFlags, GadgetFlagSet, ActivationFlags, ActivationFlagSet, 
 boolGadget, strGadget, Gadget, GadgetPtr, StringInfo, IntuiText, Border, 
 IDCMPFlags, IDCMPFlagSet, IntuiMessage, IntuiMessagePtr, WindowFlags,
 WindowFlagSet, ScreenFlags, ScreenFlagSet, NewWindow,
 WindowPtr, OpenWindow, CloseWindow, RefreshGadgets;
 
FROM Graphics IMPORT
 RastPortPtr, Move, Text, jam1, jam2;
 
FROM MemSystem IMPORT
 AllocMem, Deallocate;
 
FROM IntuiStruct IMPORT
 StructWindow, StructText, StructGadget, StructString, StructBorder,
 Rectangle, BorderEnd, AllocProc, DeallocProc;
 
 
CONST     
(*--------------------------------------------------------------------------*)

          PEN0          =    0;    (* Namen der einzelnen Farben *)
          PEN1          =    1;
          PEN2          =    2;
          PEN3          =    3;

(*--------------------------------------------------------------------------*)

          EDITG         =    0;    (* Konstanten für die GadgetID *)
          COMPG         =    1;
          LINKG         =    2;
          START         =    3;
          NAMEG         =    4;
          ALLGA         =    5;
          EXT1G         =    6;
          EXT2G         =    7;
          DOITG         =    8;
          ABOUT         =    9;
          FREQG         =    10;
          QUITG         =    11;
          
          
(*--------------------------------------------------------------------------*)  
          
          EDITT         =    "    Edit    ";  (*  Gadgettexte als Konstanten *)
          COMPT         =    "Kompilieren ";
          LINKT         =    "   Binden   ";
          STARTT        =    "  Starten   ";
          ALLTX         =    "alles zusammen ...";
          EXT1T         =    "       Endung 1         ";
          EXT2T         =    "       Endung 2         ";
          DOITT         =    "  Kommando  ";
          ABOUTT        =    " Wer wars ? ";
          FREQT         =    " neuer Name ";
          QUITT         =    "  Ende ...  ";
          
(*--------------------------------------------------------------------------*)

          MAINTITEL     =    "*SwA* CompilerController Version 2.01";
          
VAR       NewMain       :    NewWindow;
          MainWin       :    WindowPtr;
          UNDOBUFFER    :    ARRAY [0..80] OF CHAR;
          NameSIBuff    :    ARRAY [0..80] OF CHAR;
          MainGadgets   :    ARRAY [0..11] OF Gadget;
          MainBorder    :    ARRAY [0..3 ] OF Border;
          MainTexte     :    ARRAY [0..10] OF IntuiText;
          MainString    :    StringInfo;          
          

PROCEDURE Cleanup;

PROCEDURE MakeMainWindow (VAR NewWin : NewWindow);

END CCInitWin.