paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 16:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some fixes

Browse Source
This commit is contained in:
nils 2003-02-11 20:25:55 +00:00
parent 376c1348d0
commit a572bec1d1
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/extra/amunits/otherlibs/gtlayout/examples/gttest.pas
View File

@ -85,7 +85,7 @@ begin
msgQuali := msg^.Qualifier;
msggadget := msg^.IAddress;
GT_ReplyIMsg(msg);
LT_HandleInput(handle,msgQuali,msgclass,msgcode,@msggadget);
LT_HandleInput(handle,msgQuali,@msgclass,@msgcode,@msggadget);
case msgclass of
IDCMP_CLOSEWINDOW : begin
writeln(LT_GetAttributesA(handle,33,nil));

7
packages/extra/amunits/otherlibs/triton/units/tritonmacros.pas
View File

@ -31,6 +31,9 @@
Added the define use_amiga_smartlink.
12 Jan 2003.
Changed integr > smallint.
11 Feb 2003.
nils.sjoholm@mailbox.xwipnet.se
}
@ -76,7 +79,7 @@ PROCEDURE CustomScreen(scr : Pointer);
PROCEDURE PubScreen(scr : Pointer);
PROCEDURE PubScreenName(wname : STRING);
PROCEDURE PubScreenName(wname : PChar);
PROCEDURE QuickHelpOn(onn : Integer);
PROCEDURE QuickHelpOn(onn : smallint);
{ Menus }
PROCEDURE BeginMenu(t : STRING);
PROCEDURE BeginMenu(t : PChar);
@ -514,7 +517,7 @@ BEGIN
Inc(tindex);
END;
PROCEDURE QuickHelpOn(onn : Integer);
PROCEDURE QuickHelpOn(onn : smallint);
BEGIN
tritontags[tindex].ti_Tag := TRWI_QuickHelp;
tritontags[tindex].ti_Data := longint(onn);