WriteLn are now under compiler directives (DEBUG) + small updates

bepascal/bepascal/be/interface/Window.cpp

@@ -55,7 +55,7 @@ void BPWindow::MessageReceived(BMessage *message)
 {
 	MessageReceived_hookCall(message);
 	BWindow::MessageReceived(message);
-	message->PrintToStream();
+//	message->PrintToStream();
 }
 
 void BPWindow::DispatchMessage(BMessage *message, BHandler *target)

bepascal/bepascal/be/interface/button.pp

@@ -125,7 +125,6 @@ end;
 constructor TButton.Create(frame : TRect; name, aLabel : PChar; message : TMessage; resizingMode, flags : Cardinal);
 begin
   CreatePas;
-  WriteLn('Creation bouton');
   CPlusObject := BButton_Create(Self, frame.CPlusObject, name, aLabel, message.CPlusObject, resizingMode, flags);
 end;
 
@@ -182,7 +181,6 @@ end;
 
 procedure TButton.MessageReceived(msg : TMessage);
 begin
-  WriteLn('Bonjour, ici le bouton !');
 //  BButton_MessageReceived(CPlusObject, msg.CPlusObject);
 end;
 

bepascal/bepascal/be/interface/control.pp

@@ -358,9 +358,7 @@ function TControl.GetInvoker : TInvoker;
 begin
   if FInvoker = nil then
   begin
-    WriteLn('Before GetInvoker');
     Result := TInvoker.Wrap(CPlusObject);
-    WriteLn('After GetInvoker');    
   end;
   Result := FInvoker;
 end;

bepascal/bepascal/be/interface/view.pp

@@ -235,13 +235,11 @@ end;
 
 procedure TView.WindowActivated(active : boolean);
 begin
-//  WriteLn('WindowActivated in View');
 end;
 
 procedure TView.MessageReceived(aMessage : TMessage);
 begin
   inherited;
-  WriteLn('View.MessageReceived, PASCAL');
 end;
 
 function TView.RemoveSelf : boolean;

bepascal/bepascal/be/interface/window.pp

@@ -462,8 +462,7 @@ end;
 
 procedure TWindow.DispatchMessage(message : TMessage; handler : THandler);
 begin
-  WriteLn(ClassName);
-  message.PrintToStream;
+
 end;
 
 procedure TWindow.MessageReceived(message : TMessage);