From c4f8693efa2494be94e10cb6fa0e85a53a42d18f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 16 Jul 2010 19:13:20 +0000
Subject: [PATCH] LCL: added debugging

git-svn-id: trunk@26693 -
---
 lcl/include/customnotebook.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/customnotebook.inc b/lcl/include/customnotebook.inc
index e610a05c88..b310ef7ffd 100644
--- a/lcl/include/customnotebook.inc
+++ b/lcl/include/customnotebook.inc
@@ -82,7 +82,7 @@ procedure TNBPages.Put(Index: Integer; const S: String);
 begin
   if (Index<0) or (Index>=fPageList.Count) then
     RaiseGDBException('TNBPages.Put Index out of bounds');
-  
+  //debugln(['TNBPages.Put ',DbgSName(FNotebook),' ',Index,' S="',S,'"']);
   TCustomPage(fPageList[Index]).Caption := S;
 end;