--- a/JavaObject.st	Thu Apr 09 20:49:48 1998 +0000
+++ b/JavaObject.st	Thu Apr 09 20:51:22 1998 +0000
@@ -400,16 +400,19 @@
 
     javaMethod := JavaClass lookupMethod:sel numArgs:numArgs in:self class static:false.
     javaMethod notNil ifTrue:[
-	^ javaMethod 
-	    valueWithReceiver:self 
-	    arguments:args
-	    selector:sel 
-	    search:nil
-	    sender:nil
+        args notNil ifTrue:[
+            args := JavaClass convertArgsToJava:args.
+        ].
+        ^ javaMethod 
+            valueWithReceiver:self 
+            arguments:args
+            selector:sel 
+            search:nil
+            sender:nil
     ].
     ^ super doesNotUnderstand:aMessage
 
-    "Modified: / 6.1.1998 / 17:58:39 / cg"
+    "Modified: / 9.4.1998 / 21:41:13 / cg"
 !
 
 invokeJavaMethod:aJavaMethod interpreter:i sender:s selector:sel
@@ -994,5 +997,5 @@
 !JavaObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.37 1998/02/05 11:03:48 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.38 1998/04/09 20:50:03 cg Exp $'
 ! !

--- a/JavaVM.st	Thu Apr 09 20:49:48 1998 +0000
+++ b/JavaVM.st	Thu Apr 09 20:51:22 1998 +0000
@@ -5902,6 +5902,34 @@
     "Modified: / 8.1.1998 / 00:21:09 / cg"
 !
 
+_WGraphics_copyArea:nativeContext
+    |gc srcX srcY w h deltaX deltaY|
+
+    gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+
+    gc realized ifFalse:[
+        'JAVA: copyArea on unrealized gc - ignored' infoPrintCR.
+        ^ self
+    ].
+
+    srcX := nativeContext argAt:1.
+    srcY := nativeContext argAt:2.
+    w := nativeContext argAt:3.
+    h := nativeContext argAt:4.
+    deltaX := nativeContext argAt:5.
+    deltaY := nativeContext argAt:6.
+
+    gc
+        copyFrom:gc
+        x:srcX y:srcY 
+        toX:srcX+deltaX y:srcY+deltaY 
+        width:w height:h
+
+    "Created: / 8.1.1998 / 00:16:00 / cg"
+    "Modified: / 9.4.1998 / 22:01:32 / cg"
+!
+
 _WGraphics_createFromComponent:nativeContext
     |jGraphics jWin view|
 
@@ -6033,14 +6061,14 @@
     w := nativeContext argAt:3.
     h := nativeContext argAt:4.
 
-    true "DrawOPTrace" ifTrue:[
+    DrawOPTrace ifTrue:[
         'drawOval x/y= ' print. x print. '@' print. y print. 
                 ' w/h= ' print. w print. '@' print. h printCR.
     ].
     gc displayArcX:x y:y width:w height:h from:0 angle:360.
 
     "Created: / 8.1.1998 / 00:44:31 / cg"
-    "Modified: / 28.1.1998 / 23:24:48 / cg"
+    "Modified: / 9.4.1998 / 22:10:23 / cg"
 !
 
 _WGraphics_drawPolygon:nativeContext        
@@ -6437,7 +6465,7 @@
     selectionInListView := ScrollableView for:SelectionInListView in:frame.
     selectionInListView action:[:index | jListPeer perform:#'handleListChanged(I)V' with:(index - 1)].
     selectionInListView doubleClickAction:[:index | jListPeer perform:#'handleAction(I)V' with:(index - 1)].
-    selectionInListView model:(SelectionInList new list:(OrderedCollection new)).
+    selectionInListView model:(SelectionInList new list:(List new)).
     selectionInListView useIndex:true.
 
     self createdWindowsView:selectionInListView for:jListPeer.
@@ -6447,7 +6475,22 @@
     ].
 
     "Created: / 24.1.1998 / 19:58:54 / cg"
-    "Modified: / 25.1.1998 / 01:29:40 / cg"
+    "Modified: / 9.4.1998 / 22:19:07 / cg"
+!
+
+_WListPeer_delItems:nativeContext
+    |jString index1 index2 selListView|
+
+    selListView := self viewForWPeer:nativeContext.
+
+    index1 := nativeContext argAt:1.
+    index2 := nativeContext argAt:2.
+
+    selListView model list removeFromIndex:(index1+1) toIndex:(index2+1).
+    selListView model changed:#list.
+
+    "Created: / 9.4.1998 / 22:19:25 / cg"
+    "Modified: / 9.4.1998 / 22:20:08 / cg"
 !
 
 _WListPeer_isSelected:nativeContext
@@ -6640,7 +6683,7 @@
     frame := jFrame instVarNamed:'pData'.
 
     "/ create with a simple view ...
-    scrollPane := ScrollableView for:View in:frame.
+    scrollPane := ScrollableView for:JavaView in:frame.
 
     self createdWindowsView:scrollPane for:jScrollPanePeer.
 
@@ -6649,7 +6692,7 @@
     ].
 
     "Created: / 9.4.1998 / 17:25:08 / cg"
-    "Modified: / 9.4.1998 / 17:26:11 / cg"
+    "Modified: / 9.4.1998 / 22:06:09 / cg"
 !
 
 _WScrollPanePeer_setInsets:nativeContext
@@ -6988,6 +7031,15 @@
     "Modified: / 8.1.1998 / 17:37:41 / cg"
 !
 
+_WWindowPeer_toFront:nativeContext
+    |view|
+
+    view := self viewForWPeer:nativeContext.
+    view raise.
+
+    "Created: / 9.4.1998 / 22:17:28 / cg"
+!
+
 _WWindowPeer_updateInsets:nativeContext
 "/ self halt.
 
@@ -7659,6 +7711,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.29 1998/04/09 18:17:46 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.30 1998/04/09 20:50:35 cg Exp $'
 ! !
 JavaVM initialize!

--- a/JavaView.st	Thu Apr 09 20:49:48 1998 +0000
+++ b/JavaView.st	Thu Apr 09 20:51:22 1998 +0000
@@ -150,6 +150,17 @@
 
     "Created: / 8.1.1998 / 18:02:03 / cg"
     "Modified: / 6.2.1998 / 00:57:16 / cg"
+!
+
+sizeChanged:how
+    shown ifTrue:[
+        self clear.
+        self invalidate.
+    ].
+    super sizeChanged:how.
+
+    "Created: / 9.4.1998 / 22:05:45 / cg"
+    "Modified: / 9.4.1998 / 22:08:36 / cg"
 ! !
 
 !JavaView methodsFor:'initialization'!
@@ -170,5 +181,5 @@
 !JavaView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.11 1998/02/06 00:00:03 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.12 1998/04/09 20:51:22 cg Exp $'
 ! !