JavaVM.st
changeset 569 06e40f8e545a
parent 562 9d95d6e89e5b
child 572 eae34fe6ce03
--- 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!