home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
compressed
/
development
/
gaded20demo.lha
/
Modula-2
/
Test.def
next >
Wrap
Text File
|
1993-10-13
|
3KB
|
88 lines
DEFINITION MODULE Test;
(* Erstellt mit GadEd V1.10 *)
(* Geschrieben von Michael Neumann und Thomas Patschinski *)
FROM ExecD IMPORT List;
FROM IntuitionD IMPORT WindowPtr,GadgetPtr,ScreenPtr,MenuPtr;
FROM UtilityD IMPORT tagUser,TagItemPtr;
CONST
(* Proc000-Requester *)
(* Gadget Lables *)
Proc000GadEdGadget000 = 0;
Proc000GadEdGadget001 = 1;
Proc000GadEdGadget002 = 2;
Proc000GadEdGadget003 = 3;
Proc000GadEdGadget004 = 4;
Proc000GadEdGadget005 = 5;
Proc000GadEdGadget006 = 6;
Proc000GadEdGadget007 = 7;
Proc000GadEdGadget008 = 8;
Proc000GadEdGadget009 = 9;
Proc000GadEdGadget010 = 10;
Proc000GadEdGadget011 = 11;
Proc000GadEdGadget012 = 12;
Proc000GadEdGadget013 = 13;
Proc000GadEdGadget014 = 14;
Proc000GadEdGadget015 = 15;
Proc000GadEdGadget016 = 16;
Proc000GadEdGadget017 = 17;
Proc000GadEdGadget018 = 18;
Proc000GadEdGadget019 = 19;
Proc000GadEdGadget020 = 20;
Proc000GadEdGadget021 = 21;
Proc000GadEdGadget022 = 22;
Proc000GadEdGadget023 = 23;
Proc000GadEdGadget024 = 24;
Proc000GadEdGadget025 = 25;
Proc000GadEdGadget026 = 26;
Proc000GadEdGadget027 = 27;
(* Menü Lables *)
Proc000GadEdTitel000 = 0;
Proc000GadEdItem000 = 0;
Proc000GadEdItem001 = 2;
Proc000GadEdItem002 = 3;
Proc000GadEdItem003 = 5;
Proc000GadEdTitel001 = 1;
Proc000GadEdItem004 = 0;
Proc000GadEdItem005 = 1;
Proc000GadEdItem006 = 2;
Proc000GadEdTitel002 = 2;
Proc000GadEdItem007 = 0;
Proc000GadEdSub000 = 0;
Proc000GadEdSub001 = 2;
Proc000GadEdItem008 = 1;
Proc000GadEdItem009 = 2;
Proc000GadEdItem010 = 3;
Proc000GadEdItem011 = 5;
Proc000GadEdItem012 = 6;
Proc000GadEdTitel003 = 3;
Proc000GadEdItem013 = 0;
Proc000GadEdItem014 = 1;
Proc000GadEdItem015 = 3;
Proc000GadEdSub002 = 0;
Proc000GadEdSub003 = 1;
VAR
ListViewList0: ARRAY [0..1] OF List;
Menu0: MenuPtr;
PROCEDURE InitTest(S: ScreenPtr;UserTags:TagItemPtr): BOOLEAN;
PROCEDURE RefreshProc000;
PROCEDURE InitProc000Mask(UserTags:TagItemPtr): WindowPtr;
PROCEDURE GetProc000GPtr(Nummer:INTEGER): GadgetPtr;
PROCEDURE CloseProc000Mask;
PROCEDURE FreeTest;
END Test.