(******************************************************************************) (* This MODULE is Public Domain. Copy me like a beast! *) (* Christian Ledermann *) (* W”lfelkofen 2 *) (* 84166 Adlkofen *) (******************************************************************************) (* *) (* Started: 20.12.92 03:54:30 *) (* Version: 20.12.89 00:164:12:54 *) (* *) (******************************************************************************) (* *) (* Diese Software ist ohne jede Garantie. Ich verspreche *) (* keinerlei Wartung und bernehme keine Verantwortung fr Sch„den die *) (* durch die Benutzung dieses Programmes entstehen. *) (* Jegliche Ersatzansprche lehne ich ab. *) (* *) (******************************************************************************) DEFINITION MODULE MenuEvnt; FROM SYSTEM IMPORT ADDRESS; CONST MINDMENU = 0; (* TREE *) DESK = 3; (* OBJECT in TREE #0 *) ABOUT = 10; (* OBJECT in TREE #0 *) DATEI = 4; (* OBJECT in TREE #0 *) LOAD = 21; (* OBJECT in TREE #0 *) SAVE = 22; (* OBJECT in TREE #0 *) EDIT = 23; (* OBJECT in TREE #0 *) QUIT = 20; (* OBJECT in TREE #0 *) SESSION = 5; (* OBJECT in TREE #0 *) OPTIONS = 6; (* OBJECT in TREE #0 *) EXTRAS = 7; (* OBJECT in TREE #0 *) HELP = 45; (* OBJECT in TREE #0 *) EARTHHAR = 28; (* OBJECT in TREE #0 *) MBEDIT = 1; (* TREE *) ANFREQ = 1; (* OBJECT in TREE #1 *) ENDFREQ = 2; (* OBJECT in TREE #1 *) GESCHWIN = 3; (* OBJECT in TREE #1 *) A1 = 5; (* OBJECT in TREE #1 *) A2 = 6; (* OBJECT in TREE #1 *) A3 = 7; (* OBJECT in TREE #1 *) A4 = 8; (* OBJECT in TREE #1 *) TEST = 43; (* OBJECT in TREE #0 *) OKAY = 14; (* OBJECT in TREE #1 *) CANCEL = 13; (* OBJECT in TREE #1 *) ANREGUNG = 29; (* OBJECT in TREE #0 *) A5 = 9; (* OBJECT in TREE #1 *) A6 = 10; (* OBJECT in TREE #1 *) A7 = 11; (* OBJECT in TREE #1 *) A8 = 12; (* OBJECT in TREE #1 *) B1 = 16; (* OBJECT in TREE #1 *) B2 = 17; (* OBJECT in TREE #1 *) B3 = 18; (* OBJECT in TREE #1 *) B4 = 19; (* OBJECT in TREE #1 *) B5 = 20; (* OBJECT in TREE #1 *) B6 = 21; (* OBJECT in TREE #1 *) B7 = 22; (* OBJECT in TREE #1 *) B8 = 23; (* OBJECT in TREE #1 *) C1 = 25; (* OBJECT in TREE #1 *) C2 = 26; (* OBJECT in TREE #1 *) C3 = 27; (* OBJECT in TREE #1 *) C4 = 28; (* OBJECT in TREE #1 *) C5 = 29; (* OBJECT in TREE #1 *) C6 = 30; (* OBJECT in TREE #1 *) C7 = 31; (* OBJECT in TREE #1 *) C8 = 32; (* OBJECT in TREE #1 *) D1 = 34; (* OBJECT in TREE #1 *) D2 = 35; (* OBJECT in TREE #1 *) D3 = 36; (* OBJECT in TREE #1 *) D4 = 37; (* OBJECT in TREE #1 *) D5 = 38; (* OBJECT in TREE #1 *) D6 = 39; (* OBJECT in TREE #1 *) D7 = 40; (* OBJECT in TREE #1 *) D8 = 41; (* OBJECT in TREE #1 *) NEXT = 42; (* OBJECT in TREE #1 *) XSESSION = 31; (* OBJECT in TREE #0 *) PREVIOUS = 43; (* OBJECT in TREE #1 *) TON = 39; (* OBJECT in TREE #0 *) LEDS = 40; (* OBJECT in TREE #0 *) MAGNET = 41; (* OBJECT in TREE #0 *) BUECHER = 46; (* OBJECT in TREE #0 *) HARDWARE = 47; (* OBJECT in TREE #0 *) INSERT = 44; (* OBJECT in TREE #1 *) DELETE = 45; (* OBJECT in TREE #1 *) NEW = 25; (* OBJECT in TREE #0 *) MERGE = 24; (* OBJECT in TREE #0 *) DAUER = 46; (* OBJECT in TREE #1 *) VERLAUF = 32; (* OBJECT in TREE #0 *) STEPXOFN = 48; (* OBJECT in TREE #1 *) SOUNDDIA = 2; (* TREE *) ABOUTDIA = 3; (* TREE *) LITERDIA = 4; (* TREE *) GEGENDIA = 5; (* TREE *) HARDWDIA = 6; (* TREE *) GEGENANZ = 48; (* OBJECT in TREE #0 *) HARALDW = 34; (* OBJECT in TREE #0 *) HYPNOSYN = 35; (* OBJECT in TREE #0 *) MIDSUMME = 33; (* OBJECT in TREE #0 *) ALLGBENU = 36; (* OBJECT in TREE #0 *) RUHEWACH = 37; (* OBJECT in TREE #0 *)  PROCEDURE MenueEreignis(msgret:INTEGER;menueadresse:ADDRESS):BOOLEAN; END MenuEvnt.