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

:Program.    Topimg.DEF 
:Author.     Uwe Meyer
:Address.    Alex. v. Wacker P.4, 5000 Köln 71 
:Phone,      0221/704915
:Shortcut.   [umk]
:Version.    1.0
:Date.       07.Mar-89
:Copyright.  Public Domain
:Language.   Modula II
:Translator. M2Amiga v3.2d
:Imports.    IntuiStruct, Nicolas Benezan [bne]
:Contents.   Initialisiert alle Images für Top.MOD

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


DEFINITION MODULE Topimg;


FROM Intuition IMPORT
 Image;


VAR	dirimg		: Image;			(* DIR Image       *)
        fileimg		: Image;			(* FILE Image      *)
	diskimg		: Image;			(* Disksymbolimage *)
	unprotimg	: Image;			(* Unprotected     *)
	protimg		: Image;			(* Protected	   *)


PROCEDURE DefineImages;

(* DefineImages enthält die Daten für die Directory, File und andere Imgs, *)
(* baut diese mittels der StructImage Funktion auf und exportiert sie dann *)
(* zum Hauptmodul.							   *)

END Topimg.