From fa42e89af3e38f324b4739e43f654a86cac3fff9 Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Fri, 24 Apr 2009 08:53:59 +0000
Subject: [PATCH] commented DebugLn

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

diff --git a/lcl/interfaces/carbon/carbonlistviews.pp b/lcl/interfaces/carbon/carbonlistviews.pp
index 28506922ec..8b82c520e5 100644
--- a/lcl/interfaces/carbon/carbonlistviews.pp
+++ b/lcl/interfaces/carbon/carbonlistviews.pp
@@ -608,7 +608,7 @@ var
   SubIndex: Integer;
 begin
   Result := noErr;
-  DebugLn('CarbonItemDataCallBack ID: ' + DbgS(ID));
+  // DebugLn('CarbonItemDataCallBack ID: ' + DbgS(ID));
   ACarbonDataBrowser := TCarbonDataBrowser(GetCarbonControl(AControl));
   if ACarbonDataBrowser = nil then Exit;
   ALCLDataBrowser := ACarbonDataBrowser.LCLObject;
@@ -972,7 +972,7 @@ end;
 function TCarbonDataBrowser.GetItemChecked(AIndex: Integer): Boolean;
 begin
   if (AIndex >= 0) and (AIndex < GetItemsCount) then
-    Result := Boolean(FItemsCheck[AIndex])
+    Result := Assigned(FItemsCheck[AIndex])
   else
     Result := False;
 end;