bug fixes by Baldur

bepascal/bepascal/be/interface/TextView.cpp

@@ -30,10 +30,12 @@
 #include <beobj.h>
 
 
+
 #if defined(__cplusplus)
 extern "C" {
 #endif
 
+
 #if defined(__cplusplus)
 }
 #endif
@@ -267,12 +269,23 @@ BPTextView::BPTextView(TPasObject PasObject, BMessage *data)
           BPasObject(PasObject)
 {
 }
+
 void BPTextView::Pulse(void)
 {
+	Pulse_hookCall();
+
 	BTextView::Pulse();
 }
 
 
+void BPTextView::KeyDown(const char *bytes, int32 numBytes)
+{
+	KeyDown_hookCall(bytes,numBytes);
+	BTextView::KeyDown(bytes,numBytes);
+}
+
+
+
 
 void BPTextView::MessageReceived(BMessage *message)
 {
@@ -296,11 +309,13 @@ void BPTextView::AttachedToWindow(void)
 
 void BPTextView::AllAttached(void)
 {
+  	//AllAttached_hookCall();
 	BTextView::AllAttached();
 }
 
 void BPTextView::AllDetached(void)
 {
+	//AllDetached_hookCall();
 	BTextView::AllDetached();
 }
 
@@ -310,14 +325,11 @@ void BPTextView::WindowActivated(bool active)
 	BTextView::WindowActivated(active);
 }
 
-void BPTextView::KeyDown(const char *bytes, int32 numBytes)
-{
-	BTextView::KeyDown(bytes, numBytes);
-}
 
 
 void BPTextView::FrameResized(float width, float height)
 {
+    FrameResized_hookCall(width, height);
 	BTextView::FrameResized(width, height);
 }
 

bepascal/bepascal/be/interface/textview.pp

@@ -383,6 +383,7 @@ end;
 
 procedure  TTextView.KeyDown(bytes : PChar; numBytes : integer);
 begin
+  //writeln('keydown textview');
   //BTextView_KeyDown(CPlusObject, bytes, numBytes);
 end;