From 82baccc1307b6da5fe2980ba709f50c406cc61d6 Mon Sep 17 00:00:00 2001
From: tombo <tombo@lazarus-ide.org>
Date: Tue, 26 Aug 2008 15:17:18 +0000
Subject: [PATCH] LCL Carbon: applied patch #0011973: Crash in readonly text
 edits from C Western

git-svn-id: trunk@16254 -
---
 lcl/interfaces/carbon/carbonedits.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/carbon/carbonedits.pp b/lcl/interfaces/carbon/carbonedits.pp
index f10f752493..48a04240ad 100644
--- a/lcl/interfaces/carbon/carbonedits.pp
+++ b/lcl/interfaces/carbon/carbonedits.pp
@@ -667,8 +667,10 @@ end;
  ------------------------------------------------------------------------------}
 procedure TCarbonComboBox.DestroyWidget;
 begin
-  if FReadOnly then DisposeMenu(FPopupMenu);
-  if FTimer.Enabled then DropDownTimer(nil);
+  if FReadOnly then
+    DisposeMenu(FPopupMenu)
+  else if FTimer.Enabled then
+    DropDownTimer(nil);
   FTimer.Free;
 
   inherited DestroyWidget;