From 2b795ca9d85bb91779fff9d9f21e1dc33206807b Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Tue, 22 Sep 2009 13:31:41 +0000
Subject: [PATCH] carbon: cleanup debug messages

git-svn-id: trunk@21819 -
---
 lcl/interfaces/carbon/carboncalendar.pas     | 2 --
 lcl/interfaces/carbon/carboncalendarview.pas | 7 +------
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/lcl/interfaces/carbon/carboncalendar.pas b/lcl/interfaces/carbon/carboncalendar.pas
index 4001bebea4..3c375b0c08 100644
--- a/lcl/interfaces/carbon/carboncalendar.pas
+++ b/lcl/interfaces/carbon/carboncalendar.pas
@@ -73,8 +73,6 @@ var
   date    : CFGregorianDate;
 begin
   CalendarGetDate(Widget, date);
-  with date do
-    writeln(date.year,' / ',date.month, ' / ',date.day);
   Result := EncodeDate(date.year, date.month, date.day);
 end;
 
diff --git a/lcl/interfaces/carbon/carboncalendarview.pas b/lcl/interfaces/carbon/carboncalendarview.pas
index aa388c8674..3ee2eeb505 100644
--- a/lcl/interfaces/carbon/carboncalendarview.pas
+++ b/lcl/interfaces/carbon/carboncalendarview.pas
@@ -763,7 +763,6 @@ begin
 
 		kControlCalendarDateTag:
     begin
-      writeln('getting the date!');
 			if sz = sizeof( CFGregorianDate ) then begin
 				CFGregorianDatePtr(ptr)^ := inData.date;
         if (inData.selDay>0) and (inData.selDay<inData.daysInMonth) then
@@ -1070,11 +1069,7 @@ end;
 function CalendarSetDate(Calendar: ControlRef; const Date: CFGregorianDate): Boolean;
 begin
   Result := isValidCalendarControl(Calendar);
-  if not Result then begin
-    writeln('not calendar!');
-    Exit;
-  end;
-  writeln('calendar!');
+  if not Result then Exit;
   Result := SetControlData(Calendar, kControlEntireControl, kControlCalendarDateTag, sizeof(Date), @Date) = noErr;
 end;