Kryptologie - Informatik

PROCEDURE PROCEDURE behandle_Klick_auf (VAR VAR VVAR A R pkt: point);
BEGIN
BEGIN
globalToLocal(pkt);
END E END N D; { behandle_Klick_auf }
PROCEDURE PROCEDURE behandle_Maus (event: EventRecord);
VAR V VAR A R mfenster: windowPtr;
FensterNo: Integer;
mausPunkt: Point;
BEGIN
BEGIN
mausPunkt := event.Where;
FensterNo := FindWindow(Mauspunkt, mfenster);
CASE CASE FensterNo OF
OF
InMenuBar:
Menue_bearbeiten(menuSelect(mauspunkt));
inContent:
behandle_Klick_auf(mausPunkt);
inGoAway:
hideWindow(mFenster);
OTHERWISE OTHERWISE ;
END E END N D; { CASE }
END EEND END N D; { behandle_Maus }
PROCEDURE PROCEDURE behandle_Tasten (event: EventRecord);
VAR V VAR A R key: char;
BEGIN
BEGIN
WITH WITH event DO
DO
BEGIN
BEGIN
key := chr(BitAnd(message, charCodeMask));
IF IF IIF IF F BitAnd(modifiers, cmdKey) 0 THEN
THEN
BEGIN BEGIN
BEGIN
IF I IF F key IN IN IIN IN N [‚a‘..’z’] THEN THEN
THEN
key := chr(ord(key) - 32);
Menue_bearbeiten(menuKey(key));
END EEND END N D; { IF }
END E END N D { WITH }
END E END N D; { behandle_Tasten }
PROCEDURE PROCEDURE Menue_installieren;
VAR V VAR A R hauptMenu : handle;
einMenu : menuHandle;
item : integer;
BEGIN
BEGIN
InitMenus;
hauptMenu := getNewMBar(RES_ID_NR);
setMenuBar(hauptMenu);
disposHandle(hauptMenu);
einMenu := getMHandle(RES_ID_NR);
addResMenu(einMenu, ‚DRVR‘);
drawMenuBar;
menu_zeigen(2, 4, false);
menu_zeigen(3, 0, false);
menu_zeigen(4, 0, false);
menu_zeigen(5, 0, false);
END E END N D; { Menue_installieren }
49