DEFINITION MODULE OptWorkbenchL{"workbench.library",-36};
(* 30-May-1993/bp *)

FROM SYSTEM IMPORT ADDRESS,BPTR,LONGSET;

FROM DosD IMPORT
 FileLockPtr;

FROM ExecD IMPORT
 Message,MsgPortPtr,Node,LibraryPtr,List;

FROM IntuitionD IMPORT
 Gadget,GadgetFlags,GadgetFlagSet,NewWindow,ScreenPtr,WindowPtr;

FROM UtilityD IMPORT
 TagItemPtr;

IMPORT
 d:WorkbenchD,R;

VAR
  workbenchVersion:INTEGER;
  workbenchBase:LibraryPtr;

CONST
  workbenchMinVersion=36;
  workbenchName="workbench.library";
(*
 Die Prozedur AddAppIconA benutzt das Register A4, und kann deshalb
 nicht in einem Interface-Modul deklariert werden. Bitte benutzen Sie
 die gleichnamige Prozedur aus dem Modul WorkbenchSupport.
*)

PROCEDURE AddAppMenuItemA(
           id{R.D0}:LONGCARD;
           userdata{R.D1}:LONGINT;
           text{R.A0}:ADDRESS;
           msgport{R.A1}:MsgPortPtr;
           taglist{R.A2}:TagItemPtr):d.AppMenuItemPtr; CODE -72;

PROCEDURE AddAppWindowA(
           id{R.D0}:LONGCARD;
           userdata{R.D1}:ADDRESS;
           window{R.A0}:WindowPtr;
           msgport{R.A1}:MsgPortPtr;
           taglist{R.A2}:TagItemPtr):d.AppWindowPtr; CODE -48;

PROCEDURE RemoveAppIcon(
           appIcon{R.A0}:d.AppIconPtr):BOOLEAN; CODE -66;

PROCEDURE RemoveAppMenuItem(
           appMenuItem{R.A0}:d.AppMenuItemPtr):BOOLEAN; CODE -78;

PROCEDURE RemoveAppWindow(
           appWindow{R.A0}:d.AppWindowPtr):BOOLEAN; CODE -54;

PROCEDURE(*39*) WBInfo(
                 lock{R.A0}:FileLockPtr;
                 name{R.A1}:ADDRESS;
                 screen{R.A2}:ScreenPtr
                 ):BOOLEAN; CODE -90;

END OptWorkbenchL.lib-36
