--- a/JavaVM.st Tue Jul 06 21:40:01 1999 +0000
+++ b/JavaVM.st Sun Jul 11 00:24:56 1999 +0000
@@ -8796,10 +8796,28 @@
!
_WGraphics_drawSFChars:nativeContext
- "/ void drawSFChars (char[] int int int int)
- UnimplementedNativeMethodSignal raise
-
- "Created: / 12.11.1998 / 19:18:20 / cg"
+ "/ void drawSFChars (char[]s, int pos1, int len, int x, int y)
+
+ |gc str x y idx1 nChars|
+
+ gc := self gcForWGraphics:nativeContext.
+ gc realized ifFalse:[^ self].
+
+ str := nativeContext argAt:1.
+ idx1 := nativeContext argAt:2.
+ nChars := nativeContext argAt:3.
+ x := nativeContext argAt:4.
+ y := nativeContext argAt:5.
+
+ DrawOPTrace ifTrue:[
+ 'drawSFChars x/y= ' print. x print. '@' print. y print.
+ ' s= ' print. str printCR.
+ ].
+ gc displayString:str from:idx1+1 to:idx1+nChars x:x y:y
+
+ "Created: / 6.1.1998 / 21:11:31 / cg"
+ "Modified: / 8.1.1998 / 00:33:59 / cg"
+
!
_WGraphics_fillArc:nativeContext
@@ -11658,6 +11676,6 @@
!JavaVM class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.143 1999/06/07 11:51:44 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.144 1999/07/11 00:24:56 cg Exp $'
! !
JavaVM initialize!