(* Modul   : Menu						     *)
(* Projekt : FFEX						     *)
(* Autor   : Robert Brandner					     *)
(* Funktion: Erstellung und Unterstützung von Menüs		     *)

DEFINITION MODULE Menu;

FROM SYSTEM IMPORT ADDRESS;
FROM Intuition IMPORT WindowPtr,IntuiText;

PROCEDURE SetMenu(VAR w:WindowPtr);
PROCEDURE MenuNum(x:CARDINAL):CARDINAL;
PROCEDURE ItemNum(x:CARDINAL):CARDINAL;
PROCEDURE SubNum(x:CARDINAL):CARDINAL;
PROCEDURE NextSelect(x:CARDINAL):CARDINAL;
PROCEDURE InitText(VAR it:IntuiText; x,y:INTEGER; txt:ADDRESS);

END Menu.def