* update check internal log

packages/extra/amunits/units/intuition.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -14,10 +14,33 @@
 
  **********************************************************************}
 
+
+{
+   History:
+   Changed tNewWindow.MaxHeigth and tNewWindow.MaxWidth
+   from Word to Integer.
+   30 May 2000.
+
+   Added overlay functions for Pchar->Strings, functions
+   and procedures.
+   14 Jul 2000.
+
+   Added functions and procedures with array of const.
+   For use with fpc 1.0.7 They are in systemvartags.
+   05 Nov 2002.
+
+   Removed amigaoverlays, use smartlink instead.
+   05 Nov 2002.
+   
+   [email protected] Nils Sjoholm
+
+}
+
 unit intuition;
 
 INTERFACE
 
+
 uses exec, graphics, utility, inputevent, timer, layers;
 
 {
@@ -1067,7 +1090,7 @@ Type
         MinWidth,
         MinHeight       : Integer;        { minimum sizes }
         MaxWidth,
-        MaxHeight       : Word;        { maximum sizes }
+        MaxHeight       : Integer;        { maximum sizes }
 
         Flags           : ULONG;      { see below for defines }
 
@@ -1312,7 +1335,7 @@ Type
         MinWidth,
         MinHeight       : Integer;        { minimums }
         MaxWidth,
-        MaxHeight       : Word;        { maximums }
+        MaxHeight       : Integer;        { maximums }
 
     { the type variable describes the Screen in which you want this Window to
      * open.  The type value can either be CUSTOMSCREEN or one of the
@@ -3889,8 +3912,23 @@ function ITEMNUM( n : Word): Word;
 function MENUNUM( n : Word): Word;
 function SUBNUM( n : Word): Word;
 
+FUNCTION DisplayAlert(alertNumber : ULONG; string_ : string; height : ULONG) : BOOLEAN;
+FUNCTION LockPubScreen(name : string) : pScreen;
+FUNCTION MakeClass(classID : string; superClassID : pCHAR; superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
+FUNCTION MakeClass(classID : pCHAR; superClassID : string; superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
+FUNCTION MakeClass(classID : string; superClassID : string; superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
+FUNCTION NewObjectA(classPtr : pIClass; classID : string; tagList : pTagItem) : POINTER;
+PROCEDURE SetDefaultPubScreen(name : string);
+PROCEDURE SetWindowTitles(window : pWindow; windowTitle : string; screenTitle : pCHAR);
+PROCEDURE SetWindowTitles(window : pWindow; windowTitle : pCHAR; screenTitle : string);
+PROCEDURE SetWindowTitles(window : pWindow; windowTitle : string; screenTitle : string);
+FUNCTION TimedDisplayAlert(alertNumber : ULONG; string_ : string; height : ULONG; time : ULONG) : BOOLEAN;
+PROCEDURE UnlockPubScreen(name : string; screen : pScreen);
+
 IMPLEMENTATION
 
+uses pastoc;
+
 function INST_DATA (cl: pIClass; o: p_Object): Pointer;
 begin
     INST_DATA := Pointer(Longint(o) + cl^.cl_InstOffset);
@@ -5604,9 +5642,78 @@ BEGIN
   END;
 END;
 
+
+FUNCTION DisplayAlert(alertNumber : ULONG; string_ : string; height : ULONG) : BOOLEAN;
+begin
+      DisplayAlert := DisplayAlert(alertNumber,pas2c(string_),height);
+end;
+
+FUNCTION LockPubScreen(name : string) : pScreen;
+begin
+      LockPubScreen := LockPubScreen(pas2c(name));
+end;
+
+FUNCTION MakeClass(classID : string; superClassID : pCHAR; superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
+begin
+      MakeClass := MakeClass(pas2c(classID),superClassID,superClassPtr,instanceSize,flags);
+end;
+
+FUNCTION MakeClass(classID : pCHAR; superClassID : string; superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
+begin
+      MakeClass := MakeClass(classID,pas2c(superClassID),superClassPtr,instanceSize,flags); 
+end;
+
+FUNCTION MakeClass(classID : string; superClassID : string; superClassPtr : pIClass; instanceSize : ULONG; flags : ULONG) : pIClass;
+begin
+      MakeClass := MakeClass(pas2c(classID),pas2c(superClassID),superClassPtr,instanceSize,flags);
+end;
+
+FUNCTION NewObjectA(classPtr : pIClass; classID : string; tagList : pTagItem) : POINTER;
+begin
+      NewObjectA := NewObjectA(classPtr,pas2c(classID),taglist);
+end;
+
+PROCEDURE SetDefaultPubScreen(name : string);
+begin
+      SetDefaultPubScreen(pas2c(name)); 
+end;
+
+PROCEDURE SetWindowTitles(window : pWindow; windowTitle : string; screenTitle : pCHAR);
+begin
+      SetWindowTitles(window,pas2c(windowTitle),screenTitle);
+end;
+
+PROCEDURE SetWindowTitles(window : pWindow; windowTitle : pCHAR; screenTitle : string);
+begin
+      SetWindowTitles(window,windowTitle,pas2c(screenTitle));
+end;
+
+PROCEDURE SetWindowTitles(window : pWindow; windowTitle : string; screenTitle : string);
+begin
+      SetWindowTitles(window,pas2c(windowTitle),pas2c(screenTitle));
+end;
+
+FUNCTION TimedDisplayAlert(alertNumber : ULONG; string_ : string; height : ULONG; time : ULONG) : BOOLEAN;
+begin
+      TimedDisplayAlert := TimedDisplayAlert(alertNumber,pas2c(string_),height,time);
+end;
+
+PROCEDURE UnlockPubScreen(name : string; screen : pScreen);
+begin
+      UnlockPubScreen(pas2c(name),screen);
+end;
+
+
 END. (* UNIT INTUITION *)
 
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:42  nils
+    * update check internal log
+
+}
 
+  
 
 
 

packages/extra/amunits/units/layers.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -63,6 +63,8 @@ const
  LAYERS_NOBACKFILL      = 1;
  LAYERS_BACKFILL        = 0;
 
+ LAYERSNAME : PChar = 'layers.library';
+
 VAR LayersBase : pLibrary;
 
 FUNCTION BeginUpdate(l : pLayer) : LONGINT;
@@ -529,3 +531,12 @@ BEGIN
 END;
 
 END. (* UNIT LAYERS *)
+
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:46  nils
+    * update check internal log
+
+}
+
+  

packages/extra/amunits/units/locale.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -14,6 +14,17 @@
 
  **********************************************************************}
 
+{
+    History:
+
+    Added functions and procedures with array of const.
+    For use with fpc 1.0.7. They are in systemvartags.
+    11 Nov 2002.
+    
+    [email protected]
+}
+
+
 UNIT locale;
 
 INTERFACE
@@ -267,6 +278,7 @@ FUNCTION ParseDate(locale : pLocale; date : pDateStamp; fmtTemplate : pCHAR; get
 FUNCTION StrConvert(locale : pLocale; string1 : pCHAR; buffer : POINTER; bufferSize : ULONG; typ : ULONG) : ULONG;
 FUNCTION StrnCmp(locale : pLocale; string1 : pCHAR; string2 : pCHAR; length : LONGINT; typ : ULONG) : LONGINT;
 
+
 IMPLEMENTATION
 
 PROCEDURE CloseCatalog(catalog : pCatalog);
@@ -626,3 +638,12 @@ BEGIN
 END;
 
 END. (* UNIT LOCALE *)
+
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:46  nils
+    * update check internal log
+
+}
+
+  

packages/extra/amunits/units/lowlevel.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -14,6 +14,17 @@
 
  **********************************************************************}
 
+{
+    History:
+
+    Added functions and procedures with array of const.
+    For use with fpc 1.0.7. Thay are in systemvartags.
+    11 Nov 2002.
+
+    [email protected]
+}
+
+
 UNIT lowlevel;
 
 INTERFACE
@@ -30,6 +41,9 @@ Type
 {***************************************************************************}
 
 Const
+
+ LOWLEVELNAME : PChar = 'lowlevel.library';
+
 { bits in the return value of GetKey() }
  LLKB_LSHIFT     = 16;
  LLKB_RSHIFT     = 17;
@@ -257,8 +271,11 @@ PROCEDURE StartTimerInt(intHandle : POINTER; timeInterval : ULONG; continuous :
 PROCEDURE StopTimerInt(intHandle : POINTER);
 FUNCTION SystemControlA(tagList : pTagItem) : ULONG;
 
+
 IMPLEMENTATION
 
+uses msgbox;
+
 FUNCTION AddKBInt(intRoutine : POINTER; intData : POINTER) : POINTER;
 BEGIN
   ASM
@@ -441,6 +458,46 @@ BEGIN
   END;
 END;
 
+var
+    lowlevel_exit : pointer;
+
+procedure CloseLowLevelLibrary;
+begin
+    ExitProc := LowLevel_exit;
+    if LowLevelBase <> nil then begin
+       CloseLibrary(LowLevelBase);
+       LowLevelBase := nil;
+    end;
+end;
+
+const
+    VERSION : string[2] = '37';
+
+begin
+    LowLevelBase := nil;
+    LowLevelBase := OpenLibrary(LOWLEVELNAME,37);
+    if LowLevelBase <> nil then begin
+       LowLevel_exit := ExitProc;
+       ExitProc := @CloseLowLevelLibrary;
+    end else begin
+        MessageBox('FPC Pascal Error',
+                   'Can''t open LowLevel.library version ' +
+                   VERSION +
+                   chr(10) + 
+                   'Deallocating resources and closing down',
+                   'Oops');
+       halt(20);
+    end;
+
+
 END. (* UNIT LOWLEVEL *)
 
 
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:46  nils
+    * update check internal log
+
+}
+
+  

packages/extra/amunits/units/realtime.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -14,6 +14,17 @@
 
  **********************************************************************}
 
+{
+    History:
+
+    Added functions and procedures with array of const.
+    For use with fpc 1.0.7. They are in systemvartags.
+    11 Nov 2002.
+    
+    [email protected]
+}
+
+
 UNIT realtime;
 
 INTERFACE
@@ -224,6 +235,7 @@ FUNCTION SetConductorState(player : pPlayer; state : ULONG; time : LONGINT) : LO
 FUNCTION SetPlayerAttrsA(player : pPlayer; tagList : pTagItem) : BOOLEAN;
 PROCEDURE UnlockRealTime(lock : POINTER);
 
+
 IMPLEMENTATION
 
 FUNCTION CreatePlayerA(tagList : pTagItem) : pPlayer;
@@ -357,3 +369,12 @@ BEGIN
 END;
 
 END. (* UNIT REALTIME *)
+
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:46  nils
+    * update check internal log
+
+}
+
+  

packages/extra/amunits/units/rexx.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -13,14 +13,27 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-
+{
+    History:
+    Added overlay functions for Pchar->Strings, functions
+    and procedures.
+    14 Jul 2000.
+    
+    Removed amigaoverlays, use smartlink instead.
+    05 Nov 2002.
+
+    [email protected]
+}
 
 UNIT rexx;
 
 INTERFACE
+
+
 USES exec;
 
 
+
 { === rexx/storage.h ==================================================
  *
  * Copyright (c) 1986, 1987 by William S. Hawes (All Rights Reserved)
@@ -162,7 +175,7 @@ Const
     RXCODEMASK      = $FF000000;
     RXARGMASK       = $0000000F;
 
-{ The RexxRsrc structure is used to manage global resources.  Each node
+{ The RexxRsrc structure is used to manage global resources.  Each node 
  * has a name string created as a RexxArg structure, and the total size
  * of the node is saved in the "rr_Size" field.  The REXX systems library
  * provides functions to allocate and release resource nodes.  If special
@@ -442,7 +455,7 @@ Const
     CTB_REXXSPC = 5;            { REXX special symbols          }
     CTB_UPPER   = 6;            { UPPERCASE alphabetic          }
     CTB_LOWER   = 7;            { lowercase alphabetic          }
-
+                                                                      
 { Attribute flags                                                      }
 
     CTF_SPACE   = 1;
@@ -468,8 +481,18 @@ FUNCTION LengthArgstring(argstring : pCHAR) : ULONG;
 PROCEDURE LockRexxBase(resource : ULONG);
 PROCEDURE UnlockRexxBase(resource : ULONG);
 
+FUNCTION CreateArgstring(argstring : string; length : ULONG) : pCHAR;
+FUNCTION CreateRexxMsg(port : pMsgPort; extension : string; host : pCHAR) : pRexxMsg;
+FUNCTION CreateRexxMsg(port : pMsgPort; extension : pCHAR; host : string) : pRexxMsg;
+FUNCTION CreateRexxMsg(port : pMsgPort; extension : string; host : string) : pRexxMsg;
+PROCEDURE DeleteArgstring(argstring : string);
+FUNCTION LengthArgstring(argstring : string) : ULONG;
+
 IMPLEMENTATION
 
+uses pastoc;
+
+
 PROCEDURE ClearRexxMsg(msgptr : pRexxMsg; count : ULONG);
 BEGIN
   ASM
@@ -597,4 +620,45 @@ BEGIN
   END;
 END;
 
+
+FUNCTION CreateArgstring(argstring : string; length : ULONG) : pCHAR;
+begin
+       CreateArgstring := CreateArgstring(pas2c(argstring),length);
+end;
+
+FUNCTION CreateRexxMsg(port : pMsgPort; extension : string; host : pCHAR) : pRexxMsg;
+begin
+       CreateRexxMsg := CreateRexxMsg(port,pas2c(extension),host);
+end;
+
+FUNCTION CreateRexxMsg(port : pMsgPort; extension : pCHAR; host : string) : pRexxMsg;
+begin
+       CreateRexxMsg := CreateRexxMsg(port,extension,pas2c(host));
+end;
+
+FUNCTION CreateRexxMsg(port : pMsgPort; extension : string; host : string) : pRexxMsg;
+begin
+       CreateRexxMsg := CreateRexxMsg(port,pas2c(extension),pas2c(host));
+end;
+
+PROCEDURE DeleteArgstring(argstring : string);
+begin
+       DeleteArgstring(pas2c(argstring));
+end;
+
+FUNCTION LengthArgstring(argstring : string) : ULONG;
+begin
+       LengthArgstring := LengthArgstring(pas2c(argstring));
+end;
+
+
 END. (* UNIT REXXSYSLIB *)
+
+{
+  $Log$
+  Revision 1.3  2002-11-19 18:47:47  nils
+    * update check internal log
+
+}
+
+  

packages/extra/amunits/units/timer.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -14,6 +14,15 @@
 
  **********************************************************************}
 
+{
+    History:
+    Removed the var for all functions.
+    06 Sep 2000.
+
+    [email protected]
+
+}
+
 unit timer;
 
 INTERFACE
@@ -71,15 +80,15 @@ Const
 var
     TimerBase   : Pointer;
 
-Procedure AddTime(VAR Dest, Source : ptimeval);
-Function CmpTime(VAR Dest, Source : ptimeval) : ULONG;
-Procedure SubTime(VAR Dest, Source : ptimeval);
+Procedure AddTime( Dest, Source : ptimeval);
+Function CmpTime( Dest, Source : ptimeval) : ULONG;
+Procedure SubTime( Dest, Source : ptimeval);
 function ReadEClock(Dest : pEClockVal): longint;
-procedure GetSysTime(Dest : ptimeval);
+procedure GetSysTime( Dest : ptimeval);
 
 IMPLEMENTATION
 
-Procedure AddTime(VAR Dest, Source : ptimeval);
+Procedure AddTime( Dest, Source : ptimeval);
 begin
    asm
        MOVE.L  A6,-(A7)
@@ -91,7 +100,7 @@ begin
    end;
 end;
 
-Function CmpTime(VAR Dest, Source : ptimeval) : ULONG;
+Function CmpTime( Dest, Source : ptimeval) : ULONG;
 begin
    asm
        MOVE.L  A6,-(A7)
@@ -104,7 +113,7 @@ begin
    end;
 end;
 
-Procedure SubTime(VAR Dest, Source : ptimeval);
+Procedure SubTime( Dest, Source : ptimeval);
 begin
    asm
        MOVE.L  A6,-(A7)
@@ -128,7 +137,7 @@ begin
    end;
 end;
 
-procedure GetSysTime(Dest : ptimeval);
+procedure GetSysTime( Dest : ptimeval);
 begin
    asm
        MOVE.L  A6,-(A7)
@@ -142,7 +151,13 @@ end;
 
 end.
 
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:47  nils
+    * update check internal log
 
+}
+  
 
 
 

packages/extra/amunits/units/utility.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -14,6 +14,16 @@
 
  **********************************************************************}
 
+{
+    History:
+
+    Added functions and procedures with array of const.
+    For use with fpc 1.0.7. Thay are in systemvartags.
+    11 Nov 2002.
+
+    [email protected]
+}
+
 unit utility;
 
 INTERFACE
@@ -379,6 +389,7 @@ function UnpackStructureTags(pac: APTR;
                              packTable: Pointer;
                              TagList : pTagItem) : ULONG;
 
+
 IMPLEMENTATION
 
 function AddNamedObject(nameSpace,
@@ -901,7 +912,14 @@ end;
 end.
 
 
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:47  nils
+    * update check internal log
+
+}
 
+  
 
 
 

packages/extra/amunits/units/workbench.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
 
     A file in Amiga system run time library.
-    Copyright (c) 1998 by Nils Sjoholm
+    Copyright (c) 1998-2002 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -13,6 +13,29 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{
+    History:
+    Added overlay functions for Pchar->Strings, functions
+    and procedures.
+    14 Jul 2000.
+
+    Changed tWBArg.wa_Lock from a pointer to a longint.
+    15 Aug 2000.
+
+    Fixed tDiskObject.
+    Member tDiskObject.do_CurrentX was defined as a pointer,
+    should be longint.
+    17 Aug 2000.
+ 
+    Added functions and procedures with array of const.
+    For use with fpc 1.0.7. Thay are in systemvartags.
+    05 Nov 2002.
+
+    Removed amigaoverlays, use smartlink instead.
+    05 Nov 2002.
+
+    [email protected]
+}
 
 unit workbench;
 
@@ -21,11 +44,12 @@ INTERFACE
 uses exec,amigados,utility, intuition;
 
 
+
 Type
 
     pWBArg = ^tWBArg;
     tWBArg = record
-        wa_Lock         : Pointer;      { a lock descriptor }
+        wa_Lock         : longint;      { a lock descriptor }
         wa_Name         : STRPTR;       { a string relative to that lock }
     end;
 
@@ -97,7 +121,7 @@ Type
         do_Type         : Byte;
         do_DefaultTool  : STRPTR;
         do_ToolTypes    : Pointer;
-        do_CurrentX     : Pointer;
+        do_CurrentX     : Longint;
         do_CurrentY     : Longint;
         do_DrawerData   : pDrawerData;
         do_ToolWindow   : STRPTR;       { only applies to tools }
@@ -211,23 +235,29 @@ CONST
 VAR
     WorkbenchBase : pLibrary;
 
-FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text : pCHAR; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject; taglist : pTagItem) : pAppIcon;
-FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text : pCHAR; msgport : pMsgPort; taglist : pTagItem) : pAppMenuItem;
+FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject; taglist : pTagItem) : pAppIcon;
+FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; taglist : pTagItem) : pAppMenuItem;
 FUNCTION AddAppWindowA(id : ULONG; userdata : ULONG; window : pWindow; msgport : pMsgPort; taglist : pTagItem) : pAppWindow;
 FUNCTION RemoveAppIcon(appIcon : pAppIcon) : BOOLEAN;
 FUNCTION RemoveAppMenuItem(appMenuItem : pAppMenuItem) : BOOLEAN;
 FUNCTION RemoveAppWindow(appWindow : pAppWindow) : BOOLEAN;
 PROCEDURE WBInfo(lock : BPTR; name : pCHAR; screen : pScreen);
 
+FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : string; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject; taglist : pTagItem) : pAppIcon;
+FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text_ : string; msgport : pMsgPort; taglist : pTagItem) : pAppMenuItem;
+PROCEDURE WBInfo(lock : BPTR; name : string; screen : pScreen);
+
 IMPLEMENTATION
 
-FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text : pCHAR; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject; taglist : pTagItem) : pAppIcon;
+uses pastoc;
+
+FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject; taglist : pTagItem) : pAppIcon;
 BEGIN
   ASM
     MOVE.L  A6,-(A7)
     MOVE.L  id,D0
     MOVE.L  userdata,D1
-    MOVEA.L text,A0
+    MOVEA.L text_,A0
     MOVEA.L msgport,A1
     MOVEA.L lock,A2
     MOVEA.L diskobj,A3
@@ -239,13 +269,13 @@ BEGIN
   END;
 END;
 
-FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text : pCHAR; msgport : pMsgPort; taglist : pTagItem) : pAppMenuItem;
+FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; taglist : pTagItem) : pAppMenuItem;
 BEGIN
   ASM
     MOVE.L  A6,-(A7)
     MOVE.L  id,D0
     MOVE.L  userdata,D1
-    MOVEA.L text,A0
+    MOVEA.L text_,A0
     MOVEA.L msgport,A1
     MOVEA.L taglist,A2
     MOVEA.L WorkbenchBase,A6
@@ -329,7 +359,30 @@ BEGIN
   END;
 END;
 
+FUNCTION AddAppIconA(id : ULONG; userdata : ULONG; text_ : string; msgport : pMsgPort; lock : pFileLock; diskobj : pDiskObject; taglist : pTagItem) : pAppIcon;
+begin
+       AddAppIconA := AddAppIconA(id,userdata,pas2c(text_),msgport,lock,diskobj,taglist);
+end;
+
+FUNCTION AddAppMenuItemA(id : ULONG; userdata : ULONG; text_ : string; msgport : pMsgPort; taglist : pTagItem) : pAppMenuItem;
+begin
+       AddAppMenuItemA := AddAppMenuItemA(id,userdata,pas2c(text_),msgport,taglist);
+end;
+
+PROCEDURE WBInfo(lock : BPTR; name : string; screen : pScreen);
+begin
+       WBInfo(lock,pas2c(name),screen);
+end;
+
+
 END. (* UNIT WB *)
 
+{
+  $Log$
+  Revision 1.2  2002-11-19 18:47:48  nils
+    * update check internal log
+
+}
 
+