(*--------------------------------------------------------------------------*
 * DefIconer | Version 1.0 | released - 24.04.94                            *
 * Creates an appmenu from which the user can give files default icons      *
 * Lee Kindness - 8 Craigmarn Rd. Portlethen. ABERDEEN AB1 4QR SCOTLAND     *
 *                                                                          *
 * AppMenu.PAS                                                              *
 *                                                                          *
 *--------------------------------------------------------------------------*)

Function InitAppIcons(VAR V : tProgVars;VAR AppPort : pMsgPort;
							VAR AppMenu : pAppMenuItem):Boolean;

VAR
	res : Boolean;
	
Begin
	res := False;
	AppPort := CreateMsgPort;
	If AppPort <> NIL then begin
		AppMenu := AddAppMenuItemA(0,0,CStrConstPtrAR(@RKey, V.TEXT),AppPort,NIL);
		If AppMenu <> NIL then
			res := true;
	end;
end;


Procedure CleanAppMenu(VAR AppPort : pMsgPort;
								VAR AppMenu : pAppMenuItem);

VAR
	mes : pMessage;
	OK : Boolean;

Begin
	OK := RemoveAppMenuItem(AppMenu);
	mes := GetMsg(AppPort);
	While mes <> NIL do begin
		ReplyMsg(mes);
		mes := GetMsg(AppPort);
	end;
	DeleteMsgPort(AppPort);
end;