--- 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!