--- a/JavaVM.st	Thu Apr 02 14:39:19 1998 +0000
+++ b/JavaVM.st	Mon Apr 06 10:47:03 1998 +0000
@@ -6615,16 +6615,22 @@
     |textView pos string jstring|
 
     textView := self viewForWPeer:nativeContext.
+    (textView isKindOf:ScrollableView) ifTrue:[
+        textView := textView scrolledView
+    ].
 
     jstring := nativeContext argAt:1.
     string := Java as_ST_String:jstring.
     pos := nativeContext argAt:2.
 
     textView insert:string at:pos.
+    textView cursorToCharacterPosition:pos + string size.
+    textView makeCursorVisible.
+"/ textView invalidateRepairNow:true.
     ^ nil
 
     "Created: / 7.1.1998 / 21:50:23 / cg"
-    "Modified: / 8.1.1998 / 17:36:24 / cg"
+    "Modified: / 5.4.1998 / 17:37:24 / cg"
 !
 
 _WTextComponentPeer_enableEditing:nativeContext
@@ -7321,7 +7327,7 @@
     "/ wait for an event to arrive ...
 
     sensor := JavaWindowGroup sensor.
-    [sensor hasEvents or:[sensor hasDamage]] whileFalse:[
+    [sensor hasEvents or:[sensor damageCount ~~ 0]] whileFalse:[
         EventTrace ifTrue:[
             '*** eventThread waiting ...' printCR.
         ].
@@ -7355,7 +7361,7 @@
     ]
 
     "Created: / 6.1.1998 / 21:02:40 / cg"
-    "Modified: / 6.2.1998 / 03:08:12 / cg"
+    "Modified: / 5.4.1998 / 16:10:53 / cg"
 !
 
 processEvent:event
@@ -7510,6 +7516,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.26 1998/03/30 15:48:27 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.27 1998/04/06 10:47:03 cg Exp $'
 ! !
 JavaVM initialize!