DEFINITION MODULE TalkMenu;
(*$ LargeVars:=FALSE *)

FROM IntuitionD	IMPORT	Menu,MenuPtr,MenuItem,IDCMPFlags,IDCMPFlagSet;

  (*
   * Menü-Aufbau:
   *
   * Project		Edit	Options
   * ======================================
   * Open Phonemes...	Reset	Save Icons?
   * Open Voice...
   * Save Phonemes...
   * Save Voice...
   * Talk
   * About
   * Quit
   *)

CONST
  idcmpFlags=IDCMPFlagSet{menuPick};

TYPE
  (* userData: *)
  MenuAction=(
    openPhonID,
    openVoiceID,
    savePhonID,
    saveVoiceID,
    talkID,
    aboutID,
    quitID,
    resetID,
    iconID
    );

  ExtItemPtr=POINTER TO RECORD
    m:MenuItem;
    user:LONGINT; (* ORD(MenuAction) *)
  END;

VAR
  (*$ LongAlign:=TRUE *)
  myMenu:MenuPtr;

END TalkMenu.def