From 3871bf2fd9a6651cb4b226aaf016b15e6754ec87 Mon Sep 17 00:00:00 2001
From: joost <joost@lazarus-ide.org>
Date: Sat, 25 Jan 2014 21:49:49 +0000
Subject: [PATCH]  * Added dummy TCocoaWSStatusBar. To avoid segfaults during
 IDE startup.

git-svn-id: trunk@43810 -
---
 lcl/interfaces/cocoa/cocoawscomctrls.pas | 10 ++++++++++
 lcl/interfaces/cocoa/cocoawsfactory.pas  |  3 ++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoawscomctrls.pas b/lcl/interfaces/cocoa/cocoawscomctrls.pas
index 07d616538a..384db4a909 100644
--- a/lcl/interfaces/cocoa/cocoawscomctrls.pas
+++ b/lcl/interfaces/cocoa/cocoawscomctrls.pas
@@ -15,6 +15,16 @@ uses
 
 type
 
+  { TCocoaWSStatusBar }
+
+  TCocoaWSStatusBar = class(TWSStatusBar)
+  published
+    //class function  CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
+    //class procedure PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer); override;
+    //class procedure SetPanelText(const AStatusBar: TStatusBar; PanelIndex: integer); override;
+    //class procedure Update(const AStatusBar: TStatusBar); override;
+  end;
+
   { TCocoaWSProgressBar }
 
   TCocoaWSProgressBar = class(TWSProgressBar)
diff --git a/lcl/interfaces/cocoa/cocoawsfactory.pas b/lcl/interfaces/cocoa/cocoawsfactory.pas
index a55d7421b5..e30e026cfa 100644
--- a/lcl/interfaces/cocoa/cocoawsfactory.pas
+++ b/lcl/interfaces/cocoa/cocoawsfactory.pas
@@ -154,7 +154,8 @@ end;
 // comctrls
 function RegisterStatusBar: Boolean; alias : 'WSRegisterStatusBar';
 begin
-  Result := False;
+  RegisterWSComponent(TStatusBar, TCocoaWSStatusBar);
+  Result := True;
 end;
 
 function RegisterTabSheet: Boolean; alias : 'WSRegisterTabSheet';