--- a/JavaVM.st	Tue Oct 20 13:06:50 1998 +0000
+++ b/JavaVM.st	Tue Oct 20 13:11:20 1998 +0000
@@ -6733,6 +6733,19 @@
     "Modified: / 25.1.1998 / 01:35:32 / cg"
 !
 
+_WListPeer_makeVisible:nativeContext
+    |selectionInListView lineNr|
+
+    selectionInListView := self viewForWPeer:nativeContext.
+
+    lineNr := nativeContext argAt:1.
+
+    selectionInListView makeLineVisible:(lineNr + 1)
+
+    "Modified: / 24.1.1998 / 20:01:06 / cg"
+    "Created: / 20.10.1998 / 14:14:50 / cg"
+!
+
 _WListPeer_select:nativeContext
     |selectionInListView index model|
 
@@ -8040,6 +8053,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.43 1998/10/19 22:38:02 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.44 1998/10/20 13:11:20 cg Exp $'
 ! !
 JavaVM initialize!