(* Modul : Request *) (* Projekt : FFEX *) (* Autor : Robert Brandner *) (* Funktion: Allround-Requester, Info-Requester, Limit-Requester *) DEFINITION MODULE Request; FROM Intuition IMPORT WindowPtr,ScreenPtr; PROCEDURE Request(win:WindowPtr; VAR body,pos,neg:ARRAY OF CHAR):BOOLEAN; (* win : Requester erscheint im gleichen Screen wie win *) (* body: Requestertext. Kann mit | in mehrere Zeilen geteilt werden. *) (* pos,: Text für Bestätigungs- und Abbruchsgadget *) (* neg : (z.B. OK,CANCEL od. YES,NO ...) Für pos kann auch Leerstring *) (* übergeben werden, Requester enthält dann nur ein Gadget. *) PROCEDURE Info(win:WindowPtr); PROCEDURE GetLimits(s:ScreenPtr; VAR rmin,rmax,imin,imax:LONGREAL; VAR maxiter:LONGINT); END Request.def