* some fixes

packages/extra/amunits/otherlibs/gtlayout/examples/gttest.pas

@@ -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));

packages/extra/amunits/otherlibs/triton/units/tritonmacros.pas

@@ -31,6 +31,9 @@
     Added the define use_amiga_smartlink.
     12 Jan 2003.
     
+    Changed integr > smallint.
+    11 Feb 2003.
+    
     [email protected]
 }
 
@@ -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);