From 01a3b8bcaecae996de2b760b9ccc4eea89b281b9 Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Sun, 21 Oct 2012 12:24:35 +0000
Subject: [PATCH] Remove Perform call as this method is private under Haiku.

---
 bepascal/source/bepascal/pas/src/be/interface/textcontrol.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/bepascal/source/bepascal/pas/src/be/interface/textcontrol.pp b/bepascal/source/bepascal/pas/src/be/interface/textcontrol.pp
index c04a36d..9842455 100644
--- a/bepascal/source/bepascal/pas/src/be/interface/textcontrol.pp
+++ b/bepascal/source/bepascal/pas/src/be/interface/textcontrol.pp
@@ -63,7 +63,9 @@ type
     procedure AllDetached;override;
     function GetSupportedSuites(data : BMessage) : Status_t;
     procedure SetFlags(flags : Cardinal);
+    {$ifndef HAIKU}    
     function Perform(d : Perform_code; arg : Pointer) : Status_t;
+    {$endif}
   {  procedure _ReservedTextControl1;
     procedure _ReservedTextControl2;
     procedure _ReservedTextControl3;
@@ -325,10 +327,12 @@ begin
   BTextControl_SetFlags(CPlusObject, flags);
 end;
 
+{$ifndef HAIKU}
 function BTextControl.Perform(d : Perform_code; arg : Pointer) : Status_t;
 begin
   Result := BTextControl_Perform(CPlusObject, d, arg);
 end;
+{$endif}
 
 {procedure BTextControl._ReservedTextControl1;
 begin