Turbo Toolbox/Turbo_Toolbox.iso/1988/05/amiga/m2amiga.1

Text File | 1988-02-17 | 1.0 KB | 32 lines

FROM Exec IMPORT
          GetMsg, ReplyMsg, WaitPort;
FROM Intuition IMPORT
          IDCMPFlags, IDCMPFlagSet, IntuiMsgPtr, WindowPtr;

VAR Win          : WindowPtr;
    InMsgPtr     : IntuiMsgPtr;
    MessageClass : IDCMPFlagSet;
    Code, Item   : CARDINAL;
...
BEGIN
   LOOP
      WITH Win^ DO
         WaitPort(userPort);         (* warten ohne CPU zu belasten*)
         InMsgPtr := GetMsg(userPort);
      END;
      WITH InMsgPt^r DO
         MessageClass := class;
         Code         := code;
      END;
      ReplyMsg(InMsgPtr);
      IF menuPick IN MessageClass THEN
         Item := Code DIV 32 MOD 64;                     (*MenuItem*)
         CASE (Code MOD 32) (*MenuNum*) OF
         ...(* entsprechend des gewaehlten Menues Unterprogramme
                                                          aufrufen *)
         ELSE
         ...
         END;
      END;
   END;