hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small update

Browse Source
This commit is contained in:
ocoursiere
2003-05-22 18:18:57 +00:00
parent da4722288e
commit 60208db643
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
bepascal/bepascal/be/app/messenger.pp
View File

@@ -28,8 +28,8 @@ type
private
public
constructor Create; override;
constructor Create(mime_sig : PChar; aTeam : TTeam_id; perr : PStatus_t);
constructor Create(handler : THandler; looper : TLooper; perr : PStatus_t);
constructor Create(mime_sig : PChar; aTeam : TTeam_id; var err : TStatus_t);
constructor Create(handler : THandler; looper : TLooper; var err : TStatus_t);
constructor Create(from : TMessenger);
destructor Destroy; override;
function IsTargetLocal : boolean;
@@ -59,8 +59,8 @@ type
end;
function BMessenger_Create(AObject : TBeObject) : TCplusObject; cdecl; external BePascalLibName name 'BMessenger_Create';
function BMessenger_Create(AObject : TBeObject; mime_sig : PChar; team : TTeam_id; perr : PStatus_t) : TCplusObject; cdecl; external BePascalLibName name 'BMessenger_Create_1';
function BMessenger_Create(AObject : TBeObject; handler : THandler; looper : TLooper; perr : PStatus_t) : TCplusObject; cdecl; external BePascalLibName name 'BMessenger_Create_2';
function BMessenger_Create(AObject : TBeObject; mime_sig : PChar; team : TTeam_id; var err : TStatus_t) : TCplusObject; cdecl; external BePascalLibName name 'BMessenger_Create_1';
function BMessenger_Create(AObject : TBeObject; handler : THandler; looper : TLooper; var err : TStatus_t) : TCplusObject; cdecl; external BePascalLibName name 'BMessenger_Create_2';
function BMessenger_Create(AObject : TBeObject; from : TMessenger) : TCplusObject; cdecl; external BePascalLibName name 'BMessenger_Create_3';
procedure BMessenger_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BMessenger_Free';
function BMessenger_IsTargetLocal(AObject : TCPlusObject) : boolean; cdecl; external BePascalLibName name 'BMessenger_IsTargetLocal';
@@ -100,14 +100,14 @@ begin
BMessenger_Create(Self);
end;
constructor TMessenger.Create(mime_sig : PChar; aTeam : TTeam_id; perr : PStatus_t);
constructor TMessenger.Create(mime_sig : PChar; aTeam : TTeam_id; var err : TStatus_t);
begin
CPlusObject := BMessenger_Create(Self, mime_sig, aTeam, perr);
CPlusObject := BMessenger_Create(Self, mime_sig, aTeam, err);
end;
constructor TMessenger.Create(handler : THandler; looper : TLooper; perr : PStatus_t);
constructor TMessenger.Create(handler : THandler; looper : TLooper; var err : TStatus_t);
begin
CPlusObject := BMessenger_Create(Self, handler, looper, perr);
CPlusObject := BMessenger_Create(Self, handler, looper, err);
end;
constructor TMessenger.Create(from : TMessenger);