paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 03:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

amunits: since amsgbox is not used in unit initializations any more, make it depend on intuition and not redefinine EasyRequestArgs

Browse Source 
git-svn-id: trunk@34397 -
This commit is contained in:
Károly Balogh 2016-08-30 12:46:19 +00:00
parent 57042351e5
commit ee8fb64a99
1 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/amunits/src/utilunits/amsgbox.pas
View File

@ -34,18 +34,8 @@ function MessageBox(const tit,txt,gad:pchar): LongInt;
implementation
type
pEasyStruct = ^tEasyStruct;
tEasyStruct = record
es_StructSize : longint; { should be sizeof (struct EasyStruct )}
es_Flags : longint; { should be 0 for now }
es_Title : pchar; { title of requester window }
es_TextFormat : pchar; { 'printf' style formatting string }
es_GadgetFormat : pchar; { 'printf' style formatting string }
END;
FUNCTION EasyRequestArgs(window : pointer location 'a0'; easyStruct : pEasyStruct location 'a1'; idcmpPtr : longint location 'a2'; args : POINTER location 'a3') : LONGINT; syscall _IntuitionBase 588;
uses
intuition;
FUNCTION MessageBox(const tit,txt,gad:RawByteString): LongInt;
begin
@ -66,7 +56,7 @@ BEGIN
MyStruct.es_Title:=(tit);
MyStruct.es_TextFormat:=(txt);
MyStruct.es_GadgetFormat:=(gad);
MessageBox := EasyRequestArgs(nil,@MyStruct,0,NIL);
MessageBox := EasyRequestArgs(nil,@MyStruct,NIL,NIL);
END;
end.