From 61b1bcfde275f82df784c403219fde816e11607c Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Wed, 24 Feb 2016 14:24:46 +0000
Subject: [PATCH] Carbon: remove wrong code from SetRealPopupParent and add a
 ToDo.

git-svn-id: trunk@51681 -
---
 lcl/interfaces/carbon/carbonwsforms.pp | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/lcl/interfaces/carbon/carbonwsforms.pp b/lcl/interfaces/carbon/carbonwsforms.pp
index 42bda03a37..623caf5a20 100644
--- a/lcl/interfaces/carbon/carbonwsforms.pp
+++ b/lcl/interfaces/carbon/carbonwsforms.pp
@@ -333,12 +333,7 @@ end;
 class procedure TCarbonWSCustomForm.SetRealPopupParent(
   const ACustomForm: TCustomForm; const APopupParent: TCustomForm);
 begin
-  if Assigned(APopupParent) and (APopupParent.Handle<>0) then
-  begin
-    SetWindowGroup( TCarbonWindow(ACustomForm.Handle).Window, GetWindowGroupOfClass(kHelpWindowClass));
-  end
-  else
-    SetFormStyle(ACustomForm, ACustomForm.FormStyle, ACustomForm.FormStyle);
+  {ToDo: implement PopupMode/PopupParent for Carbon}
 end;
 
 { TCarbonWSHintWindow }