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

Remove Perform call as this method is private under Haiku.

Browse Source
This commit is contained in:
ocoursiere
2012-10-21 12:24:35 +00:00
parent 292c13ca55
commit 01a3b8bcae
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bepascal/source/bepascal/pas/src/be/interface/textcontrol.pp
View File

@@ -63,7 +63,9 @@ type
procedure AllDetached;override; procedure AllDetached;override;
function GetSupportedSuites(data : BMessage) : Status_t; function GetSupportedSuites(data : BMessage) : Status_t;
procedure SetFlags(flags : Cardinal); procedure SetFlags(flags : Cardinal);
{$ifndef HAIKU}
function Perform(d : Perform_code; arg : Pointer) : Status_t; function Perform(d : Perform_code; arg : Pointer) : Status_t;
{$endif}
{ procedure _ReservedTextControl1; { procedure _ReservedTextControl1;
procedure _ReservedTextControl2; procedure _ReservedTextControl2;
procedure _ReservedTextControl3; procedure _ReservedTextControl3;
@@ -325,10 +327,12 @@ begin
BTextControl_SetFlags(CPlusObject, flags); BTextControl_SetFlags(CPlusObject, flags);
end; end;
{$ifndef HAIKU}
function BTextControl.Perform(d : Perform_code; arg : Pointer) : Status_t; function BTextControl.Perform(d : Perform_code; arg : Pointer) : Status_t;
begin begin
Result := BTextControl_Perform(CPlusObject, d, arg); Result := BTextControl_Perform(CPlusObject, d, arg);
end; end;
{$endif}
{procedure BTextControl._ReservedTextControl1; {procedure BTextControl._ReservedTextControl1;
begin begin