hg/stx-libjava: comparison src/JavaVM.st

equal deleted inserted replaced

-:8d12f019746b
+:26e719a7e88c
 |fs fd fn name dir stream fileNo answer readonly|
 fs := nativeContext receiver.
 fd := fs instVarNamed:'fd'.
 (fd instVarNamed:'fd') ~~ 0 ifTrue:[
-	self halt:'file already open'.
+"/self halt:'file already open'.
-	self internalError:'file already open'.
+self internalError:'file already open'.
-	^ self.
+^ self.
 ].
 name := nativeContext argAt:1.
 name := Java as_ST_String:name.
 FileOpenTrace ifTrue:[
-	('JAVA: opening ' , name) infoPrintCR.
+('JAVA: opening ' , name) infoPrintCR.
 ].
 fn := name asFilename.
 dir := fn directory pathName.
 readonly := false.
 (PermittedDirectories notNil
 and:[PermittedDirectories includes:dir]) ifFalse:[
-	FileOpenConfirmation ifTrue:[
+FileOpenConfirmation ifTrue:[
-	    answer := Dialog
+answer := Dialog
-		    confirmWithCancel:('JAVA Security check\\Opening ''' , name , ''' for read/write.\Grant permission ?') withCRs
+confirmWithCancel:('JAVA Security check\\Opening ''' , name , ''' for read/write.\Grant permission ?') withCRs
-			       labels:#('no' 'grant' 'readonly')
+labels:#('no' 'grant' 'readonly')
-			       values:#(false true #readonly)
+values:#(false true #readonly)
-			      default:3.
+default:3.
-	    answer == false ifTrue:[
+answer == false ifTrue:[
-		self throwIOExceptionWithMessage:('no permission to open ' , name , ' for writing').
+self throwIOExceptionWithMessage:('no permission to open ' , name , ' for writing').
-		^ self
+^ self
-	    ].
+].
-	    readonly := (answer == #readonly).
+readonly := (answer == #readonly).
-	    readonly ifFalse:[
+readonly ifFalse:[
-		(self confirm:('JAVA Security check\\Always permit writes in this directory (''' , dir , ''') ?') withCRs)
+(self confirm:('JAVA Security check\\Always permit writes in this directory (''' , dir , ''') ?') withCRs)
-		ifTrue:[
+ifTrue:[
-		    PermittedDirectories isNil ifTrue:[
+PermittedDirectories isNil ifTrue:[
-			PermittedDirectories := Set new
+PermittedDirectories := Set new
-		    ].
+].
-		    PermittedDirectories add:dir.
+PermittedDirectories add:dir.
-		]
+]
-	    ]
+]
-	]
+]
 ].
 readonly ifTrue:[
-	stream := fn readStream.
+stream := fn readStream.
 ] ifFalse:[
-	forAppend ifTrue:[
+forAppend ifTrue:[
-	    stream := fn appendingWriteStream.
+stream := fn appendingWriteStream.
-	] ifFalse:[
+] ifFalse:[
-	    stream := fn writeStream.
+stream := fn writeStream.
-	]
+]
 ].
 stream isNil ifTrue:[
-	self throwIOExceptionWithMessage:('cannot open ' , name , ' for writing').
+self throwIOExceptionWithMessage:('cannot open ' , name , ' for writing').
 ].
 fileNo := self addOpenFile:stream.
 FileOpenTrace ifTrue:[
-	('JAVA: opened ' , name , ' as FD ' , fileNo printString , ' for writing') infoPrintCR.
+('JAVA: opened ' , name , ' as FD ' , fileNo printString , ' for writing') infoPrintCR.
 ].
 fd instVarNamed:'fd' put:fileNo.
-"Created: / 7.4.1998 / 19:14:09 / cg"
+"Created: / 07-04-1998 / 19:14:09 / cg"
-"Modified: / 4.1.1999 / 14:34:42 / cg"
+"Modified: / 04-01-1999 / 14:34:42 / cg"
+"Modified: / 31-05-2011 / 09:54:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 fileStreamForReading:name
 |fn stream tryAlongClassPath|
 "/ introduced with jdk1.2 ... (sigh)
 "Created: / 27.1.1998 / 18:15:51 / cg"
 !
+_java_io_FileInputStream_open: nativeContext
+<javanative: 'java/io/FileInputStream' name: 'open'>
+|fs fd fn name stream fileNo|
+fs := nativeContext receiver.
+fd := fs instVarNamed:'fd'.
+(fileNo := fd instVarNamed:'fd') ~~ 0 ifTrue:[
+	fileNo ~~ -1 ifTrue:[
+	    self halt:'file already open'.
+	    self internalError:'file already open'.
+	    ^ self.
+	]
+].
+name := nativeContext argAt:1.
+name := Java as_ST_String:name.
+name := self fixFilename:name.
+FileOpenTrace ifTrue:[
+	('JAVA: opening ' , name) infoPrintCR.
+].
+stream := self fileStreamForReading:name.
+stream isNil ifTrue:[
+	FileOpenTrace ifTrue:[
+	    ('JAVA: failed to open ''' , name , ''' for reading.') infoPrintCR.
+	].
+	self throwIOExceptionWithMessage:('cannot open ' , name , ' for reading').
+	^ self.
+].
+stream buffered:false.
+"/    FileOpenConfirmation ifTrue:[
+"/        (self confirm:('JAVA Security check\\Opening ''' , name , ''' for reading.\Grant permission ?') withCRs)
+"/        ifFalse:[
+"/            self throwIOExceptionWithMessage:('no permission to open ' , name , ' for reading').
+"/            ^ self
+"/        ]
+"/    ].
+fileNo := self addOpenFile:stream.
+FileOpenTrace ifTrue:[
+	('JAVA: opened ' , name , ' as FD ' , fileNo printString) infoPrintCR.
+].
+fd instVarNamed:'fd' put:fileNo.
+"Created: / 4.1.1998 / 16:47:12 / cg"
+"Modified: / 28.1.1999 / 17:24:07 / cg"
+!
 _java_io_FileOutputStream_initIDs: nativeContext
 <javanative: 'java/io/FileOutputStream' name: 'initIDs'>
 "/ introduced with jdk1.2 ... (sigh)
 "Created: / 27.1.1998 / 18:16:40 / cg"
+!
+_java_io_FileOutputStream_open: nativeContext
+<javanative: 'java/io/FileOutputStream' name: 'open'>
+^ self commonOpen:nativeContext forAppend:false
+"Modified: / 7.4.1998 / 19:14:31 / cg"
 !
 _java_io_FileOutputStream_writeBytes: nativeContext
 <javanative: 'java/io/FileOutputStream' name: 'writeBytes'>
 self error:'Unknown/Unsupported platform'
 "Created: / 09-12-2010 / 17:58:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 01-04-2011 / 18:09:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_io_ObjectInputStream_latestUserDefinedLoader: nativeContext
+<javanative: 'java/io/ObjectInputStream' name: 'latestUserDefinedLoader'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_io_ObjectStreamClass_hasStaticInitializer: nativeContext
+<javanative: 'java/io/ObjectStreamClass' name: 'hasStaticInitializer'>
+^ UnimplementedNativeMethodSignal raise
 !
 _java_io_ObjectStreamClass_initNative: aJavaContext
 <javanative: 'java/io/ObjectStreamClass' name: 'initNative'>
 "Nothing to do"
 "Created: / 20-12-2010 / 17:43:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
+_java_io_RandomAccessFile_initIDs: nativeContext
+<javanative: 'java/io/RandomAccessFile' name: 'initIDs'>
+^ UnimplementedNativeMethodSignal raise
+!
 _java_io_UnixFileSystem_canonicalize0: aJavaContext
 <javanative: 'java/io/UnixFileSystem' name: 'canonicalize0'>
 path := Java as_ST_String: (aJavaContext argAt: 1).
 ^(Java as_String: path asFilename asAbsoluteFilename pathName)
 "Created: / 10-12-2010 / 14:40:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_io_UnixFileSystem_checkAccess: nativeContext
+<javanative: 'java/io/UnixFileSystem' name: 'checkAccess'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_io_UnixFileSystem_createDirectory: nativeContext
+<javanative: 'java/io/UnixFileSystem' name: 'createDirectory'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_io_UnixFileSystem_createFileExclusively: nativeContext
+<javanative: 'java/io/UnixFileSystem' name: 'createFileExclusively'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_io_UnixFileSystem_delete0: nativeContext
+<javanative: 'java/io/UnixFileSystem' name: 'delete0'>
+^ UnimplementedNativeMethodSignal raise
 !
 _java_io_UnixFileSystem_getBooleanAttributes0: aJavaContext
 <javanative: 'java/io/UnixFileSystem' name: 'getBooleanAttributes0'>
 nativeLoader instVarNamed:'handle' put:(LoadedNativeLibs at:libName).
 ^ self "/ void
 "Modified: / 06-02-1998 / 03:12:17 / cg"
 "Created: / 10-12-2010 / 15:11:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_lang_ClassLoader_defineClass1: nativeContext
+<javanative: 'java/lang/ClassLoader' name: 'defineClass1'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_lang_ClassLoader_findLoadedClass0: nativeContext
+<javanative: 'java/lang/ClassLoader' name: 'findLoadedClass0'>
+^ UnimplementedNativeMethodSignal raise
 !
 _java_lang_ClassLoader_registerNatives: aJavaContext
 <javanative: 'java/lang/ClassLoader' name: 'registerNatives'>
 class := self reflection classForJavaClassObject:aJavaContext receiver.
 ^ self reflection javaConstantPoolObjectFor:class constantPool.
 "Created: / 21-12-2010 / 20:00:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 28-02-2011 / 18:05:13 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_java_lang_Class_getDeclaredClasses0: nativeContext
+<javanative: 'java/lang/Class' name: 'getDeclaredClasses0'>
+^ UnimplementedNativeMethodSignal raise
 !
 _java_lang_Class_getDeclaredConstructors0: aJavaContext
 <javanative: 'java/lang/Class' name: 'getDeclaredConstructors0'>
 "Created: / 21-12-2010 / 22:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 28-01-2011 / 15:19:09 / Marcel Hlopko <hlopik@gmail.com>"
 "Modified: / 11-02-2011 / 08:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
+_java_lang_Class_getEnclosingMethod0: nativeContext
+<javanative: 'java/lang/Class' name: 'getEnclosingMethod0'>
+^ UnimplementedNativeMethodSignal raise
+!
 _java_lang_Class_getInterfaces: nativeContext
 <javanative: 'java/lang/Class' name: 'getInterfaces'>
 |jClass cls interfaces jInterfaces|
 ^self reflection javaClassObjectForClassNamed: className
 "Created: / 04-01-1998 / 00:46:03 / cg"
 "Modified: / 28-01-2011 / 15:30:45 / Marcel Hlopko <hlopik@gmail.com>"
 "Modified: / 03-02-2011 / 21:43:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_lang_Class_getProtectionDomain0: nativeContext
+<javanative: 'java/lang/Class' name: 'getProtectionDomain0'>
+^ UnimplementedNativeMethodSignal raise
 !
 _java_lang_Class_getRawAnnotations: aJavaContext
 <javanative: 'java/lang/Class' name: 'getRawAnnotations'>
 ifTrue:[1]
 ifFalse:[0]
 "Created: / 12-11-1998 / 18:54:16 / cg"
 "Modified: / 05-02-2011 / 23:38:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_lang_Class_isInstance: nativeContext
+<javanative: 'java/lang/Class' name: 'isInstance'>
+"
+/**
+* Determines if the specified {@code Object} is assignment-compatible
+* with the object represented by this {@code Class}.  This method is
+* the dynamic equivalent of the Java language {@code instanceof}
+* operator. The method returns {@code true} if the specified
+* {@code Object} argument is non-null and can be cast to the
+* reference type represented by this {@code Class} object without
+* raising a {@code ClassCastException.} It returns {@code false}
+* otherwise.
+*
+* <p> Specifically, if this {@code Class} object represents a
+* declared class, this method returns {@code true} if the specified
+* {@code Object} argument is an instance of the represented class (or
+* of any of its subclasses); it returns {@code false} otherwise. If
+* this {@code Class} object represents an array class, this method
+* returns {@code true} if the specified {@code Object} argument
+* can be converted to an object of the array class by an identity
+* conversion or by a widening reference conversion; it returns
+* {@code false} otherwise. If this {@code Class} object
+* represents an interface, this method returns {@code true} if the
+* class or any superclass of the specified {@code Object} argument
+* implements this interface; it returns {@code false} otherwise. If
+* this {@code Class} object represents a primitive type, this method
+* returns {@code false}.
+*
+* @param   obj the object to check
+* @return  true if {@code obj} is an instance of this class
+*
+* @since JDK1.1
+*/
+public native boolean isInstance(Object obj);
+"
+|jClass cls obj|
+obj := nativeContext argAt:1.
+obj isNil ifTrue:[^ 0].
+jClass := nativeContext receiver.
+cls := self reflection classForJavaClassObject:jClass.
+^self _INSTANCEOF:obj _:cls
+"Modified: / 09-02-1998 / 14:56:23 / cg"
+"Modified: / 28-01-2011 / 14:12:42 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 25-02-2011 / 18:37:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _java_lang_Class_isInterface: nativeContext
 <javanative: 'java/lang/Class' name: 'isInterface'>
 | f |
 f := aJavaContext argAt:1.
 (f =  0.0) ifTrue:[^0].
 (f = -0.0) ifTrue:[^(1 bitShift: 63)].
-self halt:'Not yet implemented'.
+self error:'Not yet implemented since I''m lazy'.
 "Created: / 10-11-2010 / 14:48:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 31-05-2011 / 10:13:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_lang_Double_longBitsToDouble: nativeContext
+<javanative: 'java/lang/Double' name: 'longBitsToDouble'>
+|i aFloat|
+i := nativeContext argAt:1.
+aFloat := Float new.
+UninterpretedBytes isBigEndian ifTrue:[
+	aFloat basicAt:1 put:((i bitShift:-56) bitAnd:16rFF).
+	aFloat basicAt:2 put:((i bitShift:-48) bitAnd:16rFF).
+	aFloat basicAt:3 put:((i bitShift:-40) bitAnd:16rFF).
+	aFloat basicAt:4 put:((i bitShift:-32) bitAnd:16rFF).
+	aFloat basicAt:5 put:((i bitShift:-24) bitAnd:16rFF).
+	aFloat basicAt:6 put:((i bitShift:-16) bitAnd:16rFF).
+	aFloat basicAt:7 put:((i bitShift:-8) bitAnd:16rFF).
+	aFloat basicAt:8 put:(i bitAnd:16rFF).
+] ifFalse:[
+	aFloat basicAt:1 put:(i bitAnd:16rFF).
+	aFloat basicAt:2 put:((i bitShift:-8) bitAnd:16rFF).
+	aFloat basicAt:3 put:((i bitShift:-16) bitAnd:16rFF).
+	aFloat basicAt:4 put:((i bitShift:-24) bitAnd:16rFF).
+	aFloat basicAt:5 put:((i bitShift:-32) bitAnd:16rFF).
+	aFloat basicAt:6 put:((i bitShift:-40) bitAnd:16rFF).
+	aFloat basicAt:7 put:((i bitShift:-48) bitAnd:16rFF).
+	aFloat basicAt:8 put:((i bitShift:-56) bitAnd:16rFF).
+].
+^ aFloat.
+"Created: / 4.1.1998 / 01:45:00 / cg"
 !
 _java_lang_Float_floatToRawIntBits: aJavaContext
 <javanative: 'java/lang/Float' name: 'floatToRawIntBits'>
 | f exponent mantissa |
 f := aJavaContext argAt:1.
 (f =  0.0) ifTrue:[^0].
 (f = -0.0) ifTrue:[^(1 bitShift: 31) ].
-self halt.
+self error: 'Not yet implemented since I''m bit lazy'.
 "Created: / 09-11-2010 / 20:59:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 10-11-2010 / 14:47:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 31-05-2011 / 10:13:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _java_lang_Object_clone: nativeContext
 <javanative: 'java/lang/Object' name: 'clone'>
 o := nativeContext receiver.
 rslt := o identityHash.
 ^ rslt
 "Created: / 4.1.1998 / 19:40:26 / cg"
+!
+_java_lang_Object_notify: nativeContext
+<javanative: 'java/lang/Object' name: 'notify'>
+"wakeup"
+self wakeup:(nativeContext receiver).
+"Created: / 6.1.1998 / 21:09:26 / cg"
+!
+_java_lang_Object_notifyAll: nativeContext
+<javanative: 'java/lang/Object' name: 'notifyAll'>
+self wakeupAll:(nativeContext receiver).
+"Created: / 3.1.1998 / 03:06:56 / cg"
 !
 _java_lang_Object_registerNatives: aJavaContext
 <javanative: 'java/lang/Object' name: 'registerNatives'>
 '====> thread continues ...' printCR.
 ]
 "Modified: / 30-12-1998 / 19:20:43 / cg"
 "Modified: / 01-05-2011 / 13:26:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_lang_Package_getSystemPackage0: nativeContext
+<javanative: 'java/lang/Package' name: 'getSystemPackage0'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_lang_Runtime_gc: nativeContext
+<javanative: 'java/lang/Runtime' name: 'gc'>
+"Runs the garbage collector.
+Ignored, since the ST-gc runs all the time."
+^ self
+"Modified: / 12.1.1998 / 12:58:32 / cg"
+!
+_java_lang_Runtime_runFinalization0: nativeContext
+<javanative: 'java/lang/Runtime' name: 'runFinalization0'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_lang_StrictMath_cos: nativeContext
+<javanative: 'java/lang/StrictMath' name: 'cos'>
+^ UnimplementedNativeMethodSignal raise
+!
+_java_lang_StrictMath_sin: nativeContext
+<javanative: 'java/lang/StrictMath' name: 'sin'>
+^ UnimplementedNativeMethodSignal raise
 !
 _java_lang_String_intern: nativeContext
 <javanative: 'java/lang/String' name: 'intern'>
 "
 "Modified: / 23.12.1998 / 21:54:50 / cg"
 !
+_java_lang_System_identityHashCode: nativeContext
+<javanative: 'java/lang/System' name: 'identityHashCode'>
+|obj|
+obj := nativeContext argAt:1.
+^ obj identityHash
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:54:00 / cg"
+!
 _java_lang_System_initProperties: nativeContext
 <javanative: 'java/lang/System' name: 'initProperties'>
 |props stProps|
 ].
 ^ nil
 ].
 "Modified: / 01-05-2011 / 13:25:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_java_lang_Thread_sleep: nativeContext
+<javanative: 'java/lang/Thread' name: 'sleep'>
+"sleep for some milliseconds "
+|millis|
+millis := nativeContext argAt:1.
+self waitFor:nil state:nil timeOut:(millis max:50)
+"Modified: / 8.1.1999 / 16:42:52 / cg"
 !
 _java_lang_Thread_start0: nativeContext
 <javanative: 'java/lang/Thread' name: 'start0'>
 ^ componentClass arrayClass new:size
 "Created: / 17-12-2010 / 14:49:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 19-12-2010 / 17:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 28-01-2011 / 15:18:50 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_java_lang_reflect_Proxy_defineClass0: nativeContext
+<javanative: 'java/lang/reflect/Proxy' name: 'defineClass0'>
+"
+private static native Class defineClass0(ClassLoader loader, String name,
+byte[] b, int off, int len);
+"
+| loader name b off len  bs cls |
+loader := nativeContext argAt: 1.
+name := nativeContext argAt: 2.
+b := nativeContext argAt: 3.
+off := nativeContext argAt: 4.
+len := nativeContext argAt: 5.
+bs := (off = 0 and: [len = b size])
+ifTrue:[b readStream]
+ifFalse:[(b copyFrom: off + 1 to: off + len) readStream].
+cls := JavaClassReader readStream: bs.
+cls classLoader: loader.
+^self reflection javaClassObjectForClass: cls.
+"Created: / 06-02-2011 / 16:55:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !JavaVM class methodsFor:'native - java.security'!
 _java_security_AccessController_doPrivileged: aJavaContext
 "/ supposed to do more here ...
 ^ nil
 "Created: / 27.1.1998 / 18:22:15 / cg"
+! !
+!JavaVM class methodsFor:'native - java.util.jar'!
+_java_util_jar_JarFile_getMetaInfEntryNames: nativeContext
+<javanative: 'java/util/jar/JarFile' name: 'getMetaInfEntryNames'>
+^ UnimplementedNativeMethodSignal raise
 ! !
 !JavaVM class methodsFor:'native - java.util.zip'!
 _java_util_zip_Inflater_inflateBytes: nativeContext
 _Class_getSigners:nativeContext
 UnimplementedNativeMethodSignal raiseRequest
 "Modified: / 12.11.1998 / 18:52:07 / cg"
 "Created: / 12.11.1998 / 18:55:01 / cg"
+!
+_Class_newInstance:nativeContext
+"get an instance for a java.lang.Class"
+|jClass cls newInst|
+jClass := nativeContext receiver.
+cls := self reflection javaClassObjectForClass:jClass.
+cls classInit.
+newInst := cls newCleared.
+newInst perform:#'<init>()V'.
+^ newInst
+"Created: / 02-01-1998 / 22:41:38 / cg"
+"Modified: / 15-01-1998 / 00:57:37 / cg"
+"Modified: / 28-01-2011 / 14:12:25 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_Class_setSigners:nativeContext
+UnimplementedNativeMethodSignal raiseRequest
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:55:08 / cg"
+!
+_ColorModel_deletepData:nativeContext
+"/ void deletepData ()
+UnimplementedNativeMethodSignal raiseRequest
+"Created: / 12.11.1998 / 19:22:05 / cg"
+!
+_ColorModel_initIDs:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 28.1.1998 / 22:19:23 / cg"
+!
+_Color_initIDs:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 28.1.1998 / 22:19:23 / cg"
+!
+_Component_initIDs:nativeContext
+"/ introduced with jdk1.2 ... (sigh)
+"Created: / 27.1.1998 / 19:53:29 / cg"
+!
+_ConstantPool_getDoubleAt0:nativeContext
+| cpool  index  double |
+cpool := self reflection constantPoolFor:(nativeContext receiver).
+self breakPoint:#mh.
+index := nativeContext at:3.
+"TODO: why 3?"
+double := cpool at:index.
+self assert:double isFloat description:'Not a float constant!!'.
+^ double
+"Modified: / 25-02-2011 / 18:40:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Created: / 28-02-2011 / 17:24:17 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_ConstantPool_getIntAt0:nativeContext
+| cpool  index  int |
+cpool := self reflection constantPoolFor:(nativeContext receiver).
+index := nativeContext at:3.
+"TODO: why 3?"
+int := cpool at:index.
+self assert:int isInteger description:'Not an integer constant!!'.
+^ int
+"Modified: / 25-02-2011 / 18:40:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Created: / 28-02-2011 / 17:28:10 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_ConstantPool_getLongAt0:nativeContext
+| cpool  index  long |
+cpool := self reflection constantPoolFor:(nativeContext receiver).
+index := nativeContext at:3.
+"TODO: why 3?"
+long := cpool at:index.
+self assert:long isInteger description:'Not a float constant!!'.
+^ long
+"Modified: / 28-02-2011 / 17:40:02 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 28-02-2011 / 18:54:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_ConstantPool_getUTF8At0: nativeContext
+| cpool index string |
+cpool := self reflection constantPoolFor: (nativeContext receiver).
+index := nativeContext at: 3.
+"TODO: why 3?"
+string := cpool at: index.
+self assert: string isString description: 'Not an UTF8 constant!!'.
+^Java as_String: string
+"Created: / 06-02-2011 / 12:56:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Constructor_getModifiers:nativeContext
+"/ int getModifiers ()
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 02:54:38 / cg"
+!
+_Constructor_newInstance:nativeContext
+"/ java.lang.Object newInstance (java.lang.Object[])
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+!
+_Double_doubleToLongBits:nativeContext
+|f i|
+f := nativeContext argAt:1.
+UninterpretedBytes isBigEndian ifTrue:[
+	i := f basicAt:8.
+	i := i bitOr:((f basicAt:7) bitShift:8).
+	i := i bitOr:((f basicAt:6) bitShift:16).
+	i := i bitOr:((f basicAt:5) bitShift:24).
+	i := i bitOr:((f basicAt:4) bitShift:32).
+	i := i bitOr:((f basicAt:3) bitShift:40).
+	i := i bitOr:((f basicAt:2) bitShift:48).
+	i := i bitOr:((f basicAt:1) bitShift:56).
+] ifFalse:[
+	i := f basicAt:1.
+	i := i bitOr:((f basicAt:2) bitShift:8).
+	i := i bitOr:((f basicAt:3) bitShift:16).
+	i := i bitOr:((f basicAt:4) bitShift:24).
+	i := i bitOr:((f basicAt:5) bitShift:32).
+	i := i bitOr:((f basicAt:6) bitShift:40).
+	i := i bitOr:((f basicAt:7) bitShift:48).
+	i := i bitOr:((f basicAt:8) bitShift:56).
+].
+^ i.
+"Created: / 4.1.1998 / 01:39:12 / cg"
+!
+_Double_valueOf0:nativeContext
+|s d|
+s := nativeContext argAt:1.
+s notNil ifTrue:[
+	s := Java as_ST_String:s.
+	d := Float readFrom:s onError:nil.
+].
+d isNil ifTrue:[
+	self throwNumberFormatException.
+	"/ not reached
+].
+^ d
+"Modified: / 8.8.1997 / 12:03:55 / cg"
+"Created: / 7.1.1998 / 11:09:43 / cg"
+!
+_Field_get:nativeContext
+"/ java.lang.Object get (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:04:18 / cg"
+!
+_Field_getBoolean:nativeContext
+"/ boolean getBoolean (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:05:16 / cg"
+!
+_Field_getByte:nativeContext
+"/ byte getByte (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:05:30 / cg"
+!
+_Field_getChar:nativeContext
+"/ char getChar (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:03:37 / cg"
+!
+_Field_getDouble:nativeContext
+"/ double getDouble (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:07:49 / cg"
+!
+_Field_getFloat:nativeContext
+"/ float getFloat (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:05:41 / cg"
+!
+_Field_getInt:nativeContext
+"/ int getInt (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:04:47 / cg"
+!
+_Field_getLong:nativeContext
+"/ long getLong (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:05:54 / cg"
+!
+_Field_getModifiers:nativeContext
+"/ int getModifiers ()
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:07:03 / cg"
+!
+_Field_getShort:nativeContext
+"/ unsigned short getShort (java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:07:35 / cg"
+!
+_Field_set:nativeContext
+"/ void set (java.lang.Object java.lang.Object)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:04:33 / cg"
+!
+_Field_setBoolean:nativeContext
+"/ void setBoolean (java.lang.Object boolean)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:06:06 / cg"
+!
+_Field_setByte:nativeContext
+"/ void setByte (java.lang.Object byte)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:06:20 / cg"
+!
+_Field_setChar:nativeContext
+"/ void setChar (java.lang.Object char)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:03:48 / cg"
+!
+_Field_setDouble:nativeContext
+"/ void setDouble (java.lang.Object double)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:04:02 / cg"
+!
+_Field_setFloat:nativeContext
+"/ void setFloat (java.lang.Object float)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:06:48 / cg"
+!
+_Field_setInt:nativeContext
+"/ void setInt (java.lang.Object int)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:05:04 / cg"
+!
+_Field_setLong:nativeContext
+"/ void setLong (java.lang.Object long)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:06:37 / cg"
+!
+_Field_setShort:nativeContext
+"/ void setShort (java.lang.Object unsigned short)
+UnimplementedNativeMethodSignal raiseRequest.
+"Modified: / 27.1.2000 / 02:53:55 / cg"
+"Created: / 27.1.2000 / 03:03:23 / cg"
+!
+_FileDescriptor_initSystemFD:nativeContext
+|descriptor fileNo idx myStream|
+descriptor := nativeContext argAt:1.
+fileNo := nativeContext argAt:2.
+fileNo == 0 ifTrue:[
+	myStream := Stdin
+] ifFalse:[
+	fileNo == 1 ifTrue:[
+	   myStream := JavaConsoleStream ? Stdout
+	] ifFalse:[
+	    fileNo == 2 ifTrue:[
+		myStream := JavaConsoleStream ? Stderr
+	    ] ifFalse:[
+		self halt:'invalid fileNo given'.
+		self internalError:'invalid fileNo given'.
+	    ]
+	]
+].
+self setOpenFile:myStream at:fileNo.
+descriptor instVarNamed:'fd' put:fileNo.
+^ descriptor
+"Modified: / 27.1.1998 / 18:15:28 / cg"
+!
+_FileDescriptor_sync:nativeContext
+"/ void sync ()
+UnimplementedNativeMethodSignal raiseRequest
+"Modified: / 12.11.1998 / 18:57:39 / cg"
+"Created: / 12.11.1998 / 19:26:25 / cg"
+!
+_FileDescriptor_valid:nativeContext
+"/ boolean valid ()
+|descriptor fileNo stream|
+descriptor := nativeContext receiver.
+fileNo := descriptor instVarNamed:'fd'.
+stream := self getOpenFileAt:fileNo.
+stream isNil ifTrue:[^ 0]. "/ FALSE
+stream isOpen ifFalse:[^ 0].  "/ FALSE
+^ 1 "/ TRUE
+"Modified: / 11.12.1998 / 13:02:47 / cg"
+!
+_FileInputStream_available:nativeContext
+|file|
+file := self validateFile:(nativeContext receiver).
+file isNil ifTrue:[
+	self throwIOExceptionWithMessage:'invalid fileNo in available'.
+	^ self
+].
+file == Stdin ifTrue:[
+	file := StdinReplacementFileQuerySignal raiseRequest.
+	file isNil ifTrue:[
+	    ^ 1
+	]
+].
+file isFileStream ifTrue:[
+	^ file size - file position + 1
+].
+file atEnd ifTrue:[
+	^ 0.
+].
+self halt.
+^ 1
+"Modified: / 14.1.1998 / 15:12:52 / cg"
+!
+_FileInputStream_close:nativeContext
+^ self anyStream_close:nativeContext
+"Created: / 4.1.1998 / 17:45:23 / cg"
+"Modified: / 4.2.1998 / 15:20:46 / cg"
+!
+_FileInputStream_read:nativeContext
+|file byte|
+file := self validateFile:(nativeContext receiver).
+file == Stdin ifTrue:[
+	file := StdinReplacementFileQuerySignal raiseRequest.
+	file isNil ifTrue:[
+	    ^ -1
+	]
+].
+FileIOTrace ifTrue:[
+	('JAVA: read 1 byte from ' , file pathName) infoPrintCR.
+].
+byte := file nextByte.
+byte isNil ifTrue:[
+	^ -1
+].
+^ byte
+"Created: / 5.1.1998 / 02:17:08 / cg"
+"Modified: / 5.1.1998 / 02:17:25 / cg"
+!
+_FileInputStream_readBytes:nativeContext
+^ self anyStream_readBytes:nativeContext
+"Modified: / 4.2.1998 / 15:23:08 / cg"
+!
+_FileInputStream_skip:nativeContext
+"/ long skip (long)
+|file nSkip nSkipped|
+file := self validateFile:(nativeContext receiver).
+nSkip := nativeContext argAt:1.
+file == Stdin ifTrue:[
+	file := StdinReplacementFileQuerySignal raiseRequest.
+	file isNil ifTrue:[
+	    ^ -1
+	]
+].
+FileIOTrace ifTrue:[
+	(('JAVA: skip %1 byte(s) from ' bindWith:nSkip printString) , file pathName) infoPrintCR.
+].
+file skip:nSkip.
+^ nSkip
+"Modified: / 27.1.1999 / 20:36:11 / cg"
+!
+_FileOutputStream_close:nativeContext
+^ self anyStream_close:nativeContext
+"Created: / 13.1.1998 / 09:33:16 / cg"
+"Modified: / 4.2.1998 / 15:20:53 / cg"
+!
+_FileOutputStream_openAppend:nativeContext
+^ self commonOpen:nativeContext forAppend:true
+"Modified: / 7.4.1998 / 19:13:42 / cg"
+!
+_File_canRead0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	path := Java as_ST_String:path.
+	FileAccessTrace == true ifTrue:[
+	    path storeString print. ' ' print. thisContext printCR
+	].
+	path := self fixFilename:path.
+	(f := path asFilename) isReadable ifTrue:[
+	    ^ 1 "/ TRUE
+	]
+].
+^ 0 "/ FALSE
+"Created: / 4.1.1998 / 18:09:55 / cg"
+"Modified: / 27.1.1999 / 18:57:55 / cg"
+!
+_File_canWrite0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	FileAccessTrace == true ifTrue:[
+	    path storeString print. ' ' print. thisContext printCR
+	].
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	(f := path asFilename) isWritable ifTrue:[
+	    ^ 1 "/ TRUE
+	]
+].
+^ 0 "/ FALSE
+"Created: / 4.2.1998 / 00:19:55 / cg"
+"Modified: / 27.1.1999 / 18:57:52 / cg"
+!
+_File_canonPath:nativeContext
+"/ introduced with jdk1.2 ... (sigh)
+|jPath path realPath|
+jPath := nativeContext argAt:1.
+jPath isNil ifTrue:[^ jPath].
+path := Java as_ST_String:jPath.
+realPath := path asFilename pathName.
+^ Java as_String:realPath
+"Created: / 27.1.1998 / 18:35:58 / cg"
+"Modified: / 27.1.1998 / 21:36:03 / cg"
+!
+_File_delete0:nativeContext
+"/ boolean delete0 ()
+|oldFile oldPath oldF|
+oldFile := nativeContext receiver.
+oldPath := oldFile instVarNamed:'path'.
+oldPath isNil ifTrue:[^ 0].    "/ FALSE
+oldPath := Java as_ST_String:oldPath.
+oldF := oldPath asFilename.
+oldF exists ifFalse:[
+	^ 1 "/ TRUE
+].
+(self checkWritePermissionOfDirectory:oldF directory message:('JAVA Security check\\Delete of ''' , oldPath , '''.\Grant permission ?'))
+ifFalse:[
+	^ 0 "/ FALSE
+].
+OperatingSystem accessDeniedErrorSignal handle:[:ex |
+	^ 0 "/ FALSE
+] do:[
+	oldF delete.
+	^ 1 "/ TRUE
+].
+^ 0 "/ FALSE
+"Modified: / 30.12.1998 / 20:15:06 / cg"
+!
+_File_exists0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	FileAccessTrace == true ifTrue:[
+	    path storeString print. ' ' print. thisContext printCR
+	].
+	(f := path asFilename) exists ifTrue:[
+	    ^ 1 "TRUE"
+	]
+].
+^ 0 "FALSE"
+"Created: / 5.1.1998 / 02:07:48 / cg"
+"Modified: / 27.1.1999 / 18:57:46 / cg"
+!
+_File_initIDs:nativeContext
+"/ introduced with jdk1.2 ... (sigh)
+"Created: / 27.1.1998 / 18:25:19 / cg"
+!
+_File_isAbsolute:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	(f := path asFilename) isAbsolute ifTrue:[
+	    ^ 1 "/ TRUE
+	]
+].
+^ 0 "/ FALSE
+"Created: / 11.1.1998 / 09:54:38 / cg"
+"Modified: / 20.10.1998 / 20:59:53 / cg"
+!
+_File_isDirectory0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	FileAccessTrace == true ifTrue:[
+	    path storeString print. ' ' print. thisContext printCR
+	].
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	(f := path asFilename) exists ifTrue:[
+	    f isDirectory ifTrue:[^ 1 "TRUE"]
+	]
+].
+^ 0 "FALSE"
+"Created: / 7.1.1998 / 10:31:37 / cg"
+"Modified: / 27.1.1999 / 18:58:01 / cg"
+!
+_File_isFile0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	FileAccessTrace == true ifTrue:[
+	    path storeString print. ' ' print. thisContext printCR
+	].
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	(f := path asFilename) exists ifTrue:[
+	    f isDirectory ifFalse:[^ 1 "TRUE"]
+	]
+].
+^ 0 "/ FALSE
+"Created: / 11.1.1998 / 11:40:22 / cg"
+"Modified: / 27.1.1999 / 18:58:04 / cg"
+!
+_File_lastModified0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	(f := path asFilename) exists ifTrue:[
+	    ^ f modificationTime getMilliseconds.
+	]
+].
+^ 0
+"Created: / 4.2.1998 / 16:50:30 / cg"
+"Modified: / 20.10.1998 / 21:00:05 / cg"
+!
+_File_length0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	FileAccessTrace == true ifTrue:[
+	    thisContext printCR
+	].
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	(f := path asFilename) exists ifTrue:[
+	    ^ f fileSize
+	]
+].
+^ -1
+"Created: / 7.1.1998 / 12:18:57 / cg"
+"Modified: / 27.1.1999 / 18:57:06 / cg"
+!
+_File_list0:nativeContext
+|file path f files|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	(f := path asFilename) exists ifTrue:[
+	    f isDirectory ifTrue:[
+		files := f directoryContents asArray.
+		files := files collect:[:nm | Java as_String:nm].
+		^ files
+	    ]
+	]
+].
+^ nil
+"Created: / 14.1.1998 / 21:30:22 / cg"
+"Modified: / 20.10.1998 / 21:00:21 / cg"
+!
+_File_mkdir0:nativeContext
+|file path f|
+file := nativeContext receiver.
+path := file instVarNamed:'path'.
+path notNil ifTrue:[
+	path := Java as_ST_String:path.
+	path := self fixFilename:path.
+	f := path asFilename.
+	(f exists and:[f isDirectory]) ifTrue:[
+	    ^ 0 "/ FALSE
+	].
+	FileOpenConfirmation ifTrue:[
+	    (self confirm:('JAVA Security check\\Create directory ''' , path , '''.\Grant permission ?') withCRs)
+	    ifFalse:[
+		^ 0 "/ FALSE
+	    ]
+	].
+	OperatingSystem accessDeniedErrorSignal handle:[:ex |
+	    ^ 0 "/ FALSE
+	] do:[
+	    f makeDirectory.
+	].
+	f  exists ifTrue:[
+	    f isDirectory ifTrue:[^ 1 "TRUE"]
+	]
+].
+^ 0 "FALSE"
+"Created: / 4.2.1998 / 00:19:05 / cg"
+"Modified: / 4.12.1998 / 14:04:03 / cg"
+!
+_File_renameTo0:nativeContext
+"/ void renameTo0 (java.io.File)
+|oldFile newFile oldPath newPath oldF newF|
+oldFile := nativeContext receiver.
+oldPath := oldFile instVarNamed:'path'.
+oldPath isNil ifTrue:[^ 0].    "/ FALSE
+oldPath := Java as_ST_String:oldPath.
+oldF := oldPath asFilename.
+newFile := nativeContext argAt:1.
+newPath := newFile instVarNamed:'path'.
+newPath isNil ifTrue:[^ 0].    "/ FALSE
+newPath := Java as_ST_String:newPath.
+newF := newPath asFilename.
+(self checkWritePermissionOfDirectory:oldF directory message:('JAVA Security check\\Rename of ''' , oldPath , ''' to ''' , newPath , '''.\Grant permission ?'))
+ifFalse:[
+	^ 0 "/ FALSE
+].
+oldF directory pathName ~= newF directory pathName ifTrue:[
+	(self checkWritePermissionOfDirectory:newF directory message:('JAVA Security check\\Rename of ''' , oldPath , ''' to ''' , newPath , '''.\Grant permission ?'))
+	ifFalse:[
+	    ^ 0 "/ FALSE
+	].
+].
+OperatingSystem accessDeniedErrorSignal handle:[:ex |
+	^ 0 "/ FALSE
+] do:[
+	oldF renameTo:newF.
+	^ 1 "/ TRUE
+].
+^ 0 "/ FALSE
+"Modified: / 3.12.1998 / 21:01:08 / cg"
+!
+_File_rmdir0:nativeContext
+"/ boolean rmdir0 ()
+UnimplementedNativeMethodSignal raiseRequest
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:03:52 / cg"
+!
+_Float_floatToIntBits:nativeContext
+|f i|
+f := nativeContext argAt:1.
+UninterpretedBytes isBigEndian ifTrue:[
+	i := f basicAt:4.
+	i := i bitOr:((f basicAt:3) bitShift:8).
+	i := i bitOr:((f basicAt:2) bitShift:16).
+	i := i bitOr:((f basicAt:1) bitShift:24).
+] ifFalse:[
+	i := f basicAt:1.
+	i := i bitOr:((f basicAt:2) bitShift:8).
+	i := i bitOr:((f basicAt:3) bitShift:16).
+	i := i bitOr:((f basicAt:4) bitShift:24).
+].
+^ i.
+"Created: / 4.1.1998 / 01:25:50 / cg"
+!
+_Float_intBitsToFloat:nativeContet
+|i aFloat|
+i := nativeContet argAt:1.
+aFloat := ShortFloat basicNew.
+UninterpretedBytes isBigEndian ifTrue:[
+	aFloat basicAt:1 put:((i bitShift:-24) bitAnd:16rFF).
+	aFloat basicAt:2 put:((i bitShift:-16) bitAnd:16rFF).
+	aFloat basicAt:3 put:((i bitShift:-8) bitAnd:16rFF).
+	aFloat basicAt:4 put:(i bitAnd:16rFF).
+] ifFalse:[
+	aFloat basicAt:1 put:(i bitAnd:16rFF).
+	aFloat basicAt:2 put:((i bitShift:-8) bitAnd:16rFF).
+	aFloat basicAt:3 put:((i bitShift:-16) bitAnd:16rFF).
+	aFloat basicAt:4 put:((i bitShift:-24) bitAnd:16rFF).
+].
+^ aFloat.
+"Created: / 13.1.1998 / 23:03:36 / cg"
+"Modified: / 13.1.1998 / 23:05:01 / cg"
+!
+_FontDescriptor_initIDs:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 28.1.1998 / 22:30:52 / cg"
+!
+_Font_initIDs:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 27.1.1998 / 21:43:25 / cg"
+!
+_GifImageDecoder_parseImage:nativeContext
+|decoder width height bool1 depth subHdrBytes dstBytes i1 i2 colorModel
+stream byte compressedData compressedSize index count data
+leftOffs topOffs codeLen flags pixelStore clrModel t buffSize
+countGot countGot2|
+decoder := nativeContext receiver.
+i1 := nativeContext argAt:1.
+i2 := nativeContext argAt:2.
+width := nativeContext argAt:3.
+height := nativeContext argAt:4.
+bool1 := nativeContext argAt:5.
+depth := nativeContext argAt:6.
+subHdrBytes := nativeContext argAt:7.
+dstBytes := nativeContext argAt:8.
+colorModel := nativeContext argAt:9.
+leftOffs := subHdrBytes wordAt:1 MSB:false.
+topOffs := subHdrBytes wordAt:3 MSB:false.
+width := subHdrBytes wordAt:5 MSB:false.
+height := subHdrBytes wordAt:7 MSB:false.
+flags := subHdrBytes at:9.
+codeLen := subHdrBytes at:10.
+stream := decoder instVarNamed:'input'.
+pixelStore := decoder instVarNamed:'store'.
+pixelStore isNil ifTrue:[
+	^ 0
+].
+buffSize := (width * height // 2) max:4096.
+compressedData := ByteArray uninitializedNew:buffSize.
+"get compressed data"
+index := 1.
+count := stream perform:#'read()I'.
+[count notNil and:[count > 0]] whileTrue:[
+	(index + count) > buffSize ifTrue:[
+	    t := ByteArray uninitializedNew:(buffSize * 2).
+	    t replaceFrom:1 to:buffSize with:compressedData startingAt:1.
+	    compressedData := t.
+	    buffSize := buffSize * 2.
+	].
+	[count ~~ 0] whileTrue:[
+	    countGot := stream
+			perform:#'read([BII)I'
+			with:compressedData
+			with:index-1
+			with:count.
+	    countGot > 0 ifTrue:[
+		count := count - countGot.
+		index := index + countGot.
+	    ] ifFalse:[
+		count := -1.
+	    ]
+	].
+	count >= 0 ifTrue:[
+	    count := stream perform:#read.
+	]
+].
+compressedSize := index - 1.
+data := pixelStore perform:#'allocateLines(I)Ljava/lang/Object;' with:height.
+(data isMemberOf:ByteArray) ifFalse:[
+	self halt.
+	^ 0.
+].
+"/    'GIFReader: decompressing ...' infoPrintCR.
+GIFReader
+	decompressGIFFrom:compressedData
+	count:compressedSize
+	into:data
+	startingAt:1
+	codeLen:(codeLen + 1).
+clrModel := pixelStore instVarNamed:'colormodel'.
+pixelStore
+	perform:#'setPixels(IIII[BII)Z'
+	withArguments:
+	    (Array
+		with:0        "/ x
+		with:0        "/ y
+		with:width    "/ w
+		with:height   "/ h
+		with:data
+		with:0        "/ offs
+		with:width).   "/ scanSize
+pixelStore  perform:#'imageComplete()V'.
+"/        perform:#'imageComplete(I)V'
+"/        with:((Java at:'java.awt.image.ImageConsumer') instVarNamed:'STATICIMAGEDONE').
+"/ self internalError:'breakPoint'.
+^ 1 "/ true
+"Modified: / 10.4.1998 / 14:31:59 / cg"
+!
+_ImageRepresentation_disposeImage:nativeContext
+|imgRep img|
+imgRep := nativeContext receiver.
+img := imgRep instVarNamed:'pData'.
+(img notNil and:[img ~~ 0]) ifTrue:[
+	ImageStretchCache notNil ifTrue:[
+	    ImageStretchCache removeKey:img ifAbsent:nil.
+	]
+].
+imgRep instVarNamed:'pData' put:0.
+"/    self halt.
+"Created: / 7.1.1998 / 22:31:46 / cg"
+"Modified: / 17.1.1998 / 13:26:55 / cg"
+!
+_ImageRepresentation_finish:nativeContext
+|imgRep bool|
+imgRep := nativeContext receiver.
+bool := nativeContext argAt:1.
+"/ self halt.
+"/    'JAVA: ImageRepresentation_finish ignored for now' infoPrintCR.
+^ 1 "/ true
+"Created: / 8.1.1998 / 00:11:40 / cg"
+"Modified: / 6.2.1998 / 02:12:54 / cg"
+!
+_ImageRepresentation_imageDraw:nativeContext
+|imgRep x y img deviceImage jGraphics gc clr|
+imgRep := nativeContext receiver.
+img := imgRep instVarNamed:'pData'.
+(img isNil or:[img == 0]) ifTrue:[
+	"/ self halt.
+	^ self.
+].
+jGraphics := nativeContext argAt:1.
+gc := jGraphics instVarNamed:'pData'.
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:2.
+y := nativeContext argAt:3.
+clr := nativeContext argAt:4.
+deviceImage := img onDevice:gc device.
+deviceImage ~~ img ifTrue:[
+	imgRep instVarNamed:'pData' put:deviceImage.
+].
+gc realized ifFalse:[^ self].
+deviceImage displayOn:gc x:x y:y.
+^ 1.
+"Created: / 13.1.1998 / 13:32:28 / cg"
+"Modified: / 25.11.1998 / 15:36:38 / cg"
+!
+_ImageRepresentation_imageStretch:nativeContext
+|imgRep x1 y1 x2 y2 srcX1 srcY1 w h
+img deviceImage jGraphics gc clr stretchWidth stretchHeight|
+imgRep := nativeContext receiver.
+img := imgRep instVarNamed:'pData'.
+(img isNil or:[img == 0]) ifTrue:[
+	"/ self halt.
+	^ self.
+].
+jGraphics := nativeContext argAt:1.
+gc := jGraphics instVarNamed:'pData'.
+gc realized ifFalse:[^ self].
+x1 := nativeContext argAt:2.
+y1 := nativeContext argAt:3.
+x2 := nativeContext argAt:4.
+y2:= nativeContext argAt:5.
+srcX1 := nativeContext argAt:6.
+srcY1 := nativeContext argAt:7.
+w := nativeContext argAt:8.
+h := nativeContext argAt:9.
+clr := nativeContext argAt:10.
+(srcX1 ~~ 0 or:[srcY1 ~~ 0]) ifTrue:[
+	self halt.
+	^ self.
+].
+(w ~~ img width or:[h ~~ img height]) ifTrue:[
+	self halt.
+	^ self
+].
+"/ TODO: remember magnified images somewhere for a while,
+"/ to avoid repeated action ...
+stretchWidth := (x2-x1).
+stretchHeight := (y2-y1).
+(stretchWidth == img width
+and:[stretchHeight == img height]) ifTrue:[
+	deviceImage := img onDevice:gc device.
+	deviceImage ~~ img ifTrue:[
+	    imgRep instVarNamed:'pData' put:deviceImage.
+	].
+] ifFalse:[
+	ImageStretchCache notNil ifTrue:[
+	    deviceImage := ImageStretchCache at:img ifAbsent:nil.
+	].
+	(deviceImage isNil
+	or:[deviceImage width ~~ stretchWidth
+	or:[deviceImage height ~~ stretchHeight]]) ifTrue:[
+	    deviceImage := (img magnifiedTo:stretchWidth@stretchHeight) onDevice:gc device.
+	    ImageStretchCache isNil ifTrue:[
+		ImageStretchCache := WeakIdentityDictionary new.
+	    ].
+	    ImageStretchCache at:img put:deviceImage
+	].
+].
+deviceImage displayOn:gc x:x1 y:y1
+"Created: / 13.1.1998 / 13:32:28 / cg"
+"Modified: / 15.1.1998 / 13:14:47 / cg"
+!
+_ImageRepresentation_offscreenInit:nativeContext
+|imgRep jclr w h form screenDevice|
+imgRep := nativeContext receiver.
+jclr := nativeContext argAt:1.
+w := imgRep instVarNamed:'width'.
+h := imgRep instVarNamed:'height'.
+screenDevice := Screen current.
+form := Form width:w height:h depth:(screenDevice depth) on:screenDevice.
+imgRep instVarNamed:'pData' put:form.
+"/ self halt.
+"Created: / 7.1.1998 / 22:31:46 / cg"
+"Modified: / 17.1.1998 / 12:36:43 / cg"
+!
+_ImageRepresentation_setBytePixels:nativeContext
+|imgRep x y w h clrModel bytes offs i2
+img depth cmap rgbMap opaque transparentColorIndex
+scanLineWidth nBytes srcIdx dstIdx|
+imgRep := nativeContext receiver.
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+clrModel := nativeContext argAt:5.
+bytes := nativeContext argAt:6.
+offs := nativeContext argAt:7.  "/ offset ??
+scanLineWidth := nativeContext argAt:8.
+depth := clrModel instVarNamed:'pixel_bits'.
+(clrModel instVarNamed:'map_size') ~~ 0 ifTrue:[
+	rgbMap := clrModel instVarNamed:'rgb'.
+	cmap := Array new:rgbMap size.
+	rgbMap
+	    keysAndValuesDo:[:idx :rgb |
+		cmap at:idx put:(Color rgbValue:(rgb bitAnd:16rFFFFFF))
+	    ].
+].
+opaque := (clrModel instVarNamed:'opaque') ~~ 0.
+opaque ifFalse:[
+	transparentColorIndex := clrModel instVarNamed:'transparent_index'
+].
+img := imgRep instVarNamed:'pData'.
+(img isNil or:[img == 0]) ifFalse:[
+"/        self halt
+].
+(offs ~~ 0 or:[scanLineWidth ~~ w]) ifTrue:[
+	nBytes := ByteArray new:w*h.
+	srcIdx := offs+1.
+	dstIdx := 1.
+	1 to:h do:[:y |
+	    nBytes replaceFrom:dstIdx to:(dstIdx+w-1) with:bytes startingAt:srcIdx.
+	    srcIdx := srcIdx + scanLineWidth.
+	    dstIdx := dstIdx + w.
+	].
+	bytes := nBytes.
+].
+img := Image width:w height:h depth:depth fromArray:bytes.
+cmap notNil ifTrue:[
+	img colorMap:cmap.
+	img photometric:#palette
+].
+opaque ifFalse:[
+	img mask:(ImageReader
+		    buildMaskFromColor:transparentColorIndex
+		    for:bytes
+		    width:w
+		    height:h)
+].
+imgRep instVarNamed:'pData' put:img.
+^ 1.
+"Created: / 7.1.1998 / 22:31:46 / cg"
+"Modified: / 21.10.1998 / 00:35:45 / cg"
+!
+_ImageRepresentation_setIntPixels:nativeContext
+|imgRep x y w h clrModel ints offs scanLineWidth
+img depth cmap rgbMap opaque transparentColorIndex
+bytes srcIdx dstIdx val red green blue
+redMask greenMask blueMask redShift greenShift blueShift|
+imgRep := nativeContext receiver.
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+clrModel := nativeContext argAt:5.
+ints := nativeContext argAt:6.
+offs := nativeContext argAt:7.  "/ offset ??
+scanLineWidth := nativeContext argAt:8.  "/ scanLineWidth ??
+opaque := false.
+offs ~~ 0 ifTrue:[
+self halt
+].
+depth := clrModel instVarNamed:'pixel_bits'.
+clrModel class == (Java at:'java.awt.image.DirectColorModel') ifTrue:[
+] ifFalse:[
+	(clrModel instVarNamed:'map_size') ~~ 0 ifTrue:[
+	    rgbMap := clrModel instVarNamed:'rgb'.
+	    cmap := Array new:rgbMap size.
+	    rgbMap
+		keysAndValuesDo:[:idx :rgb |
+		    cmap at:idx put:(Color rgbValue:(rgb bitAnd:16rFFFFFF))
+		].
+	].
+	opaque := (clrModel instVarNamed:'opaque') ~~ 0.
+	opaque ifFalse:[
+	    transparentColorIndex := clrModel instVarNamed:'transparent_index'
+	].
+].
+img := imgRep instVarNamed:'pData'.
+(img isNil or:[img == 0]) ifFalse:[
+"/        self halt.
+].
+depth == 32 ifTrue:[
+	"/ temporary kludge - ony use 24 bits/pixel
+	bytes := ByteArray new:w*h*3.
+	srcIdx := 1.
+	dstIdx := 1.
+	redMask := clrModel instVarNamed:'red_mask'.
+	greenMask := clrModel instVarNamed:'green_mask'.
+	blueMask := clrModel instVarNamed:'blue_mask'.
+	redShift := (clrModel instVarNamed:'red_offset') negated.
+	greenShift := (clrModel instVarNamed:'green_offset') negated.
+	blueShift := (clrModel instVarNamed:'blue_offset') negated.
+	1 to:h do:[:y |
+	    1 to:w do:[:x |
+		val := ints at:srcIdx.
+		red := (val bitAnd:redMask) bitShift:redShift.
+		green := (val bitAnd:greenMask) bitShift:greenShift.
+		blue := (val bitAnd:blueMask) bitShift:blueShift.
+		bytes at:dstIdx put:red.
+		bytes at:dstIdx+1 put:green.
+		bytes at:dstIdx+2 put:blue.
+		dstIdx := dstIdx + 3.
+		srcIdx := srcIdx + 1.
+	    ].
+	    srcIdx := srcIdx + (scanLineWidth - w).
+	].
+	img := Depth24Image width:w height:h depth:24 fromArray:bytes.
+	img photometric:#rgb.
+] ifFalse:[
+	scanLineWidth ~~ w ifTrue:[
+	    self halt
+	].
+	img := Image width:w height:h depth:depth fromArray:ints.
+	cmap notNil ifTrue:[
+	    img colorMap:cmap.
+	    img photometric:#palette
+	] ifFalse:[
+	    img photometric:#rgb
+	].
+].
+opaque ifFalse:[
+	img mask:(ImageReader
+		    buildMaskFromColor:transparentColorIndex
+		    for:ints
+		    width:w
+		    height:h)
+].
+imgRep instVarNamed:'pData' put:img.
+^ 1.
+"Created: / 1.2.1998 / 17:38:47 / cg"
+"Modified: / 21.10.1998 / 00:35:37 / cg"
+!
+_InetAddressImpl_getHostByAddr:nativeContext
+"/ java.lang.String getHostByAddr (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:08:04 / cg"
+!
+_InetAddressImpl_getInetFamily:nativeContext
+"/ self unimplementedNativeMethod.
+^ 0
+"Modified: / 15.8.1997 / 17:04:43 / cg"
+"Created: / 5.1.1998 / 02:05:48 / cg"
+!
+_InetAddressImpl_getLocalHostName:nativeContext
+""
+|hostName|
+hostName := OperatingSystem getHostName.
+^ (Java as_String:hostName).
+"Modified: / 7.8.1997 / 21:16:55 / cg"
+"Created: / 5.1.1998 / 02:07:03 / cg"
+!
+_InetAddressImpl_lookupAllHostAddr:nativeContext
+""
+|jAddrImpl jHostName hostName addrBytes|
+jAddrImpl := nativeContext receiver.
+jHostName := nativeContext argAt:1.
+hostName := Java as_ST_String:jHostName.
+addrBytes := Socket ipAddressOfHost:hostName.
+addrBytes isNil ifTrue:[
+	addrBytes := #[0 0 0 0] copy
+].
+^ Array with:addrBytes
+"Modified: / 8.8.1997 / 12:04:25 / cg"
+"Created: / 7.1.1998 / 18:51:31 / cg"
+!
+_InetAddressImpl_makeAnyLocalAddress:nativeContext
+""
+|jAddrImpl jAddr hostName addrBytes address|
+jAddrImpl := nativeContext receiver.
+jAddr := nativeContext argAt:1.
+hostName := OperatingSystem getHostName.
+addrBytes := Socket ipAddressOfHost:hostName.
+addrBytes isNil ifTrue:[
+	addrBytes := #[127 0 0 0].
+].
+"/ MSB first into an integer.
+address := (addrBytes at:1).
+address := (address bitShift:8) bitOr:(addrBytes at:2).
+address := (address bitShift:8) bitOr:(addrBytes at:3).
+address := (address bitShift:8) bitOr:(addrBytes at:4).
+jAddr instVarNamed:'hostName' put:(Java as_String:hostName).
+jAddr instVarNamed:'address' put:address.
+jAddr instVarNamed:'family' put:0.
+^ nil
+"Created: / 5.1.1998 / 02:06:27 / cg"
+"Modified: / 21.10.1998 / 03:30:29 / cg"
+!
+_InetAddress_getInetFamily:nativeContext
+"/ self unimplementedNativeMethod.
+^ 0
+"Modified: / 15.8.1997 / 17:04:43 / cg"
+"Created: / 17.11.1998 / 23:54:38 / cg"
+!
+_InetAddress_getLocalHostName:nativeContext
+""
+|hostName|
+hostName := OperatingSystem getHostName.
+^ Java as_String:hostName.
+"Modified: / 7.8.1997 / 21:16:55 / cg"
+"Created: / 17.11.1998 / 23:54:54 / cg"
+!
+_InetAddress_init:nativeContext
+"/ introduced with jdk1.2 ... (sigh)
+"Created: / 27.1.1998 / 18:16:40 / cg"
+!
+_InetAddress_lookupAllHostAddr:nativeContext
+""
+|jAddrImpl jHostName hostName addrBytes|
+jAddrImpl := nativeContext receiver.
+jHostName := nativeContext argAt:1.
+hostName := Java as_ST_String:jHostName.
+addrBytes := Socket ipAddressOfHost:hostName.
+addrBytes isNil ifTrue:[
+	addrBytes := #[0 0 0 0] copy
+].
+^ Array with:addrBytes
+"Modified: / 8.8.1997 / 12:04:25 / cg"
+"Created: / 17.11.1998 / 23:56:10 / cg"
+!
+_InetAddress_lookupHostByAddr:nativeContext
+"java.lang.Object[] lookupHostByAddr (int)"
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:59:22 / cg"
+!
+_InetAddress_lookupHostByName:nativeContext
+"java.lang.Object[] lookupHostByName (java.lang.String)"
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 02:58:53 / cg"
+!
+_InetAddress_makeAnyLocalAddress:nativeContext
+""
+|jAddrImpl jAddr hostName addrBytes address|
+jAddrImpl := nativeContext receiver.
+jAddr := nativeContext argAt:1.
+hostName := OperatingSystem getHostName.
+addrBytes := Socket ipAddressOfHost:hostName.
+addrBytes isNil ifTrue:[
+	addrBytes := #[127 0 0 0].
+].
+"/ MSB first into an integer.
+address := (addrBytes at:1).
+address := (address bitShift:8) bitOr:(addrBytes at:2).
+address := (address bitShift:8) bitOr:(addrBytes at:3).
+address := (address bitShift:8) bitOr:(addrBytes at:4).
+jAddr instVarNamed:'hostName' put:(Java as_String:hostName).
+jAddr instVarNamed:'address' put:address.
+jAddr instVarNamed:'family' put:0.
+^ nil
+"Modified: / 21.10.1998 / 03:30:29 / cg"
+"Created: / 17.11.1998 / 23:54:00 / cg"
+!
+_Inflater_end0:nativeContext
+"/ void end0 ()
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:08:47 / cg"
+"Created: / 27.1.2000 / 03:11:21 / cg"
+!
+_Inflater_getAdler0:nativeContext
+"/ int getAdler0 ()
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:08:47 / cg"
+"Created: / 27.1.2000 / 03:12:15 / cg"
+!
+_Inflater_getTotalIn0:nativeContext
+"/ int getTotalIn0 ()
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 03:10:50 / cg"
+"Modified: / 27.1.2000 / 03:11:08 / cg"
+!
+_Inflater_getTotalOut0:nativeContext
+"/ int getTotalOut0 ()
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:08:47 / cg"
+"Created: / 27.1.2000 / 03:12:01 / cg"
+!
+_Inflater_inflate0:nativeContext
+"/ int inflate0 (byte[] int int)
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:08:47 / cg"
+"Created: / 27.1.2000 / 03:11:39 / cg"
+!
+_Inflater_reset0:nativeContext
+"/ void reset0 ()
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:08:47 / cg"
+"Created: / 27.1.2000 / 03:11:02 / cg"
+!
+_Inflater_reset:nativeContext
+UnimplementedNativeMethodSignal raise.
+"Created: / 01-02-1998 / 20:14:13 / cg"
+"Modified: / 30-04-2011 / 22:56:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Inflater_setDictionary0:nativeContext
+"/ void setDictionary0 (byte[] int int)
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:08:47 / cg"
+"Created: / 27.1.2000 / 03:10:33 / cg"
+!
+_InputThread_run:nativeContext
+self _WToolkit_eventLoop:nativeContext.
+"Created: / 28.1.1998 / 22:34:47 / cg"
+"Modified: / 28.1.1998 / 22:35:16 / cg"
+!
+_Introspector_getMethodDescriptor:nativeContext
+"java.lang.String getMethodDescriptor (java.lang.reflect.Method)"
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:47:43 / cg"
+!
+_Introspector_getMethodParameterCount:nativeContext
+"int getMethodParameterCount (java.lang.reflect.Method)"
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:49:15 / cg"
+!
+_Introspector_getPublicDeclaredMethods0:nativeContext
+"java.lang.reflect.Method[] getPublicDeclaredMethods0 (java.lang.Class)"
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:48:49 / cg"
+!
+_JPEGImageDecoder_readImage:nativeContext
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 18:53:30 / cg"
+"Modified: / 12.11.1998 / 18:53:40 / cg"
+!
+_MButtonPeer_create:nativeContext
+^ self _WButtonPeer_create:nativeContext
+!
+_MCanvasPeer_create:nativeContext
+|jCanvasPeer jFrame frame subView|
+jCanvasPeer := nativeContext receiver.
+jFrame := nativeContext argAt:1.
+jFrame isNil ifTrue:[
+	self halt:'no frame in canvasPeer create'.
+	self internalError:'no frame in canvasPeer create'.
+	^ self.
+].
+frame := jFrame instVarNamed:'pData'.
+subView := JavaView in:frame.
+subView delegate:self.
+subView javaPeer:jCanvasPeer.
+self createdWindowsView:subView for:jCanvasPeer.
+WindowCreationTrace == true ifTrue:[
+	'WCanvasPeer_create: ' print. frame print. ' -> ' print. subView printNL.
+].
+"Modified: / 16.1.1998 / 13:40:00 / cg"
+"Created: / 18.11.1998 / 00:14:44 / cg"
+!
+_MComponentPeer_cacheInit:nativeContext
+"Created: / 28.1.1998 / 22:22:30 / cg"
+!
+_MComponentPeer_handleEvent:nativeContext
+^ self _WComponentPeer_handleEvent:nativeContext
+"Created: / 18.11.1998 / 00:21:17 / cg"
+!
+_MComponentPeer_nativeHandleEvent:nativeContext
+^ self _WComponentPeer_nativeHandleEvent:nativeContext
+!
+_MComponentPeer_pHide:nativeContext
+^ self _WComponentPeer_hide:nativeContext
+"Created: / 18.11.1998 / 00:15:18 / cg"
+!
+_MComponentPeer_pInitialize:nativeContext
+"Created: / 28.1.1998 / 22:27:25 / cg"
+!
+_MComponentPeer_pReshape:nativeContext
+self commonReshapeComponent:nativeContext
+"Created: / 18.11.1998 / 00:18:17 / cg"
+!
+_MComponentPeer_pSetBackground:nativeContext
+|view jClr rgb clr|
+view := self viewForWPeer:nativeContext.
+jClr := nativeContext argAt:1.
+rgb := jClr instVarNamed:'value'.
+clr := Color rgbValue:rgb.
+clr := clr on:(view device).
+(view isKindOf:ScrollableView) ifTrue:[
+view := view scrolledView
+].
+view viewBackground:clr.
+view backgroundPaint:clr.
+!
+_MComponentPeer_pSetFont:nativeContext
+|view jFont stFont name style size|
+view := self viewForWPeer:nativeContext.
+jFont := nativeContext argAt:1.
+stFont := jFont instVarNamed:'pData'.
+(stFont isNil or:[stFont == 0]) ifTrue:[
+name := jFont instVarNamed:'name'.
+style := jFont instVarNamed:'style'.
+size := jFont instVarNamed:'size'.
+stFont := self replacementFontFor:(Java as_ST_String:name) style:style size:size.
+jFont instVarNamed:'pData' put:stFont.
+].
+view font:stFont.
+^ nil
+!
+_MComponentPeer_pSetForeground:nativeContext
+|view jClr rgb clr|
+view := self viewForWPeer:nativeContext.
+jClr := nativeContext argAt:1.
+rgb := jClr instVarNamed:'value'.
+clr := Color rgbValue:rgb.
+clr := clr on:(view device).
+(view isKindOf:ScrollableView) ifTrue:[
+view := view scrolledView
+].
+view foregroundColor:clr.
+!
+_MComponentPeer_pShow:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ frame views are under my browsers own control
+(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
+	view beVisible.
+	view realize.
+].
+"/    view windowGroup notNil ifTrue:[
+"/        windowServer addGroup:(view windowGroup)
+"/    ].
+^ nil
+"/ self halt.
+"Modified: / 25.1.1998 / 09:54:07 / cg"
+"Created: / 18.11.1998 / 00:21:51 / cg"
+!
+_MComponentPeer_setBackground:nativeContext
+|jClr rgb clr view|
+view := self viewForWPeer:nativeContext.
+jClr := nativeContext argAt:1.
+rgb := jClr instVarNamed:'value'.
+"/ self halt.
+clr := Color rgbValue:rgb.
+clr := clr on:(view device).
+(view isKindOf:ScrollableView) ifTrue:[
+	view := view scrolledView
+].
+view viewBackground:clr.
+view backgroundPaint:clr.
+"Created: / 17.11.1998 / 23:49:41 / cg"
+!
+_MComponentPeer_setCursor:nativeContext
+"Created: / 28.1.1998 / 22:27:35 / cg"
+!
+_MComponentPeer_setFont:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ self halt.
+"Modified: / 25.1.1998 / 01:22:19 / cg"
+"Created: / 17.11.1998 / 23:43:48 / cg"
+!
+_MComponentPeer_setForeground:nativeContext
+|jClr rgb clr view|
+view := self viewForWPeer:nativeContext.
+jClr := nativeContext argAt:1.
+rgb := jClr instVarNamed:'value'.
+"/ self halt.
+clr := Color rgbValue:rgb.
+clr := clr on:(view device).
+view paint:clr.
+"Created: / 17.11.1998 / 23:50:31 / cg"
+"Modified: / 17.11.1998 / 23:57:29 / cg"
+!
+_MFramePeer_create:nativeContext
+^ self _WFramePeer_create:nativeContext
+"Created: / 28.1.1998 / 22:25:44 / cg"
+!
+_MFramePeer_getWindowBackgroundColor:nativeContext
+^ View defaultViewBackgroundColor rgbValue.
+"Created: / 17.11.1998 / 23:55:42 / cg"
+!
+_MFramePeer_pHide:nativeContext
+^ self _WComponentPeer_hide:nativeContext
+"Created: / 28.1.1998 / 22:27:04 / cg"
+!
+_MFramePeer_pReshape:nativeContext
+self commonReshapeComponent:nativeContext
+"Created: / 28.1.1998 / 22:28:00 / cg"
+"Modified: / 28.1.1998 / 22:29:34 / cg"
+!
+_MFramePeer_pSetTitle:nativeContext
+self _WWindowPeer__setTitle:nativeContext
+"Created: / 28.1.1998 / 22:30:23 / cg"
+!
+_MFramePeer_pShow:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ frame views are under my browsers own control
+(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
+	view beVisible.
+	view realize.
+].
+"/    view windowGroup notNil ifTrue:[
+"/        windowServer addGroup:(view windowGroup)
+"/    ].
+^ nil
+"/ self halt.
+"Modified: / 25.1.1998 / 09:54:07 / cg"
+"Created: / 18.11.1998 / 00:19:59 / cg"
+!
+_MFramePeer_setInsets:nativeContext
+"Created: / 17.11.1998 / 23:55:32 / cg"
+!
+_MFramePeer_setResizable:nativeContext
+|view onOff|
+view := self viewForWPeer:nativeContext.
+onOff := (nativeContext argAt:1) == 1.
+view isTopView ifTrue:[
+	onOff ifTrue:[
+	    view minExtent:10@10.
+	    view maxExtent:(Screen current extent).
+	] ifFalse:[
+	    view minExtent:view extent.
+	    view maxExtent:view extent.
+	]
+] ifFalse:[
+	(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
+	    self halt.
+	]
+].
+"/ 'JAVA: WWindowPeer_setResizable: ' print. view print. ' yes/no: ' print. onOff printNL.
+^ nil
+"Modified: / 16.1.1998 / 18:08:00 / cg"
+"Created: / 17.11.1998 / 23:51:45 / cg"
+!
+_MToolkit_callbackLoop:nativeContext
+|toolKit|
+toolKit := nativeContext receiver.
+^ self.
+self halt.
+self wakeup:toolKit.
+self halt.
+(JavaEventThread notNil and:[JavaEventThread isDead not]) ifTrue:[
+	'JavaVM [warning]: oops - two threads executing eventLoop' errorPrintCR.
+].
+JavaEventThread := Processor activeProcess.
+[
+	[true] whileTrue:[
+	    AbortSignal handle:[:ex |
+		ex return
+	    ] do:[
+		self doWindowsEventThread.
+	    ]
+	].
+] valueNowOrOnUnwindDo:[
+	JavaEventThread := nil.
+].
+"Created: / 17.11.1998 / 23:58:33 / cg"
+"Modified: / 8.1.1999 / 17:08:35 / cg"
+!
+_MToolkit_eventLoop:nativeContext
+|toolKit|
+(JavaEventThread notNil and:[JavaEventThread isDead not]) ifTrue:[
+	'JavaVM [warning]: oops - two threads executing eventLoop' errorPrintCR.
+].
+toolKit := nativeContext receiver.
+self wakeup:toolKit.
+self halt.
+JavaEventThread := Processor activeProcess.
+[
+	[true] whileTrue:[
+	    AbortSignal handle:[:ex |
+		ex return
+	    ] do:[
+		self doWindowsEventThread.
+	    ]
+	].
+] valueNowOrOnUnwindDo:[
+	JavaEventThread := nil.
+].
+"Created: / 17.11.1998 / 23:04:29 / cg"
+"Modified: / 8.1.1999 / 17:08:21 / cg"
+!
+_MToolkit_init:nativeContext
+"Created: / 28.1.1998 / 22:21:54 / cg"
+!
+_MToolkit_loadSystemColors:nativeContext
+^ self _WToolkit_loadSystemColors:nativeContext
+!
+_MToolkit_run:nativeContext
+"Created: / 28.1.1998 / 22:22:10 / cg"
+!
+_Math_IEEEremainder:nativeContext
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 18:52:36 / cg"
+!
+_Math_acos:nativeContext
+"arc cosine"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>acos' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal arcCos
+"Created: / 7.5.1998 / 00:34:50 / cg"
+"Modified: / 11.11.1998 / 15:08:20 / cg"
+!
+_Math_asin:nativeContext
+"arc sine"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>asin' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal arcSin
+"Created: / 7.5.1998 / 00:34:26 / cg"
+"Modified: / 11.11.1998 / 15:08:15 / cg"
+!
+_Math_atan2:nativeContext
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 18:52:52 / cg"
+!
+_Math_atan:nativeContext
+"arc tangens"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>atan' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal arcTan
+"Created: / 6.2.1998 / 01:24:12 / cg"
+"Modified: / 11.11.1998 / 15:08:11 / cg"
+!
+_Math_ceil:nativeContext
+"ceiling"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>ceil' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal ceilingAsFloat
+"Created: / 7.1.1998 / 15:43:00 / cg"
+"Modified: / 11.11.1998 / 15:08:04 / cg"
+!
+_Math_cos:nativeContext
+"cosine"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>cos' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal cos
+"Created: / 7.1.1998 / 15:41:30 / cg"
+"Modified: / 11.11.1998 / 15:07:59 / cg"
+!
+_Math_exp:nativeContext
+"exponential"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>exp' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal exp
+"Created: / 7.5.1998 / 00:36:19 / cg"
+"Modified: / 11.11.1998 / 15:07:50 / cg"
+!
+_Math_floor:nativeContext
+"floor"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>floor' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal floorAsFloat
+"Created: / 7.1.1998 / 19:09:21 / cg"
+"Modified: / 11.11.1998 / 15:07:45 / cg"
+!
+_Math_log:nativeContext
+"natural logarithm"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>log' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal ln
+"Created: / 7.1.1998 / 15:42:19 / cg"
+"Modified: / 30.12.1998 / 17:41:42 / cg"
+!
+_Math_pow:nativeContext
+"power"
+|dVal1 dVal2|
+dVal1 := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal1 isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>pow' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+dVal2 := nativeContext argAt:3.
+"/    (nativeContext argAt:4) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal2 isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>pow' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal1 raisedTo:dVal2
+"Created: / 7.1.1998 / 15:44:13 / cg"
+"Modified: / 11.11.1998 / 15:07:33 / cg"
+!
+_Math_rint:nativeContext
+|dVal|
+dVal := nativeContext argAt:1.
+^ dVal rounded asFloat.
+!
+_Math_sin:nativeContext
+"sine"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>sin' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal sin
+"Created: / 7.1.1998 / 15:41:40 / cg"
+"Modified: / 11.11.1998 / 15:07:09 / cg"
+!
+_Math_sqrt:nativeContext
+"square root"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>sqrt' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+"/ how about domain errors ?
+dVal < 0 ifTrue:[
+	^ 0.0
+].
+^ dVal sqrt
+"Created: / 7.1.1998 / 15:42:40 / cg"
+"Modified: / 29.12.1998 / 13:22:36 / cg"
+!
+_Math_tan:nativeContext
+"tangent"
+|dVal|
+dVal := nativeContext argAt:1.
+"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
+"/        dVal isReal ifTrue:[
+"/            'JAVAVM [info]: missing double flag in Math>>tan' infoPrintCR.
+"/        ] ifFalse:[
+"/            self halt:'expected double arg'
+"/        ]
+"/    ].
+^ dVal tan
+"Created: / 7.5.1998 / 00:34:03 / cg"
+"Modified: / 11.11.1998 / 15:07:14 / cg"
+!
+_MemoryAdvice_register0:nativeContext
+"private native void register0()"
+"/ UnimplementedNativeMethodSignal raise
+!
+_Method_getModifiers:nativeContext
+|jMethod mthd retVal|
+jMethod := nativeContext receiver.
+mthd := JavaMethods at:jMethod ifAbsent:nil.
+mthd isNil ifTrue:[
+	self halt.
+	^ 0
+].
+^ mthd accessFlags
+"Modified: / 9.4.1998 / 17:50:01 / cg"
+!
+_Method_invoke:nativeContext
+"invoke a javaMethod"
+|jMethod mthd rec args retVal|
+jMethod := nativeContext receiver.
+rec := nativeContext argAt:1.
+args := nativeContext argAt:2.
+mthd := JavaMethods at:jMethod ifAbsent:nil.
+mthd isNil ifTrue:[
+	self halt.
+].
+"/ check for arguments to match the expected types ...
+mthd argSignature keysAndValuesDo:[:index :argSig |
+	|cls arg|
+	cls := Java at:argSig.
+	arg := args at:index.
+	(arg isKindOf:cls) ifFalse:[
+	    self halt.
+	]
+].
+mthd isStatic ifTrue:[
+	retVal := mthd valueWithReceiver:(mthd javaClass) arguments:args selector:mthd selector.
+	^ retVal
+] ifFalse:[
+	self halt.
+].
+self halt.
+"Created: / 13.2.1998 / 15:15:28 / cg"
+"Modified: / 13.2.1998 / 15:35:54 / cg"
+!
+_MozillaAppletContext_pMochaOnLoad:nativeContext
+|id|
+id := nativeContext argAt:1.
+"/ 'JAVA: MozillaAppletContext_pMochaOnLoad: ' print. id printNL.
+^ nil
+"Created: / 6.1.1998 / 20:37:13 / cg"
+"Modified: / 6.2.1998 / 02:13:09 / cg"
+!
+_MozillaAppletContext_pShowDocument:nativeContext
+|jAppletContext s1 s2 s3 js|
+jAppletContext := nativeContext receiver.
+js := nativeContext argAt:1.
+s1 := Java as_ST_String:js.
+js := nativeContext argAt:2.
+s2 := Java as_ST_String:js.
+js := nativeContext argAt:3.
+s2 := Java as_ST_String:js.
+"/ somehow pass it to the html browser ....
+Transcript show:'pShowDocument: '; show:s1; show:' / ';
+	   show:s2; show:' / '; showCR:s3.
+^ nil
+"Created: / 29.3.1998 / 15:53:17 / cg"
+"Modified: / 29.12.1998 / 13:32:41 / cg"
+!
+_MozillaAppletContext_pShowStatus:nativeContext
+|s js|
+js := nativeContext argAt:1.
+js isNil ifTrue:[
+	s := ''
+] ifFalse:[
+	s := Java as_ST_String:js.
+].
+self activityNotification:s.
+"/ Transcript showCR:s.
+^ nil
+"Created: / 6.1.1998 / 18:31:34 / cg"
+"Modified: / 22.10.1998 / 01:17:46 / cg"
+!
+_MozillaAppletContext_setConsoleState0:nativeContext
+"/ void setConsoleState0 (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:23:22 / cg"
+!
+_ObjectInputStream_allocateNewArray:nativeContext
+"/ java.lang.Object allocateNewArray (java.lang.Class int)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:02:52 / cg"
+!
+_ObjectInputStream_allocateNewObject:nativeContext
+"/ java.lang.Object allocateNewObject (java.lang.Class java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:02:40 / cg"
+!
+_ObjectInputStream_inputClassFields:nativeContext
+"/ void inputClassFields (java.lang.Object java.lang.Class int[])
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:02:22 / cg"
+!
+_ObjectInputStream_invokeDefaultReadObject:nativeContext
+"/ void invokeDefaultReadObject (java.lang.Object java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 03:00:47 / cg"
+!
+_ObjectInputStream_invokeObjectReader:nativeContext
+"/ boolean invokeObjectReader (java.lang.Object java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:03:06 / cg"
+!
+_ObjectInputStream_invokeReadObject:nativeContext
+"/ void invokeReadObject (java.lang.Object java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 03:01:02 / cg"
+!
+_ObjectInputStream_loadClass0:nativeContext
+"/ java.lang.Class loadClass0 (java.lang.Class java.lang.String)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:01:15 / cg"
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+!
+_ObjectOutputStream_invokeDefaultWriteObject:nativeContext
+"/ void invokeDefaultWriteObject (java.lang.Object java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 03:01:36 / cg"
+!
+_ObjectOutputStream_invokeObjectWriter:nativeContext
+"/ boolean invokeObjectWriter (java.lang.Object java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:00:36 / cg"
+"Modified: / 12.11.1998 / 19:01:45 / cg"
+!
+_ObjectOutputStream_invokeWriteObject:nativeContext
+"/ void invokeWriteObject (java.lang.Object java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 03:01:52 / cg"
+!
+_ObjectOutputStream_outputClassFields:nativeContext
+"/ void outputClassFields (java.lang.Object java.lang.Class int[])
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:00:09 / cg"
+"Modified: / 12.11.1998 / 19:01:42 / cg"
+!
+_ObjectStreamClass_doMismatchedRead:nativeContext
+"/ void doMismatchedRead (java.io.ObjectInputStream java.lang.Object)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 02:50:55 / cg"
+!
+_ObjectStreamClass_findObjectMethod0:nativeContext
+"/ boolean findObjectMethod0 (java.lang.Class int)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 02:51:50 / cg"
+!
+_ObjectStreamClass_getClassAccess:nativeContext
+"/ int getClassAccess (java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:04:19 / cg"
+!
+_ObjectStreamClass_getClassDefinedUID:nativeContext
+"/ long getClassDefinedUID (java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 02:51:33 / cg"
+!
+_ObjectStreamClass_getFieldAccess:nativeContext
+"/ int getFieldAccess (java.lang.Class java.lang.String)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:05:19 / cg"
+!
+_ObjectStreamClass_getFieldSignatures:nativeContext
+"/ java.lang.String[] getFieldSignatures (java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:05:04 / cg"
+!
+_ObjectStreamClass_getFields0:nativeContext
+"/ java.io.ObjectStreamField[] getFields0 (java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:05:32 / cg"
+!
+_ObjectStreamClass_getMethodAccess:nativeContext
+"/ int getMethodAccess (java.lang.Class java.lang.String)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:04:51 / cg"
+!
+_ObjectStreamClass_getMethodSignatures:nativeContext
+"/ java.lang.String[] getMethodSignatures (java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:04:34 / cg"
+!
+_ObjectStreamClass_getSerialVersionUID:nativeContext
+"/ long getSerialVersionUID (java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:05:43 / cg"
+!
+_ObjectStreamClass_hasWriteObject:nativeContext
+"/ boolean hasWriteObject (java.lang.Class)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 19:01:48 / cg"
+"Created: / 12.11.1998 / 19:05:53 / cg"
+!
+_OffScreenImageSource_sendPixels:nativeContext
+"/ self halt.
+"/ UnimplementedNativeMethodSignal raise
+"Modified: / 16.1.1998 / 18:22:23 / cg"
+"Created: / 17.1.1998 / 12:36:25 / cg"
+!
+_PackedColorModel_initIDs:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 28.1.1998 / 22:19:35 / cg"
+!
+_PlainDatagramSocketImpl_bind:nativeContext
+|jsock jaddr port sock hostName ok err|
+jsock := nativeContext receiver.
+port := nativeContext argAt:1.
+jaddr := nativeContext argAt:2.
+hostName := jaddr instVarNamed:'hostName'.
+hostName isNil ifTrue:[
+	self halt.
+] ifFalse:[
+	hostName := Java as_ST_String:hostName
+].
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket bind to ' , hostName printString, ' port ' , port printString) infoPrintCR
+	].
+	ok := sock bindTo:port address:nil "hostName".
+	ok ifFalse:[
+	    err := OperatingSystem lastErrorString.
+	    Transcript showCR:'sock err: ' , err printString.
+	    self throwIOExceptionWithMessage:'bind failed'.
+	]
+].
+"Created: / 4.2.1998 / 15:06:20 / cg"
+"Modified: / 30.12.1998 / 20:10:16 / cg"
+!
+_PlainDatagramSocketImpl_datagramSocketClose:nativeContext
+|jsock sock|
+jsock := nativeContext receiver.
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    'JAVA: datagram close socket' infoPrintCR
+	].
+	sock close.
+].
+"Modified: / 21.8.1997 / 17:09:40 / cg"
+"Created: / 25.1.1998 / 20:04:24 / cg"
+!
+_PlainDatagramSocketImpl_datagramSocketCreate:nativeContext
+|jsock fd sock fileNo|
+jsock := nativeContext receiver.
+fd := jsock instVarNamed:'fd'.
+(fd instVarNamed:'fd') ~~ 0 ifTrue:[
+	self halt:'file already open'.
+	self internalError:'file already open'.
+	self throwIOExceptionWithMessage:'file already open in socketCreate'.
+	^ self.
+].
+FileOpenTrace ifTrue:[
+	('JAVA: create datagram socket') infoPrintCR.
+].
+sock := Socket newUDP.
+sock isNil ifTrue:[
+	self throwIOExceptionWithMessage:'socketCreate failed'.
+].
+fileNo := self addOpenFile:sock.
+fd instVarNamed:'fd' put:fileNo.
+"Created: / 25.1.1998 / 19:59:25 / cg"
+"Modified: / 30.12.1998 / 20:10:38 / cg"
+!
+_PlainDatagramSocketImpl_join:nativeContext
+"/ native void join (InetAddress arg1)
+|jsock addr sock ok err|
+jsock := nativeContext receiver.
+addr := nativeContext argAt:1.
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket join ' , addr printString) infoPrintCR
+	].
+	self throwIOExceptionWithMessage:'unimplemented: join'.
+self halt.
+	^ nil.  "/ void
+].
+"Created: / 4.2.1998 / 15:06:20 / cg"
+"Modified: / 30.12.1998 / 20:10:16 / cg"
+!
+_PlainDatagramSocketImpl_receive:nativeContext
+|jsock jdatagramPacket sock ok|
+jsock := nativeContext receiver.
+jdatagramPacket := nativeContext argAt:1.
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket receive') infoPrintCR
+	].
+	^ -1.
+].
+^ -1
+"Created: / 4.2.1998 / 15:06:20 / cg"
+"Modified: / 30.12.1998 / 20:10:16 / cg"
+!
+_PlainDatagramSocketImpl_send:nativeContext
+|jsock jdatagramPacket sock ok|
+jsock := nativeContext receiver.
+jdatagramPacket := nativeContext argAt:1.
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket send') infoPrintCR
+	].
+	^ -1.
+].
+^ -1
+"Created: / 4.2.1998 / 15:06:20 / cg"
+"Modified: / 30.12.1998 / 20:10:16 / cg"
+!
+_PlainDatagramSocketImpl_socketGetOption:nativeContext
+|jsock opt port sock hostName ok err|
+jsock := nativeContext receiver.
+opt := nativeContext argAt:1.
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket getOption ' , opt printString) infoPrintCR
+	].
+	self throwIOExceptionWithMessage:'unimplemented: getOption'.
+self halt.
+	^ -1.
+].
+^ -1.
+"Created: / 4.2.1998 / 15:06:20 / cg"
+"Modified: / 30.12.1998 / 20:10:16 / cg"
+!
+_PlainDatagramSocketImpl_socketSetOption:nativeContext
+"/ native void socketSetOption (int arg1, java.lang.Object arg2)
+|jsock opt optVal sock ok err jSocketOptions|
+jsock := nativeContext receiver.
+opt := nativeContext argAt:1.
+optVal := nativeContext argAt:2.
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket setOption ' , opt printString) infoPrintCR
+	].
+	jSocketOptions := Java at:'java.net.SocketOptions'.
+	(opt == (jSocketOptions instVarNamed:'TCP_NODELAY')) ifTrue:[
+	] ifFalse:[
+	    (opt == (jSocketOptions instVarNamed:'SO_BINDADDR')) ifTrue:[
+	    ] ifFalse:[
+		(opt == (jSocketOptions instVarNamed:'SO_REUSEADDR')) ifTrue:[
+		] ifFalse:[
+		    (opt == (jSocketOptions instVarNamed:'IP_MULTICAST_IF')) ifTrue:[
+		    ] ifFalse:[
+			(opt == (jSocketOptions instVarNamed:'SO_LINGER')) ifTrue:[
+			] ifFalse:[
+			    (opt == (jSocketOptions instVarNamed:'SO_TIMEOUT')) ifTrue:[
+			    ] ifFalse:[
+				self throwIOExceptionWithMessage:'bad arg to setOption'.
+			    ]
+			]
+		    ]
+		]
+	    ]
+	].
+	self throwIOExceptionWithMessage:'unimplemented: setOption'.
+self halt.
+	^ nil.  "/ void
+].
+"Created: / 4.2.1998 / 15:06:20 / cg"
+"Modified: / 30.12.1998 / 20:10:16 / cg"
+!
+_PlainSocketImpl_initProto:nativeContext
+"Created: / 12.1.1998 / 12:56:52 / cg"
+!
+_PlainSocketImpl_socketAccept:nativeContext
+|jsock fd newJSock sock newSock fileNo|
+jsock := nativeContext receiver.
+sock := self validateFile:jsock.
+sock isNil ifTrue:[
+	self throwIOExceptionWithMessage:'nil socket in accept'.
+	^ self.
+].
+newJSock := nativeContext argAt:1.
+fd := newJSock instVarNamed:'fd'.
+(fd instVarNamed:'fd') ~~ 0 ifTrue:[
+	self halt:'file already open'.
+	self internalError:'file already open'.
+	self throwIOExceptionWithMessage:'socket already open in socketAccept'.
+	^ self.
+].
+FileIOTrace ifTrue:[
+	'JAVA: socket accept' infoPrintCR
+].
+newSock := sock accept.
+newSock isNil ifTrue:[
+	self throwIOExceptionWithMessage:'accept failed'.
+].
+fileNo := self addOpenFile:newSock.
+fd instVarNamed:'fd' put:fileNo.
+"Created: / 4.2.1998 / 15:26:49 / cg"
+"Modified: / 30.12.1998 / 20:10:01 / cg"
+!
+_PlainSocketImpl_socketAvailable:nativeContext
+|jSock sock n|
+jSock := nativeContext receiver.
+sock := self validateFile:jSock.
+sock isNil ifTrue:[
+	self throwIOExceptionWithMessage:'socketAvailable on closed socket'.
+	^ self.
+].
+n := sock numAvailable.
+^ n
+"Created: / 4.2.1998 / 16:58:49 / cg"
+"Modified: / 30.12.1998 / 20:10:08 / cg"
+!
+_PlainSocketImpl_socketBind:nativeContext
+|jsock jaddr port sock hostName ok err|
+jsock := nativeContext receiver.
+jaddr := nativeContext argAt:1.
+port := nativeContext argAt:2.
+hostName := jaddr instVarNamed:'hostName'.
+hostName isNil ifTrue:[
+	self halt.
+] ifFalse:[
+	hostName := Java as_ST_String:hostName
+].
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket bind to ' , hostName printString, ' port ' , port printString) infoPrintCR
+	].
+	ok := sock bindTo:port address:nil "hostName".
+	ok ifFalse:[
+	    err := OperatingSystem lastErrorString.
+	    Transcript showCR:'sock err: ' , err printString.
+	    self throwIOExceptionWithMessage:'bind failed'.
+	]
+].
+"Created: / 4.2.1998 / 15:06:20 / cg"
+"Modified: / 30.12.1998 / 20:10:16 / cg"
+!
+_PlainSocketImpl_socketClose:nativeContext
+|jsock sock|
+jsock := nativeContext receiver.
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    'JAVA: close socket' infoPrintCR
+	].
+	sock close.
+].
+"Modified: / 21.8.1997 / 17:09:40 / cg"
+"Created: / 25.1.1998 / 20:04:24 / cg"
+!
+_PlainSocketImpl_socketConnect:nativeContext
+|jsock jaddr port sock addr hostName ok|
+jsock := nativeContext receiver.
+jaddr := nativeContext argAt:1.
+port := nativeContext argAt:2.
+hostName := jaddr instVarNamed:'hostName'.
+hostName notNil ifTrue:[
+hostName := Java as_ST_String:hostName
+] ifFalse:[
+addr := jaddr instVarNamed:'address'.
+addr notNil ifTrue:[
+hostName := ByteArray new:4.
+hostName at:4 put:(addr bitAnd:16rFF).
+addr := addr bitShift:-8.
+hostName at:3 put:(addr bitAnd:16rFF).
+addr := addr bitShift:-8.
+hostName at:2 put:(addr bitAnd:16rFF).
+addr := addr bitShift:-8.
+hostName at:1 put:(addr bitAnd:16rFF).
+].
+].
+hostName isNil ifTrue:[
+self halt.
+].
+sock := self validateFile:jsock.
+sock notNil ifTrue:[
+FileIOTrace ifTrue:[
+('JAVA: socket connect to ' , hostName printString , ' port ' , port printString) infoPrintCR
+].
+SocketConnectConfirmation ifTrue:[
+(PermittedHostConnects isNil
+or:[(PermittedHostConnects includes:hostName) not]) ifTrue:[
+(self confirm:'connect to host: ' , hostName printString , ' - ok ?')
+ifFalse:[
+self throwIOExceptionWithMessage:'connect permission denied'.
+].
+(self confirm:('JAVA Security check\\Always permit connects to this host (''' , hostName printString , ''') ?') withCRs)
+ifTrue:[
+PermittedHostConnects isNil ifTrue:[
+PermittedHostConnects := Set new
+].
+PermittedHostConnects add:hostName.
+]
+]
+].
+ok := sock connectTo:hostName port:port.
+ok ifFalse:[
+self throwIOExceptionWithMessage:'connect failed'.
+]
+].
+"Created: / 25.1.1998 / 20:02:27 / cg"
+"Modified: / 30.12.1998 / 20:10:28 / cg"
+!
+_PlainSocketImpl_socketCreate:nativeContext
+|jsock isStream fd sock fileNo|
+jsock := nativeContext receiver.
+isStream := (nativeContext argAt:1) == 1.
+fd := jsock instVarNamed:'fd'.
+(fd instVarNamed:'fd') ~~ 0 ifTrue:[
+	self halt:'file already open'.
+	self internalError:'file already open'.
+	self throwIOExceptionWithMessage:'file already open in socketCreate'.
+	^ self.
+].
+FileOpenTrace ifTrue:[
+	('JAVA: create socket') infoPrintCR.
+].
+isStream ifTrue:[
+	sock := Socket newTCP
+] ifFalse:[
+	sock := Socket newUDP
+].
+sock isNil ifTrue:[
+	self throwIOExceptionWithMessage:'socketCreate failed'.
+].
+fileNo := self addOpenFile:sock.
+fd instVarNamed:'fd' put:fileNo.
+"Created: / 25.1.1998 / 19:59:25 / cg"
+"Modified: / 30.12.1998 / 20:10:38 / cg"
+!
+_PlainSocketImpl_socketListen:nativeContext
+|jSock time sock ok|
+jSock := nativeContext receiver.
+time := nativeContext argAt:1.
+sock := self validateFile:jSock.
+sock notNil ifTrue:[
+	FileIOTrace ifTrue:[
+	    ('JAVA: socket listen with timeout ' , time printString) infoPrintCR.
+	].
+	ok := sock listenWithBacklog:5.
+	ok ifFalse:[
+	    self throwIOExceptionWithMessage:'listen failed'.
+	    ^ self.
+	].
+	time ~~ 0 ifTrue:[
+	    sock readWaitWithTimeoutMs:time
+	]
+].
+"Created: / 4.2.1998 / 15:17:48 / cg"
+"Modified: / 30.12.1998 / 20:10:46 / cg"
+!
+_PlatformFont_initIDs:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 28.1.1998 / 22:30:41 / cg"
+!
+_PrintStream_isOutputStreamLocalised:nativeContext
+"/ boolean isOutputStreamLocalised (java.io.DataOutputStream)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 03:00:20 / cg"
+!
+_RandomAccessFile_close:nativeContext
+^ self anyStream_close:nativeContext
+"Created: / 4.2.1998 / 13:26:53 / cg"
+"Modified: / 4.2.1998 / 15:21:08 / cg"
+!
+_RandomAccessFile_length:nativeContext
+|file sz|
+file := self validateFile:(nativeContext receiver).
+FileIOTrace ifTrue:[
+	('JAVA: length of ' , file pathName) infoPrintCR.
+].
+sz := file size.
+^ sz.
+"Created: / 4.2.1998 / 13:27:58 / cg"
+!
+_RandomAccessFile_open:nativeContext
+|fs fd name dir stream fileNo answer readonly|
+readonly := false.
+fs := nativeContext receiver.
+fd := fs instVarNamed:'fd'.
+(fd instVarNamed:'fd') ~~ 0 ifTrue:[
+	self halt:'file already open'.
+	self internalError:'file already open'.
+	^ self.
+].
+name := nativeContext argAt:1.
+name := Java as_ST_String:name.
+name := self fixFilename:name.
+FileOpenTrace ifTrue:[
+	('JAVA: opening ' , name) infoPrintCR.
+].
+dir := name asFilename directory pathName.
+(PermittedDirectories notNil
+and:[PermittedDirectories includes:dir]) ifFalse:[
+	FileOpenConfirmation ifTrue:[
+	    answer := Dialog
+		    confirmWithCancel:('JAVA Security check\\Opening ''' , name , ''' for read/write.\Grant permission ?') withCRs
+			       labels:#('no' 'grant' 'readonly')
+			       values:#(false true #readonly)
+			      default:3.
+	    answer == false ifTrue:[
+		self throwIOExceptionWithMessage:('no permission to open ' , name , ' for writing').
+		^ self
+	    ].
+	    readonly := (answer == #readonly).
+	    readonly ifFalse:[
+		(self confirm:('JAVA Security check\\Always permit writes in this directory (''' , dir , ''') ?') withCRs)
+		ifTrue:[
+		    PermittedDirectories isNil ifTrue:[
+			PermittedDirectories := Set new
+		    ].
+		    PermittedDirectories add:dir.
+		]
+	    ]
+	]
+].
+readonly ifTrue:[
+	stream := name asFilename readStream.
+] ifFalse:[
+	stream := name asFilename readWriteStream.
+].
+stream isNil ifTrue:[
+	self throwIOExceptionWithMessage:('cannot open ' , name , ' for writing').
+].
+fileNo := self addOpenFile:stream.
+FileOpenTrace ifTrue:[
+	('JAVA: opened ' , name , ' as FD ' , fileNo printString , ' for writing') infoPrintCR.
+].
+fd instVarNamed:'fd' put:fileNo.
+"Created: / 4.2.1998 / 00:14:48 / cg"
+"Modified: / 12.11.1998 / 21:29:46 / cg"
+!
+_RandomAccessFile_read:nativeContext
+|file byte|
+file := self validateFile:(nativeContext receiver).
+FileIOTrace ifTrue:[
+	('JAVA: read 1 byte from ' , file pathName) infoPrintCR.
+].
+byte := file nextByte.
+byte isNil ifTrue:[
+	^ -1
+].
+^ byte
+"Modified: / 5.1.1998 / 02:17:25 / cg"
+"Created: / 27.1.1999 / 19:01:15 / cg"
+!
+_RandomAccessFile_readBytes:nativeContext
+^ self anyStream_readBytes:nativeContext
+"Modified: / 4.2.1998 / 15:23:27 / cg"
+!
+_RandomAccessFile_seek:nativeContext
+|file pos|
+file := self validateFile:(nativeContext receiver).
+FileIOTrace ifTrue:[
+	('JAVA: seek on ' , file pathName) infoPrintCR.
+].
+pos := nativeContext argAt:1.
+file position:pos+1 "/ ST/X position starts at 1
+"Created: / 4.2.1998 / 13:25:38 / cg"
+"Modified: / 4.2.1998 / 13:28:12 / cg"
+!
+_RandomAccessFile_writeBytes:nativeContext
+^ self anyStream_writeBytes:nativeContext
+"Modified: / 4.2.1998 / 15:24:20 / cg"
+"Created: / 4.2.1998 / 15:24:35 / cg"
+!
+_ResourceBundle_getClassContext:nativeContext
+"returns an array filled with the contextChain receivers classes.
+What an ugly, messy interface."
+|chain con cls jClass|
+chain := OrderedCollection new.
+con := thisContext sender.
+[
+con notNil
+and:[con receiver isMethod not or:[con receiver isJavaMethod not]]
+] whileTrue:[con := con sender.].
+con := con sender.
+[con notNil] whileTrue:[
+(true) "con isJavaContext" ifTrue:[
+cls := con receiver class.
+cls isMeta ifTrue:[
+"/ t'was a static method
+cls := cls soleInstance
+].
+cls isJavaClass ifTrue:[
+jClass := self reflection javaClassObjectForClass:cls.
+chain add:jClass.
+]
+].
+con := con sender.
+].
+^ chain asArray
+"Created: / 05-01-1998 / 02:47:00 / cg"
+"Modified: / 24-12-1998 / 00:34:57 / cg"
+"Modified: / 28-01-2011 / 15:31:28 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 03-02-2011 / 21:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Runtime_buildLibName:nativeContext
+|jPath jFileName path fileName libName|
+jPath := nativeContext argAt:1.
+jFileName := nativeContext argAt:2.
+path := Java as_ST_String:jPath.
+fileName := Java as_ST_String:jFileName.
+path = '__builtIn__' ifTrue:[
+	libName := path , '/' , fileName
+] ifFalse:[
+	libName := path , '/lib' , fileName , '.so'.
+].
+^ Java as_String:libName.
+"Modified: / 8.8.1997 / 12:05:05 / cg"
+"Created: / 4.1.1998 / 19:07:14 / cg"
+!
+_Runtime_execInternal:nativeContext
+"Run a unix-command; return a process object."
+|cmdAndArgArray envArray cmd jProcessClass jProcess|
+cmdAndArgArray := nativeContext argAt:1.
+envArray := nativeContext argAt:2.
+cmd := cmdAndArgArray at:1.
+OperatingSystem isUNIXlike ifTrue:[
+	jProcessClass := Java classForName:'java.lang.UNIXProcess'.
+] ifFalse:[
+	jProcessClass := Java classForName:'java.lang.Win32Process'.
+].
+"/
+jProcessClass notNil ifTrue:[
+self halt.
+	jProcess := jProcessClass newCleared.
+	jProcess
+	    perform:#'<init>([Ljava/lang/String;[Ljava/lang/String;)V'
+	    with:cmdAndArgArray
+	    with:envArray.
+	^ jProcess
+].
+self halt.
+self throwIOExceptionWithMessage:'Process execution disabled/unimplemented'.
+^ nil
+"Created: / 15.1.1998 / 01:50:31 / cg"
+"Modified: / 11.12.1998 / 13:09:36 / cg"
+!
+_Runtime_exitInternal:nativeContext
+"exit - here, we only shut down java threads"
+|enteredMonitors|
+ExitDebug == true ifTrue:[
+	self halt:'Java code called exit'.
+].
+self syncMonitorCache.
+(enteredMonitors := self enteredMonitors) size > 0 ifTrue:[
+	enteredMonitors do:[:handle |
+	    | mon |
+	    mon := LockTable at:handle ifAbsent:nil.
+	    mon isNil ifTrue:[
+		self halt:'no monitor in exitInternal'.
+	    ] ifFalse:[
+		mon exit.
+('====> terminateThread - exit monitor for ' , handle displayString , ' in ' , Processor activeProcess name , ' ...') infoPrintCR.
+	    ].
+	].
+].
+"/ TODO: shut down all threads created by this one ...
+AbortSignal raise.
+self halt.
+"Created: / 7.1.1998 / 22:48:51 / cg"
+"Modified: / 8.1.1999 / 14:09:36 / cg"
+!
+_Runtime_freeMemory:nativeContext
+"free memory - Returns the number of free bytes"
+^ ObjectMemory freeListSpace + ObjectMemory freeSpace
+"Created: / 12.1.1998 / 12:59:53 / cg"
+!
+_Runtime_initializeLinkerInternal:nativeContext
+"init sharedLib linker, return searchPath as javaString"
+|path|
+"/ mhmh - what is done here ?
+path := ''.
+LibPath do:[:comp | path size == 0 ifTrue:[
+			    path := path , comp
+			] ifFalse:[
+			    path := path , ':' , comp
+			]
+	       ].
+^ Java as_String:path
+"Modified: / 7.8.1997 / 21:17:03 / cg"
+"Created: / 4.1.1998 / 17:53:15 / cg"
+!
+_Runtime_isInputStreamLocalised:nativeContext
+"/ boolean isInputStreamLocalised (java.io.DataInputStream)
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 03:03:01 / cg"
+!
+_Runtime_isOutputStreamLocalised:nativeContext
+"/ boolean isOutputStreamLocalised (java.io.DataOutputStream)
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 03:02:49 / cg"
+!
+_Runtime_loadFileInternal:nativeContext
+"load a sharedLib, return boolean 0 (false) if fail; 1 (true) if ok"
+|ret|
+ret := self _Runtime_loadFileInternalI:nativeContext.
+ret < 0 ifTrue:[ ret := 0 ].
+^ ret
+"Created: / 4.1.1998 / 19:10:20 / cg"
+"Modified: / 4.1.1998 / 19:11:04 / cg"
+!
+_Runtime_loadFileInternalI:nativeContext
+"1.1b3 change; load a sharedLib like 'loadFileInternal',
+but return integer:
+	-1   outOfMemory error
+	0    failed to load
+	1    loaded or already loaded (i.e. ok)"
+|jLibName libName libHandle|
+jLibName := nativeContext argAt:1.
+libName := Java as_ST_String:jLibName.
+(SimulatedLibs includes:libName) ifTrue:[
+"/        ('JAVA: builtIn libLoad simulated: ' , libName) printNL.
+	^ 1
+].
+(LoadedLibs notNil and:[LoadedLibs includesKey:libName]) ifTrue:[
+"/        ('JAVA: already loaded: ' , libName) printNL.
+	^ 1
+].
+libName asFilename exists ifFalse:[
+	('JAVA: no file to load: ' , libName) printNL.
+	^ 0
+].
+(self confirm:'permission to load native library: ' , libName , ' ?') ifFalse:[
+	^ 0
+].
+libHandle := ObjectFileLoader loadLibrary:libName.
+libHandle isNil ifTrue:[
+	('JAVA: failed to load: ' , libName) printNL.
+	^ 0
+].
+LoadedLibs isNil ifTrue:[
+	LoadedLibs := Dictionary new.
+].
+LoadedLibs at:libName put:libHandle.
+^ 1
+"Created: / 4.1.1998 / 19:10:54 / cg"
+"Modified: / 6.2.1998 / 03:11:59 / cg"
+!
+_Runtime_runFinalization:nativeContext
+"/ void runFinalization ()
+"/    UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:59:01 / cg"
+!
+_Runtime_runFinalizersOnExit0:nativeContext
+""
+|onOff|
+onOff := nativeContext argAt:1.
+^ 1
+"Modified: / 6.2.1998 / 03:11:59 / cg"
+"Created: / 15.10.1998 / 23:34:55 / cg"
+!
+_Runtime_setInputStreamLocalised:nativeContext
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:02:27 / cg"
+!
+_Runtime_setOutputStreamLocalised:nativeContext
+UnimplementedNativeMethodSignal raise.
+"Modified: / 27.1.2000 / 03:02:32 / cg"
+!
+_Runtime_totalMemory:nativeContext
+"free memory - Returns the total number of bytes"
+^ ObjectMemory oldSpaceSize + ObjectMemory newSpaceSize
+"Created: / 12.1.1998 / 12:59:23 / cg"
+!
+_Runtime_traceInstructions:nativeContext
+"/ void traceInstructions (boolean)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:59:18 / cg"
+!
+_Runtime_traceMethodCalls:nativeContext
+"/ void traceMethodCalls (boolean)
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:59:37 / cg"
+!
+_ScrollPane_initIDs:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 28.1.1998 / 22:19:23 / cg"
+!
+_SecurityManager_classDepth:nativeContext
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:56:27 / cg"
+!
+_SecurityManager_classLoaderDepth:nativeContext
+|con depth|
+con := thisContext sender.
+depth := 1.
+[con notNil] whileTrue:[
+	con receiver == JavaClassReader classLoaderQuerySignal ifTrue:[
+	    con selector == #handle:do: ifTrue:[
+		depth := depth + 1
+	    ]
+	].
+	con := con sender.
+].
+'JAVA: classLoaderDepth -> ' infoPrint. depth infoPrintCR.
+^ depth.
+"Created: / 13.1.1998 / 09:21:46 / cg"
+"Modified: / 13.1.1998 / 09:33:43 / cg"
+!
+_SecurityManager_currentClassLoader:nativeContext
+|loader|
+loader := JavaClassReader classLoaderQuerySignal query.
+"/ 'JAVA: currentClassLoader -> ' infoPrint. loader displayString infoPrintCR.
+^ loader.
+"Created: / 13.1.1998 / 09:23:28 / cg"
+"Modified: / 11.12.1998 / 12:39:59 / cg"
+!
+_SecurityManager_currentLoadedClass0:nativeContext
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:56:41 / cg"
+!
+_SecurityManager_getClassContext:nativeContext
+UnimplementedNativeMethodSignal raise
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:56:06 / cg"
+!
+_SocketInputStream_socketRead:nativeContext
+^ self anyStream_readBytes:nativeContext
+"Created: / 25.1.1998 / 20:56:53 / cg"
+"Modified: / 4.2.1998 / 15:52:31 / cg"
+!
+_SocketOutputStream_socketWrite:nativeContext
+^ self anyStream_writeBytes:nativeContext
+"Created: / 25.1.1998 / 21:06:55 / cg"
+"Modified: / 4.2.1998 / 15:52:40 / cg"
+!
+_String_compareTo:nativeContext
+"int compareTo (java.lang.String)"
+|jString1 jString2|
+jString1 := nativeContext receiver.
+jString2 := nativeContext argAt:1.
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:28:59 / cg"
+!
+_String_equals:nativeContext
+|jString1 jString2|
+jString1 := nativeContext receiver.
+jString2 := nativeContext argAt:1.
+^ (jString1 instVarAt:1) = (jString2 instVarAt:1)
+"Created: / 18.11.1998 / 00:52:03 / cg"
+"Modified: / 18.11.1998 / 00:53:01 / cg"
+!
+_String_equalsIgnoreCase:nativeContext
+"boolean equalsIgnoreCase (java.lang.String)"
+|jString1 jString2|
+self halt:'untested'.
+jString1 := nativeContext receiver.
+jString2 := nativeContext argAt:1.
+^ (jString1 instVarAt:1) sameAs: (jString2 instVarAt:1)
+"Modified: / 18.11.1998 / 00:53:01 / cg"
+"Created: / 27.1.2000 / 02:27:46 / cg"
+!
+_String_indexOf:nativeContext
+"int indexOf (java.lang.String int)"
+|jString1 jString2 idx|
+jString1 := nativeContext receiver.
+jString2 := nativeContext argAt:1.
+idx := nativeContext argAt:2.
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:30:22 / cg"
+!
+_String_lastIndexOf:nativeContext
+"int lastIndexOf (java.lang.String int)"
+|jString1 jString2 idx|
+jString1 := nativeContext receiver.
+jString2 := nativeContext argAt:1.
+idx := nativeContext argAt:2.
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:33:59 / cg"
+!
+_String_length:nativeContext
+|jString|
+jString := nativeContext receiver.
+^ (jString instVarAt:3)
+"Created: / 18.11.1998 / 00:53:50 / cg"
+"Modified: / 18.11.1998 / 00:54:18 / cg"
+!
+_String_regionMatches2:nativeContext
+"boolean regionMatches (boolean int java.lang.String int int)"
+|jString1 bool jString2 idx1 idx2|
+jString1 := nativeContext receiver.
+bool := nativeContext argAt:1.
+jString2 := nativeContext argAt:2.
+idx1 := nativeContext argAt:3.
+idx2 := nativeContext argAt:4.
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:33:40 / cg"
+!
+_String_regionMatches:nativeContext
+"boolean regionMatches (int java.lang.String int int)"
+|jString1 jString2 idx1 idx2|
+jString1 := nativeContext receiver.
+jString2 := nativeContext argAt:1.
+idx1 := nativeContext argAt:2.
+idx2 := nativeContext argAt:3.
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:32:29 / cg"
+!
+_String_startsWith:nativeContext
+"boolean startsWith (java.lang.String int)"
+|jString1 jString2 idx|
+jString1 := nativeContext receiver.
+jString2 := nativeContext argAt:1.
+idx := nativeContext argAt:2.
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:31:40 / cg"
+!
+_SystemColor_GetSysColor:nativeContext
+"/ int GetSysColor (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 27.1.2000 / 02:44:41 / cg"
+!
+_SystemResourceManager_getEntryFromKey:nativeContext
+"get a resource by name"
+|key s|
+key := nativeContext argAt:1.
+s := Java effectiveClassPath at:(key+1) ifAbsent:nil.
+s isNil ifTrue:[^ nil].
+^ Java as_String:s
+"Modified: / 22-11-2010 / 13:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_SystemResourceManager_validateSystemResource:nativeContext
+"check a resource"
+|bool str1 str2|
+bool := nativeContext argAt:1.
+str1 := nativeContext argAt:2.
+str2 := nativeContext argAt:3.
+^ 1 "/ true
+!
+_System_getCallerClass:nativeContext
+"/ introduced with jdk1.2
+|senderContext cls|
+senderContext := nativeContext sender.
+[senderContext receiver == (Java at:'java.lang.System')] whileTrue:[
+	senderContext := senderContext sender.
+].
+senderContext method isStatic ifTrue:[
+	cls := senderContext receiver
+] ifFalse:[
+	cls := senderContext receiver class
+].
+cls isJavaClass ifTrue:[
+	^ self javaClassObjectForClass:cls
+].
+(cls isMemberOf:(Java at:'java.lang.Class')) ifTrue:[
+	^ Java at:'java.lang.Class'
+].
+self halt.
+^ nil
+"Modified: / 27.1.1998 / 18:33:13 / cg"
+!
+_System_validateSecurityManager:nativeContext
+"void validateSecurityManager (java.lang.SecurityManager)"
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:43:25 / cg"
+!
+_ThreadGroup_initMainThreadGroup0:nativeContext
+"void initMainThreadGroup0 (java.lang.ThreadGroup)"
+UnimplementedNativeMethodSignal raise.
+"Created: / 27.1.2000 / 02:45:52 / cg"
+!
+_Thread_countStackFrames:nativeContext
+"/ int countStackFrames ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:06:21 / cg"
+!
+_Thread_interrupt0:nativeContext
+"ask if a thread is interrupted (clear interruptState if arg is true)"
+|jThread stProcess|
+jThread := nativeContext receiver.
+stProcess := self stProcessForJavaThread:jThread.
+stProcess isNil ifTrue:[
+	self halt.
+	^ 0
+].
+stProcess markInterrupted
+"Modified: / 2.1.1998 / 21:49:06 / cg"
+"Created: / 10.4.1998 / 15:21:43 / cg"
+!
+_Thread_isInterrupted:nativeContext
+"ask if a thread is interrupted (clear interruptState if arg is true)"
+|jThread stProcess clearInterrupt rslt|
+jThread := nativeContext receiver.
+stProcess := self stProcessForJavaThread:jThread.
+stProcess isNil ifTrue:[
+	self halt.
+	^ 0
+].
+clearInterrupt := nativeContext argAt:1.
+rslt := stProcess isInterrupted ifTrue:[1] ifFalse:[0].
+clearInterrupt ~~ 0 ifTrue:[stProcess clearInterruptActions].
+^ rslt
+"Modified: / 2.1.1998 / 21:49:06 / cg"
+"Created: / 7.1.1998 / 18:50:26 / cg"
+!
+_Thread_resume0:nativeContext
+"yield"
+|jThread stProcess|
+jThread := nativeContext receiver.
+stProcess := JavaVM stProcessForJavaThread:jThread.
+stProcess isNil ifTrue:[
+	ThreadTrace == true ifTrue:[
+	    ('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
+	].
+	^ nil "void"
+].
+stProcess resume
+"Created: / 8.1.1998 / 01:06:27 / cg"
+"Modified: / 6.2.1998 / 02:15:08 / cg"
+!
+_Thread_start:nativeContext
+"start the thread"
+|jThread jName name stProcess|
+jThread := nativeContext receiver.
+(jThread instVarNamed:'priority') < 1 ifTrue:[
+self halt.
+jThread instVarNamed:'priority' put:1.
+].
+stProcess := JavaProcess
+for:[
+|procName|
+Object abortSignal handle:[:ex |
+procName := stProcess name.
+(procName startsWith:'JAVA-AWT-EventQueue') ifTrue:[
+('JAVA [info]: thread ' , procName , ' aborted - restarting process.') infoPrintCR.
+ex restart.
+] ifFalse:[
+(stProcess == JavaScreenUpdaterThread
+or:[stProcess == JavaEventQueueThread]) ifTrue:[
+('JAVA [info]: thread ' , procName , ' aborted - restarting process.') infoPrintCR.
+ex restart
+] ifFalse:[
+('JAVA [info]: thread ' , procName , ' aborted.') infoPrintCR.
+]
+].
+] do:[
+[
+JavaVM javaExceptionSignal handle:[:ex |
+|exClass|
+procName := stProcess name.
+exClass := ex parameter class.
+exClass == (Java at:'java.lang.ThreadDeath') ifTrue:[
+('JAVA: thread ' , procName , ' terminated') infoPrintCR.
+] ifFalse:[
+Transcript
+showCR:('JAVA: thread '''
+, procName
+, ''' terminated with exception: '
+, exClass name).
+].
+ex return.
+] do:[
+Object messageNotUnderstoodSignal handle:[:ex |
+"/ remap doesNotUnderstand with nil-receiver to
+"/ a nullPointerException ...
+|con m|
+con := ex suspendedContext.
+con receiver isNil ifTrue:[
+((m := con sender method) notNil
+and:[m isJavaMethod]) ifTrue:[
+self throwNullPointerException.
+AbortSignal raise. "/ ex proceed.
+]
+].
+ex reject.
+] do:[
+"/ Transcript showCR:(Timestamp now printString , 'start thread: ', stProcess name).
+jThread perform:#'run()V'.
+ThreadTrace == true ifTrue:[
+('JAVA: thread ' , stProcess name , ' terminated') infoPrintCR.
+].
+jThread perform:#'exit()V'.
+ThreadTrace == true ifTrue:[
+('JAVA: after exit of thread ' , stProcess name) infoPrintCR.
+]
+]
+]
+] ensure:[
+|monitors|
+monitors := EnteredMonitorsPerProcess at:stProcess ifAbsent:nil.
+monitors notNil ifTrue:[
+monitors do:[:obj |
+| mon |
+mon := self monitorFor:obj.
+mon notNil ifTrue:[
+mon owningProcess == stProcess ifTrue:[
+('JAVA: release monitor owned by dying thread: ' , stProcess name) infoPrintCR.
+mon exit
+].
+].
+].
+EnteredMonitorsPerProcess removeKey:stProcess.
+stProcess == JavaScreenUpdaterThread ifTrue:[
+JavaScreenUpdaterThread := nil.
+].
+stProcess == JavaEventQueueThread ifTrue:[
+JavaEventQueueThread := nil.
+].
+"/                                    screenUpdaterClass := Java at:'sun.awt.ScreenUpdater'.
+"/                                    screenUpdaterClass notNil ifTrue:[
+"/                                        screenUpdaterClass instVarNamed:'updater' put:nil.
+"/                                    ].
+].
+Java threads removeKey:jThread ifAbsent:[].
+]
+]
+]
+priority:(Processor activePriority).
+jName := jThread instVarNamed:'name'.
+jName isString ifFalse:[
+name := Java as_ST_String:jName.
+] ifTrue:[
+name := jName
+].
+"/ kludge - remember the ScreenUpdater ...
+name = 'Screen Updater' ifTrue:[
+JavaScreenUpdaterThread := stProcess.
+] ifFalse:[
+name = 'AWT-Windows' ifTrue:[
+JavaEventThread := stProcess.
+] ifFalse:[
+(name startsWith:'AWT-EventQueue') ifTrue:[
+JavaEventQueueThread := stProcess.
+].
+]
+].
+"/name = 'UserDialogShowThread' ifTrue:[
+"/self halt
+"/].
+"/ when that process terminates, wakup any waiters
+stProcess addExitAction:[self wakeup:jThread].
+stProcess name:'JAVA-' , name.
+stProcess restartable:true.
+stProcess resume.
+Java threads at:jThread put:stProcess.
+^ nil
+"Created: / 3.1.1998 / 02:05:52 / cg"
+"Modified: / 24.12.1999 / 03:14:33 / cg"
+!
+_Thread_stop0:nativeContext
+"terminate a thread"
+|jThread stProcess death|
+jThread := nativeContext receiver.
+stProcess := JavaVM stProcessForJavaThread:jThread.
+stProcess isNil ifTrue:[
+ThreadTrace == true ifTrue:[
+('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
+].
+^ nil "void"
+].
+stProcess == JavaScreenUpdaterThread ifTrue:[self halt].
+stProcess == JavaEventQueueThread ifTrue:[self halt].
+death := nativeContext argAt:1.
+stProcess
+interruptWith:[
+JavaVM javaExceptionSignal handle:[:ex |
+Processor activeProcess == JavaScreenUpdaterThread ifTrue:[self halt].
+Processor activeProcess == JavaEventQueueThread ifTrue:[self halt].
+Processor activeProcess terminate
+] do:[
+ThreadTrace == true ifTrue:[
+('JAVA: thread exit: ' , jThread displayString) infoPrintNL.
+].
+jThread perform:#'exit()V'.
+self throwException:death.
+]
+].
+stProcess resume.
+[stProcess isDead] whileFalse:[
+stProcess resume.
+'JavaVM: wait for death' infoPrintCR.
+Delay waitForSeconds:0.1
+].
+stProcess terminate
+"Created: / 8.1.1998 / 13:11:17 / cg"
+"Modified: / 24.12.1999 / 02:32:45 / cg"
+!
+_Thread_suspend0:nativeContext
+"yield"
+|jThread stProcess|
+jThread := nativeContext receiver.
+stProcess := JavaVM stProcessForJavaThread:jThread.
+stProcess isNil ifTrue:[
+	ThreadTrace == true ifTrue:[
+	    ('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
+	].
+	^ nil "void"
+].
+stProcess suspend
+"Created: / 8.1.1998 / 01:05:49 / cg"
+"Modified: / 6.2.1998 / 02:15:23 / cg"
+!
+_Thread_yield:nativeContext
+"yield"
+|jThread stProcess|
+Processor yield.
+"/    jThread := nativeContext receiver.
+"/    stProcess := JavaVM stProcessForJavaThread:jThread.
+"/    stProcess isNil ifTrue:[
+"/        ThreadTrace == true ifTrue:[
+"/            ('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
+"/        ].
+"/        ^ nil "void"
+"/    ].
+"/    stProcess == Processor activeProcess ifTrue:[
+"/        Processor yield.
+"/    ] ifFalse:[
+"/        self halt.
+"/    ].
+"Created: / 5.1.1998 / 02:03:51 / cg"
+"Modified: / 23.12.1998 / 19:19:17 / cg"
+!
+_Throwable_printStackTrace0:nativeContext
+|out outStream exceptionObject contextList|
+outStream := nativeContext argAt:1.
+exceptionObject := nativeContext receiver.
+contextList := exceptionObject instVarNamed:'backtrace'.
+out := self javaConsoleStream.
+out cr.
+out nextPutLine:'JAVA: stackTrace:'.
+contextList do:[:con |
+	out
+	    nextPutAll:'  ';
+	    nextPutAll:(con method javaClass fullName);
+	    nextPutAll:'.';
+	    nextPutAll:(con method selector);
+	    nextPutAll:' [';
+	    nextPutAll:(con method javaClass sourceFile);
+	    nextPutAll:' ';
+	    nextPutAll:(con quickLineNumber displayString);
+	    nextPutAll:']'.
+	out cr
+].
+out nextPutLine:'----------------------------------------------------'
+"Created: / 4.1.1998 / 14:27:40 / cg"
+"Modified: / 10.11.1998 / 14:19:32 / cg"
+!
+_Toolkit_initIDs:nativeContext
+"/ introduced with jdk1.2 ... (sigh)
+"Created: / 27.1.1998 / 19:53:50 / cg"
+!
+_URLConnection_close:nativeContext
+"/ void close ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:26:03 / cg"
+!
+_URLConnection_finalize:nativeContext
+"/ void finalize ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:25:22 / cg"
+!
+_URLConnection_getContentLength0:nativeContext
+"/ int getContentLength0 ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:25:34 / cg"
+!
+_URLConnection_getContentType0:nativeContext
+"/ java.lang.String getContentType0 ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:25:42 / cg"
+!
+_URLConnection_getHeaderField0:nativeContext
+"/ java.lang.String getHeaderField0 (java.lang.String)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:25:53 / cg"
+!
+_URLConnection_pCreate:nativeContext
+"/ void pCreate (java.lang.String java.lang.String)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:25:14 / cg"
+!
+_URLInputStream_available:nativeContext
+"/ int available ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:24:26 / cg"
+!
+_URLInputStream_open:nativeContext
+"/ void open ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:24:01 / cg"
+!
+_URLInputStream_read:nativeContext
+"/ int read (byte[] int int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:24:12 / cg"
+!
+_URLOutputStream_open:nativeContext
+"/ void open ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:24:38 / cg"
+!
+_URLOutputStream_pClose:nativeContext
+"/ void pClose ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:25:02 / cg"
+!
+_URLOutputStream_write:nativeContext
+"/ void write (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:24:45 / cg"
+!
+_URLOutputStream_writeBytes:nativeContext
+"/ void writeBytes (byte[] int int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:24:55 / cg"
+!
+_URLStreamHandlerFactory_pInit:nativeContext
+"/ self unimplementedNativeMethod.
+"Created: / 10.1.1998 / 15:47:24 / cg"
+!
+_URLStreamHandlerFactory_pSupportsProtocol:nativeContext
+"/ boolean pSupportsProtocol (java.lang.String)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:23:43 / cg"
+!
+_VM_getState:nativeContext
+"/ int getState ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:06:44 / cg"
+!
+_VM_resetJavaMonitor:nativeContext
+"/ void resetJavaMonitor ()
+UnimplementedNativeMethodSignal raise
+"Created: / 14.11.1998 / 10:43:23 / cg"
+!
+_VM_resumeJavaMonitor:nativeContext
+"/ void resumeJavaMonitor ()
+UnimplementedNativeMethodSignal raise
+"Created: / 14.11.1998 / 10:42:49 / cg"
+!
+_VM_suspendJavaMonitor:nativeContext
+"/ void suspendJavaMonitor ()
+UnimplementedNativeMethodSignal raise
+"Created: / 14.11.1998 / 10:43:07 / cg"
+!
+_VM_threadsSuspended:nativeContext
+"/ boolean threadsSuspended ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:07:10 / cg"
+!
+_VM_unsuspendSomeThreads:nativeContext
+"/ void unsuspendSomeThreads ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:07:29 / cg"
+!
+_VM_unsuspendThreads:nativeContext
+"/ void unsuspendThreads ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:07:20 / cg"
+!
+_VM_writeJavaMonitorReport:nativeContext
+"/ void writeJavaMonitorReport ()
+UnimplementedNativeMethodSignal raise
+"Created: / 14.11.1998 / 10:43:37 / cg"
+!
+_WButtonPeer_create:nativeContext
+|jButtonPeer jButton jFrame frame button
+lbl|
+jButtonPeer := nativeContext receiver.
+jButton := jButtonPeer instVarNamed:'target'.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+button := Button in:frame.
+button sizeFixed:true.
+button action:[
+			jButtonPeer perform:#'handleAction()V'.
+		  ].
+lbl := jButton instVarNamed:'label'.
+lbl notNil ifTrue:[
+	lbl := Java as_ST_String:lbl.
+	button label:lbl
+].
+self createdWindowsView:button for:jButtonPeer.
+WindowCreationTrace == true ifTrue:[
+	'WButtonPeer_create: ' print. frame print. ' -> ' print. button printNL.
+].
+"Created: / 5.1.1998 / 01:53:30 / cg"
+"Modified: / 11.12.1998 / 00:19:22 / cg"
+!
+_WButtonPeer_setLabel:nativeContext
+|label jString|
+jString := nativeContext argAt:1.
+label := self viewForWPeer:nativeContext.
+label label:(Java as_ST_String:jString)
+"Modified: / 8.1.1998 / 17:35:50 / cg"
+"Created: / 1.2.1998 / 17:05:47 / cg"
+!
+_WCanvasPeer_create:nativeContext
+|jCanvasPeer jFrame frame subView|
+jCanvasPeer := nativeContext receiver.
+jFrame := nativeContext argAt:1.
+jFrame isNil ifTrue:[
+	self halt:'no frame in canvasPeer create'.
+	subView := JavaView new.
+"/        self internalError:'no frame in canvasPeer create'.
+"/        ^ self.
+] ifFalse:[
+	frame := jFrame instVarNamed:'pData'.
+	subView := JavaView in:frame.
+].
+subView delegate:self.
+subView javaPeer:jCanvasPeer.
+self createdWindowsView:subView for:jCanvasPeer.
+WindowCreationTrace == true ifTrue:[
+	'WCanvasPeer_create: ' print. frame print. ' -> ' print. subView printNL.
+].
+"Created: / 5.1.1998 / 00:59:19 / cg"
+"Modified: / 16.1.1998 / 13:40:00 / cg"
+!
+_WCheckboxMenuItemPeer_setState:nativeContext
+"/ void setState (boolean)
+"/    UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:14:35 / cg"
+"Modified: / 3.12.1998 / 21:41:13 / cg"
+!
+_WCheckboxPeer_create:nativeContext
+|jCheckboxPeer jCheckbox jFrame frame checkBox lbl|
+jCheckboxPeer := nativeContext receiver.
+jCheckbox := jCheckboxPeer instVarNamed:'target'.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+checkBox := CheckBox in:frame.
+checkBox action:[
+			jCheckboxPeer
+			    perform:#'handleAction(Z)V'
+			    with:(checkBox isOn ifTrue:[1] ifFalse:[0])
+		    ].
+lbl := jCheckbox instVarNamed:'label'.
+lbl notNil ifTrue:[
+	lbl := Java as_ST_String:lbl.
+	checkBox label:lbl
+].
+self createdWindowsView:checkBox for:jCheckboxPeer.
+WindowCreationTrace == true ifTrue:[
+	'WCheckboxPeer_create: ' print. frame print. ' -> ' print. checkBox printNL.
+].
+"Created: / 7.1.1998 / 21:48:03 / cg"
+"Modified: / 15.1.1998 / 12:27:04 / cg"
+!
+_WCheckboxPeer_setCheckboxGroup:nativeContext
+|checkBox jGroup|
+checkBox := self viewForWPeer:nativeContext.
+jGroup := nativeContext argAt:1.
+"Created: / 7.1.1998 / 21:48:47 / cg"
+"Modified: / 25.1.1998 / 01:20:42 / cg"
+!
+_WCheckboxPeer_setLabel:nativeContext
+"/ void setLabel (java.lang.String)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:14:53 / cg"
+!
+_WCheckboxPeer_setState:nativeContext
+|checkBox state|
+checkBox := self viewForWPeer:nativeContext.
+state := nativeContext argAt:1.
+state ~~ 0 ifTrue:[
+	checkBox turnOn
+] ifFalse:[
+	checkBox turnOff
+].
+"Created: / 7.1.1998 / 21:49:13 / cg"
+"Modified: / 25.1.1998 / 01:26:18 / cg"
+!
+_WChoicePeer_addItem:nativeContext
+|jString index comboBox|
+comboBox := self viewForWPeer:nativeContext.
+jString := nativeContext argAt:1.
+index := nativeContext argAt:2.
+comboBox model list addLast:(Java as_ST_String:jString).
+comboBox model changed:#list.
+"Created: / 7.1.1998 / 21:45:12 / cg"
+"Modified: / 24.1.1998 / 18:51:32 / cg"
+!
+_WChoicePeer_create:nativeContext
+|jChoicePeer jChoice jFrame frame comboBox|
+jChoicePeer := nativeContext receiver.
+jChoice := jChoicePeer instVarNamed:'target'.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+comboBox := ComboListView in:frame.
+comboBox model:(SelectionInList new list:(OrderedCollection new)).
+comboBox action:[:index |
+			jChoicePeer
+			    perform:#'handleAction(I)V'
+			    with:(comboBox model selectionIndex - 1)
+		    ].
+self createdWindowsView:comboBox for:jChoicePeer.
+WindowCreationTrace == true ifTrue:[
+	'WChoicePeer_create: ' print. frame print. ' -> ' print. comboBox printNL.
+].
+"Created: / 7.1.1998 / 21:44:31 / cg"
+"Modified: / 28.1.1998 / 23:19:17 / cg"
+!
+_WChoicePeer_remove:nativeContext
+"/ void remove (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:12:20 / cg"
+!
+_WChoicePeer_reshape:nativeContext
+self commonReshapeComponent:nativeContext.
+"/    self pReshape:nativeContext.
+^ self.
+"Created: / 7.1.1998 / 21:46:18 / cg"
+"Modified: / 23.12.1998 / 19:08:07 / cg"
+!
+_WChoicePeer_select:nativeContext
+|comboBox index|
+comboBox := self viewForWPeer:nativeContext.
+index := nativeContext argAt:1.
+comboBox model selectionIndex:(index + 1).  "/ JAVA indexing starts at 0
+"Created: / 7.1.1998 / 21:45:43 / cg"
+"Modified: / 25.1.1998 / 09:55:05 / cg"
+!
+_WClipboard_getClipboardText:nativeContext
+"/ java.lang.String getClipboardText ()
+|str|
+str := Screen current rootView getTextSelection.
+str isNil ifTrue:[
+	str := ''.
+].
+^ Java as_String:''.
+"Modified: / 10.12.1998 / 21:28:29 / cg"
+!
+_WClipboard_init:nativeContext
+"/ self halt.
+"Modified: / 18.3.1997 / 18:43:18 / cg"
+"Created: / 4.1.1998 / 19:03:59 / cg"
+!
+_WClipboard_setClipboardText:nativeContext
+"/ void setClipboardText (java.awt.datatransfer.StringSelection)
+|strSel data|
+strSel := nativeContext argAt:1.
+data := strSel instVarNamed:'data'.
+data class == (Java at:'java.lang.String') ifTrue:[
+	Screen current rootView setTextSelection:(Java as_ST_String:data)
+].
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:15:31 / cg"
+"Modified: / 10.12.1998 / 21:25:20 / cg"
+!
+_WColor_getDefaultColor:nativeContext
+|clrIndex jClr clr |
+clrIndex := nativeContext argAt:1.
+"/ windows defaults:
+"/  1: view background
+clrIndex == 1 ifTrue:[
+	clr := View defaultViewBackgroundColor.
+	clr isColor ifFalse:[
+	    clr := Color gray:50.
+	].
+].
+clrIndex == 2 ifTrue:[
+	clr := Color black.
+].
+clr isNil ifTrue:[
+	self halt.
+	self internalError:'breakpoint'.
+	^ nil.
+].
+clr := clr on:(Screen current).
+jClr := (Java classForName:'java.awt.Color') new.
+jClr instVarNamed:'pData' put:clr.
+jClr instVarNamed:'value' put:(clr rgbValue).
+"/ self halt.
+^ jClr.
+"Created: / 15.8.1997 / 15:38:10 / cg"
+"Modified: / 4.1.1998 / 18:06:51 / cg"
+!
+_WComponentPeer__beginValidate:nativeContext
+"/ void _beginValidate ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:10:08 / cg"
+!
+_WComponentPeer__dispose:nativeContext
+|view jPeer|
+view := self viewForWPeer:nativeContext.
+Object errorSignal catch:[
+	view destroy.
+].
+JavaWindowGroup removeView:view.
+jPeer := nativeContext receiver.
+jPeer instVarNamed:'pData' put:0.
+"Created: / 7.1.1998 / 22:36:25 / cg"
+"Modified: / 25.1.1998 / 16:43:06 / cg"
+!
+_WComponentPeer__setBackground:nativeContext
+|rgb clr view|
+view := self viewForWPeer:nativeContext.
+view isNil ifTrue:[^ self].
+rgb := nativeContext argAt:1.
+clr := Color rgbValue:rgb.
+"/ self halt.
+"/ self internalError:'breakPoint'.
+clr := clr on:(view device).
+"/    (view superView isMemberOf:JavaEmbeddedFrameView) ifTrue:[
+"/        view viewBackground:(view superView viewBackground).
+"/        view backgroundPaint:(view superView viewBackground).
+"/    ] ifFalse:[
+"/        (view isMemberOf:JavaView) ifTrue:[
+"/            view viewBackground:clr.
+"/            view backgroundPaint:clr.
+"/        ]
+"/    ].
+(view isKindOf:ScrollableView) ifTrue:[
+	view := view scrolledView
+].
+view viewBackground:clr.
+view backgroundPaint:clr.
+"Created: / 4.1.1998 / 18:07:39 / cg"
+"Modified: / 4.12.1998 / 17:26:06 / cg"
+!
+_WComponentPeer__setForeground:nativeContext
+|rgb clr view|
+view := self viewForWPeer:nativeContext.
+rgb := nativeContext argAt:1.
+clr := Color rgbValue:rgb.
+"/ self halt.
+"/ self internalError:'breakPoint'.
+clr := clr on:(view device).
+view paint:clr.
+"Created: / 4.1.1998 / 18:08:13 / cg"
+"Modified: / 8.1.1998 / 17:32:45 / cg"
+!
+_WComponentPeer_disable:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+Object errorSignal handle:[:ex |
+] do:[
+	view disable
+]
+"Created: / 6.1.1998 / 18:26:36 / cg"
+"Modified: / 8.1.1998 / 17:32:53 / cg"
+!
+_WComponentPeer_enable:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+Object errorSignal handle:[:ex |
+] do:[
+	view enable
+]
+"Modified: / 8.1.1998 / 17:32:53 / cg"
+"Created: / 13.1.1998 / 23:08:05 / cg"
+!
+_WComponentPeer_endValidate:nativeContext
+"/ void endValidate ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:10:20 / cg"
+!
+_WComponentPeer_getLocationOnScreen:nativeContext
+"/ java.awt.Point getLocationOnScreen ()
+|view p jP|
+view := self viewForWPeer:nativeContext.
+view isNil ifTrue:[^ nil].
+p := view originRelativeTo:nil.
+jP := (Java classForName:'java.awt.Point') basicNew.
+jP instVarNamed:'x' put:p x.
+jP instVarNamed:'y' put:p y.
+^ jP
+"Modified: / 5.12.1998 / 14:44:31 / cg"
+!
+_WComponentPeer_handleEvent:nativeContext
+"this is invoked by java, to let a widget handle any event which
+was not consumed (eaten) by java.
+If the view in question is some ST-widget, forward it.
+Ignore for JavaViews."
+|view jEv stEv ignore|
+view := self viewForWPeer:nativeContext.
+view notNil ifTrue:[
+	jEv := nativeContext argAt:1.
+	stEv := jEv instVarNamed:'data'.
+	(stEv notNil and:[stEv ~~ 0]) ifTrue:[
+	    ignore := true.
+	    view isJavaView ifFalse:[
+		ignore := false
+	    ] ifTrue:[
+		view isTopView ifTrue:[
+		    stEv type == #terminate ifTrue:[
+			ignore := false
+		    ].
+		]
+	    ].
+	    ignore ifFalse:[
+		EventTrace == true ifTrue:[
+		    ('JAVA: WComponent - handleEvent: ' , stEv type , ' for ' , view printString) infoPrintCR.
+		].
+		view dispatchEvent:stEv.
+		^ self.
+	    ].
+	    EventTrace == true ifTrue:[
+		('JAVA: WComponent - handleEvent ignored:' , stEv type) infoPrintCR.
+	    ].
+	    ^ self
+	]
+].
+EventTrace == true ifTrue:[
+	('JAVA: WComponent - handleEvent ignored') infoPrintCR.
+]
+"Created: / 6.1.1998 / 21:10:17 / cg"
+"Modified: / 11.12.1998 / 01:04:14 / cg"
+!
+_WComponentPeer_hide:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ view isPopUpView ifTrue:[self halt].
+Object errorSignal handle:[:ex |
+] do:[
+	view beInvisible
+]
+"Created: / 7.1.1998 / 22:35:32 / cg"
+"Modified: / 4.12.1998 / 17:53:41 / cg"
+!
+_WComponentPeer_nativeHandleEvent:nativeContext
+"this is invoked by java, to let a widget handle any event which
+was not consumed (eaten) by java.
+If the view in question is some ST-widget, forward it.
+Ignore for JavaViews."
+|view jEv stEv|
+^self.
+view := self viewForWPeer:nativeContext.
+view notNil ifTrue:[
+	(view isKindOf:JavaView) ifFalse:[
+	    jEv := nativeContext argAt:1.
+	    stEv := jEv instVarNamed:'data'.
+	    (stEv notNil and:[stEv ~~ 0]) ifTrue:[
+		EventTrace == true ifTrue:[
+		    ('JAVA: WComponent - handleEvent: ' , stEv type , ' for ' , view printString) infoPrintCR.
+		].
+		stEv sendEventWithFocusOn:nil.
+		^ self.
+	    ]
+	]
+].
+EventTrace == true ifTrue:[
+	('JAVA: WComponent - handleEvent ignored') infoPrintCR.
+]
+"Created: / 19.10.1998 / 21:26:16 / cg"
+"Modified: / 19.10.1998 / 23:26:37 / cg"
+!
+_WComponentPeer_requestFocus:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ 'getFocus - ' print. view displayString printCR.
+"/    view getKeyboardFocus
+"Created: / 7.1.1998 / 22:30:03 / cg"
+"Modified: / 4.12.1998 / 19:42:18 / cg"
+!
+_WComponentPeer_reshape:nativeContext
+self commonReshapeComponent:nativeContext
+"Modified: / 18.3.1997 / 19:30:21 / cg"
+"Created: / 4.1.1998 / 18:01:11 / cg"
+!
+_WComponentPeer_setBackground:nativeContext
+|jClr rgb clr view|
+view := self viewForWPeer:nativeContext.
+jClr := nativeContext argAt:1.
+rgb := jClr instVarNamed:'value'.
+"/ self halt.
+clr := Color rgbValue:rgb.
+clr := clr on:(view device).
+"/    (view superView isMemberOf:JavaEmbeddedFrameView) ifTrue:[
+"/        view viewBackground:(view superView viewBackground).
+"/        view backgroundPaint:(view superView viewBackground).
+"/    ] ifFalse:[
+"/        (view isMemberOf:JavaView) ifTrue:[
+"/            view viewBackground:clr.
+"/            view backgroundPaint:clr.
+"/        ]
+"/    ].
+(view isKindOf:ScrollableView) ifTrue:[
+	view := view scrolledView
+].
+view viewBackground:clr.
+view backgroundPaint:clr.
+"Created: / 16.10.1998 / 02:16:31 / cg"
+"Modified: / 16.10.1998 / 02:26:29 / cg"
+!
+_WComponentPeer_setCursor:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ self halt.
+"Created: / 5.1.1998 / 01:52:30 / cg"
+"Modified: / 25.1.1998 / 01:21:52 / cg"
+!
+_WComponentPeer_setFont:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ self halt.
+"Created: / 5.1.1998 / 00:55:17 / cg"
+"Modified: / 25.1.1998 / 01:22:19 / cg"
+!
+_WComponentPeer_setForeground:nativeContext
+|jClr rgb clr view|
+view := self viewForWPeer:nativeContext.
+jClr := nativeContext argAt:1.
+rgb := jClr instVarNamed:'value'.
+"/ self halt.
+clr := Color rgbValue:rgb.
+clr := clr on:(view device).
+(view isKindOf:ScrollableView) ifTrue:[
+	view := view scrolledView
+].
+view paint:clr.
+"Created: / 16.10.1998 / 02:18:58 / cg"
+"Modified: / 16.10.1998 / 02:26:37 / cg"
+!
+_WComponentPeer_setZOrderPosition:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/    self unimplementedNativeMethod.
+"/ self halt.
+"/ self internalError:'breakPoint'
+"Created: / 4.1.1998 / 17:59:26 / cg"
+"Modified: / 25.1.1998 / 01:22:32 / cg"
+!
+_WComponentPeer_show:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+"/ frame views are under my browsers own control
+(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
+	view beVisible.
+	view realize.
+].
+"/    view windowGroup notNil ifTrue:[
+"/        windowServer addGroup:(view windowGroup)
+"/    ].
+^ nil
+"/ self halt.
+"Created: / 5.1.1998 / 01:26:22 / cg"
+"Modified: / 4.12.1998 / 17:43:53 / cg"
+!
+_WComponentPeer_start:nativeContext
+"/ self halt.
+"Modified: / 18.3.1997 / 18:43:18 / cg"
+"Created: / 5.1.1998 / 00:58:40 / cg"
+!
+_WContainerPeer_calculateInsets:nativeContext
+"/ new with ns4.0 ...
+"Created: / 16.10.1998 / 02:12:59 / cg"
+!
+_WDefaultFontCharset_canConvert:nativeContext
+^ 1
+"Modified: / 21.8.1997 / 15:56:57 / cg"
+"Created: / 5.1.1998 / 01:55:47 / cg"
+!
+_WDialogPeer__hide:nativeContext
+|dialog|
+dialog := self viewForWPeer:nativeContext.
+dialog hide.
+"Created: / 7.1.1998 / 22:34:10 / cg"
+"Modified: / 8.1.1998 / 17:34:10 / cg"
+!
+_WDialogPeer__show:nativeContext
+|dialog|
+dialog := self viewForWPeer:nativeContext.
+"/
+"/ show does not work (yet); must setup windowgroup
+"/ for it to get events ...
+"/    dialog realize.
+dialog show.
+"/dialog fixSize.
+"/dialog makeFullyVisible.
+"/dialog openModal:[true] inGroup:JavaWindowGroup
+"Created: / 7.1.1998 / 21:52:15 / cg"
+"Modified: / 11.12.1998 / 14:43:05 / cg"
+!
+_WDialogPeer_create:nativeContext
+|jDialogPeer dialog|
+jDialogPeer := nativeContext receiver.
+dialog := ModalBox new.
+jDialogPeer instVarNamed:'pData' put:dialog.
+self createdWindowsView:dialog for:jDialogPeer.
+dialog windowGroup:JavaWindowGroup.
+JavaWindowGroup addTopView:dialog.
+WindowCreationTrace == true ifTrue:[
+	'WDialogPeer_create: ' print. dialog printNL.
+].
+"Created: / 7.1.1998 / 21:51:00 / cg"
+"Modified: / 15.1.1998 / 16:12:44 / cg"
+!
+_WDrawingSurfaceInfo_getDepth:nativeContext
+"/ int getDepth ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:21:00 / cg"
+!
+_WDrawingSurfaceInfo_getHBitmap:nativeContext
+"/ int getHBitmap ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:20:32 / cg"
+!
+_WDrawingSurfaceInfo_getHDC:nativeContext
+"/ int getHDC ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:20:50 / cg"
+!
+_WDrawingSurfaceInfo_getHPalette:nativeContext
+"/ int getHPalette ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:21:07 / cg"
+!
+_WDrawingSurfaceInfo_getHWnd:nativeContext
+"/ int getHWnd ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:20:23 / cg"
+!
+_WDrawingSurfaceInfo_getPBits:nativeContext
+"/ int getPBits ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:20:41 / cg"
+!
+_WDrawingSurfaceInfo_lock:nativeContext
+"/ int lock ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:20:00 / cg"
+!
+_WDrawingSurfaceInfo_unlock:nativeContext
+"/ void unlock ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:20:13 / cg"
+!
+_WEmbeddedFramePeer_create:nativeContext
+"/ void create (sun.awt.windows.WComponentPeer)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:16:09 / cg"
+!
+_WFileDialogPeer_show:nativeContext
+|jDialogPeer jDialog dialogView stDialog
+title dir pattern f|
+jDialogPeer := nativeContext receiver.
+jDialog := jDialogPeer instVarNamed:'target'.
+dialogView := jDialogPeer instVarNamed:'pData'.
+stDialog := FileSelectionBox new.
+dir := jDialog instVarNamed:'dir'.
+dir notNil ifTrue:[
+	stDialog directory:(Java as_ST_String:dir).
+].
+pattern := jDialog instVarNamed:'file'.
+pattern notNil ifTrue:[
+	stDialog pattern:(Java as_ST_String:pattern).
+].
+title := jDialog instVarNamed:'title'.
+title notNil ifTrue:[
+	stDialog title:(Java as_ST_String:title).
+	stDialog label:(Java as_ST_String:title).
+].
+stDialog show.
+stDialog accepted ifTrue:[
+	f := stDialog pathName.
+	"/ cannot use the one below - it has a builtIn fileSeparator if '\' (sigh)
+	"/ jDialogPeer perform:#'handleSelected(Ljava/lang/String;)V' with:(Java as_String:f).
+	jDialog
+	    perform:#'setFile(Ljava/lang/String;)V'
+	    with:(Java as_String:(f asFilename baseName)).
+	jDialog
+	    perform:#'setDirectory(Ljava/lang/String;)V'
+	    with:(Java as_String:(f asFilename directoryName , Filename separator asString)).
+	jDialog
+	    perform:#'setVisible(Z)V'
+	    with:0.
+] ifFalse:[
+	jDialogPeer
+	    perform:#'handleCancel()V'
+].
+"/ self halt.
+"Created: / 7.1.1998 / 22:38:45 / cg"
+"Modified: / 15.1.1998 / 13:04:05 / cg"
+!
+_WFontMetrics_bytesWidth:nativeContext
+"/ int bytesWidth (byte[] int int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:11:46 / cg"
+!
+_WFontMetrics_getMFCharSegmentWidth:nativeContext
+"get multi-font string-segment width.
+Not yet supported - use standard strings width"
+|jMetrics jFont jFontDescr stFont w
+bool1 cp offs lenght bp int1|
+jMetrics := nativeContext receiver.
+jFont := nativeContext argAt:1.
+jFontDescr := nativeContext argAt:2.
+bool1 := nativeContext argAt:3.
+cp := nativeContext argAt:4.
+offs := nativeContext argAt:5.
+lenght := nativeContext argAt:6.
+bp := nativeContext argAt:7.
+int1 := nativeContext argAt:8.
+stFont := jFont instVarNamed:'pData'.
+(stFont isNil or:[stFont == 0]) ifTrue:[
+	self halt
+].
+stFont device isNil ifTrue:[
+	stFont := stFont on:Display.
+	jFont instVarNamed:'pData' put:stFont.
+].
+w := stFont widthOf:cp from:offs+1 to:offs+lenght.
+^ w.
+"Created: / 5.1.1998 / 01:57:45 / cg"
+"Modified: / 13.1.1998 / 23:44:03 / cg"
+!
+_WFontMetrics_init:nativeContext
+|jMetrics jFont stFont widths family name style size|
+jMetrics := nativeContext receiver.
+jFont := jMetrics instVarNamed:'font'.
+family := jFont instVarNamed:'family'.
+family := Java as_ST_String:family.
+name := jFont instVarNamed:'name'.
+name := Java as_ST_String:name.
+style := jFont instVarNamed:'style'.
+size := jFont instVarNamed:'size'.
+stFont := Font family:family size:size.
+stFont isNil ifTrue:[
+stFont := Font family:'helvetica' size:size.
+].
+stFont := stFont on:Display.
+self halt.
+"/    stFont := jFont instVarNamed:'pData'.
+"/    stFont isNil ifTrue:[
+"/        self halt
+"/    ].
+stFont := stFont on:Display.
+jFont instVarNamed:'pData' put:stFont.
+jMetrics instVarNamed:'ascent'     put:stFont ascent.
+jMetrics instVarNamed:'descent'    put:stFont descent.
+jMetrics instVarNamed:'leading'    put:0.
+jMetrics instVarNamed:'height'     put:stFont height.
+jMetrics instVarNamed:'maxAscent'  put:stFont maxAscent.
+jMetrics instVarNamed:'maxDescent' put:stFont maxDescent.
+jMetrics instVarNamed:'maxHeight'  put:stFont maxHeight.
+jMetrics instVarNamed:'maxAdvance' put:stFont maxWidth.
+widths := Array new:256.
+0 to:255 do:[:i |
+widths at:(i+1) put:(stFont widthOf:(Character value:i))
+].
+jMetrics instVarNamed:'widths' put:widths.
+"/ self halt.
+"Modified: / 8.8.1997 / 12:06:53 / cg"
+"Created: / 5.1.1998 / 01:54:29 / cg"
+!
+_WFontMetrics_needsConversion:nativeContext
+|jFont jFontDescr stFont|
+jFont := nativeContext argAt:1.
+jFontDescr := nativeContext argAt:2.
+stFont := jFont instVarNamed:'pData'.
+"/    stFont isNil ifTrue:[
+"/        self halt
+"/    ].
+"/    stFont device isNil ifTrue:[
+"/        stFont := stFont on:Display.
+"/        jFont instVarNamed:'pData' put:stFont.
+"/    ].
+"/
+^ 0
+"Modified: / 17.8.1997 / 17:16:29 / cg"
+"Created: / 5.1.1998 / 01:56:42 / cg"
+!
+_WFramePeer__setIconImage:nativeContext
+|frame imgRep image|
+frame := self viewForWPeer:nativeContext.
+imgRep := nativeContext argAt:1.
+imgRep notNil ifTrue:[
+	image := imgRep instVarNamed:'pData'.
+	(image notNil and:[image ~~ 0]) ifTrue:[
+	    frame icon:image.
+	]
+].
+"Created: / 27.4.1998 / 17:15:09 / cg"
+"Modified: / 27.4.1998 / 17:18:24 / cg"
+!
+_WFramePeer_create:nativeContext
+|jFramePeer jFrame top frame pDataIdx|
+jFramePeer := nativeContext receiver.
+"/ for now: a kludge to create an embedded frame for
+"/ mozillaFrames
+jFrame := jFramePeer instVarNamed:'target'.
+(jFrame notNil
+and:[(pDataIdx := jFrame class instVarOffsetOf:'pData') notNil])
+ifTrue:[
+	((frame := jFrame instVarAt:pDataIdx) notNil
+	and:[frame ~~ 0]) ifTrue:[
+	    WindowCreationTrace == true ifTrue:[
+		'JAVA: targetFrame view already created: ' infoPrintCR.
+	    ].
+	    "/ sigh; pData was renamed to pNativeWidget in jdk1.2 ...
+	    pDataIdx := jFramePeer class instVarOffsetOf:'pNativeWidget'.
+	    pDataIdx isNil ifTrue:[
+		"/ ok, we are < 1.2
+		pDataIdx := jFramePeer class instVarOffsetOf:'pData'.
+	    ].
+	    jFramePeer instVarAt:pDataIdx put:frame.
+	]
+] ifFalse:[
+	frame := jFramePeer instVarNamed:'pData'
+].
+(frame notNil and:[frame ~~ 0]) ifTrue:[
+	WindowCreationTrace == true ifTrue:[
+	    'JAVA: frame view already created: ' infoPrint.
+	    jFramePeer class name infoPrintCR.
+	].
+] ifFalse:[
+"/ OLD
+"/        frame := StandardSystemView new.
+"/        self createdWindowsView:frame for:jFramePeer.
+"/        JavaWindowGroup addTopView:frame.
+	frame := JavaTopView new.
+	frame delegate:self.
+	frame javaPeer:jFramePeer.
+	self createdWindowsView:frame for:jFramePeer.
+	JavaWindowGroup addTopView:frame.
+"/        top := StandardSystemView new.
+"/        frame := JavaView origin:0.0@0.0 corner:1.0@1.0 in:top.
+"/        frame delegate:self.
+"/        frame javaPeer:jFramePeer.
+"/        self createdWindowsView:frame for:jFramePeer.
+"/        JavaWindowGroup addTopView:top.
+].
+WindowCreationTrace == true ifTrue:[
+	'JAVA: WFramePeer_create: ' print. jFramePeer displayString print.
+	' frame: ' print. frame printNL.
+].
+"Created: / 4.1.1998 / 17:56:39 / cg"
+"Modified: / 3.12.1998 / 00:10:21 / cg"
+!
+_WFramePeer_setMenuBar0:nativeContext
+|frame jMenuBarPeer menuPanel|
+frame := self viewForWPeer:nativeContext.
+jMenuBarPeer := nativeContext argAt:1.
+jMenuBarPeer isNil ifTrue:[
+	"/ mhmh - JAVA wants to remove the frames menuPanel.
+	"/ but I have no handle on it (for destroy).
+	"/ search it in subViews of the frame.
+	frame subViews copy do:[:v |
+	    (v isKindOf:MenuPanel) ifTrue:[
+		v destroy
+	    ]
+	]
+] ifFalse:[
+	menuPanel := jMenuBarPeer instVarNamed:'pData'.
+	menuPanel origin:0.0@0.0 corner:1.0@(menuPanel preferredExtent y).
+	frame addSubView:menuPanel.
+].
+^ nil
+"Created: / 7.1.1998 / 21:41:35 / cg"
+"Modified: / 8.1.1998 / 17:35:04 / cg"
+!
+_WFramePeer_setResizable:nativeContext
+|view onOff|
+view := self viewForWPeer:nativeContext.
+onOff := (nativeContext argAt:1) == 1.
+view isTopView ifTrue:[
+	onOff ifTrue:[
+	    view minExtent:10@10.
+	    view maxExtent:(Screen current extent).
+	] ifFalse:[
+	    view minExtent:view extent.
+	    view maxExtent:view extent.
+	]
+] ifFalse:[
+	(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
+	    self halt.
+	]
+].
+"/ 'JAVA: WWindowPeer_setResizable: ' print. view print. ' yes/no: ' print. onOff printNL.
+^ nil
+"Modified: / 16.1.1998 / 18:08:00 / cg"
+"Created: / 16.10.1998 / 02:21:34 / cg"
+!
+_WFramePeer_setTitle:nativeContext
+|view jString string|
+view := self viewForWPeer:nativeContext.
+jString := nativeContext argAt:1.
+string := Java as_ST_String:jString.
+"/ 'JAVA: WFramePeer_pSetTitle: ' print. string print. ' ' print. view printNL.
+view label:string.
+^ nil
+"Modified: / 8.1.1998 / 17:37:41 / cg"
+"Created: / 27.1.1998 / 21:42:57 / cg"
+!
+_WGraphics__dispose:nativeContext
+"/ void _dispose()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:17:51 / cg"
+!
+_WGraphics_changeClip:nativeContext
+|gc x y w h r bool|
+gc := self gcForWGraphics:nativeContext.
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+bool := (nativeContext argAt:5) ~~ 0.
+r := Rectangle left:x top:y width:w height:h.
+"/ 'WGraphics_changeClip: ' infoPrint. r infoPrintCR.
+gc clippingRectangle:r.
+"Created: / 6.1.1998 / 20:57:21 / cg"
+"Modified: / 20.10.1998 / 19:40:10 / cg"
+!
+_WGraphics_clearRect:nativeContext
+|gc x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[
+	'JAVA: drawing on unrealized gc - ignored' infoPrintCR.
+	^ self
+].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+"/ self halt.
+"/ self internalError:'breakPoint'.
+gc clearRectangleX:x y:y width:w height:h.
+"Created: / 8.1.1998 / 00:16:00 / cg"
+"Modified: / 8.1.1998 / 00:21:09 / cg"
+!
+_WGraphics_close:nativeContext
+"/ void close (sun.awt.windows.WPrintJob)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:19:40 / 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|
+jGraphics := nativeContext receiver.
+jWin := nativeContext argAt:1.
+view := KnownWindows at:jWin ifAbsent:nil.
+view isNil ifTrue:[
+	self halt.
+	^ self
+].
+view clippingRectangle:nil.
+"/    "/ just a consistency check ...
+"/    (jWin instVarNamed:'xid') ~~ view ifTrue:[
+"/        self halt:'consistency check'
+"/    ].
+jGraphics instVarNamed:'pData' put:view.
+"Created: / 6.1.1998 / 20:55:18 / cg"
+"Modified: / 20.10.1998 / 19:38:18 / cg"
+!
+_WGraphics_createFromGraphics:nativeContext
+|jGraphics graphics gc|
+jGraphics := nativeContext receiver.
+graphics := nativeContext argAt:1.
+gc := graphics instVarNamed:'pData'.
+jGraphics instVarNamed:'pData' put:gc.
+gc clippingRectangle:nil.
+"Created: / 8.1.1998 / 00:47:39 / cg"
+"Modified: / 20.10.1998 / 19:37:58 / cg"
+!
+_WGraphics_createFromHDC:nativeContext
+"/ void createFromHDC (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:17:32 / cg"
+!
+_WGraphics_createFromPrintJob:nativeContext
+"/ void createFromPrintJob (sun.awt.windows.WPrintJob)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:17:20 / cg"
+!
+_WGraphics_dispose:nativeContext
+|gc|
+gc := self gcForWGraphics:nativeContext.
+gc isNil ifTrue:[^ self].
+gc clippingRectangle:nil.
+"Created: / 6.1.1998 / 20:58:38 / cg"
+"Modified: / 20.10.1998 / 19:35:05 / cg"
+!
+_WGraphics_drawArc:nativeContext
+|gc x y w h startAngle endAngle|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+startAngle := nativeContext argAt:5.
+endAngle := nativeContext argAt:6.
+DrawOPTrace ifTrue:[
+	'drawArc x/y= ' print. x print. '@' print. y print.
+	       ' w/h= ' print. w print. '@' print. h print.
+	       ' startAngle= ' print. startAngle print. ' endAngle= ' print. endAngle printCR.
+].
+gc
+	displayArcX:x y:y
+	width:w height:h
+	from:startAngle angle:(endAngle - startAngle).
+"Created: / 6.1.1998 / 21:00:15 / cg"
+"Modified: / 28.1.1999 / 17:38:45 / cg"
+!
+_WGraphics_drawBytes:nativeContext
+"/ void drawBytes (byte[] int int int int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:18:56 / cg"
+!
+_WGraphics_drawLine:nativeContext
+|gc x y x2 y2|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+x2 := nativeContext argAt:3.
+y2 := nativeContext argAt:4.
+DrawOPTrace ifTrue:[
+	'drawLine x/y= ' print. x print. '@' print. y print. ' x2/y2= ' print. x2 print. '@' print. y2 printCR.
+].
+gc displayLineFromX:x y:y toX:x2 y:y2
+"Created: / 6.1.1998 / 20:59:27 / cg"
+"Modified: / 8.1.1998 / 00:34:23 / cg"
+!
+_WGraphics_drawMFCharsConvertedSegment:nativeContext
+"/ int drawMFCharsConvertedSegment (java.awt.Font sun.awt.FontDescriptor byte[] int int int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:18:44 / cg"
+!
+_WGraphics_drawMFCharsSegment:nativeContext
+|jFont jFontDescr s gc x y offs len|
+gc := self gcForWGraphics:nativeContext.
+gc realized ifFalse:[^ self].
+jFont := nativeContext argAt:1.
+jFontDescr := nativeContext argAt:2.
+s := nativeContext argAt:3.
+offs := nativeContext argAt:4.
+len := nativeContext argAt:5.
+x := nativeContext argAt:6.
+y := nativeContext argAt:7.
+DrawOPTrace ifTrue:[
+	'drawMFCharsSegment x/y= ' print. x print. '@' print. y print. ' s= ' print. s printCR.
+].
+gc displayString:s from:offs+1 to:offs+len x:x y:y.
+^ (gc font onDevice:(gc graphicsDevice)) widthOf:s.
+"Created: / 6.1.1998 / 21:01:07 / cg"
+"Modified: / 25.1.1998 / 20:45:55 / cg"
+!
+_WGraphics_drawOval:nativeContext
+|gc x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+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: / 9.4.1998 / 22:10:23 / cg"
+!
+_WGraphics_drawPolygon:nativeContext
+|gc xVector yVector count points|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+xVector := nativeContext argAt:1.
+yVector := nativeContext argAt:2.
+count := nativeContext argAt:3.
+DrawOPTrace ifTrue:[
+	'drawPolgon' printCR.
+].
+points := (1 to:count) collect:[:i | (xVector at:i) @ (yVector at:i)].
+gc displayPolygon:points
+"Created: / 8.1.1998 / 00:57:28 / cg"
+"Modified: / 8.1.1998 / 00:57:49 / cg"
+!
+_WGraphics_drawPolyline:nativeContext
+"/ void drawPolyline (int[] int[] int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:19:07 / cg"
+!
+_WGraphics_drawRect:nativeContext
+|gc x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+"/ self halt.
+"/ self internalError:'breakPoint'.
+gc displayRectangleX:x y:y width:w height:h.
+"Modified: / 8.1.1998 / 00:34:33 / cg"
+"Created: / 8.1.1998 / 00:59:05 / cg"
+!
+_WGraphics_drawRoundRect:nativeContext
+|gc x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+"/ self halt.
+"/ self internalError:'breakPoint'.
+gc displayRectangleX:x y:y width:w height:h.
+"Modified: / 8.1.1998 / 00:34:33 / cg"
+"Created: / 8.1.1998 / 00:59:26 / cg"
+!
+_WGraphics_drawSFChars:nativeContext
+"/ 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
+|gc x y w h startAngle endAngle|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+startAngle := nativeContext argAt:5.
+endAngle := nativeContext argAt:6.
+DrawOPTrace ifTrue:[
+	'fillArc x/y= ' print. x print. '@' print. y print.
+	       ' w/h= ' print. w print. '@' print. h print.
+	       ' startAngle= ' print. startAngle print. ' endAngle= ' print. endAngle printCR.
+].
+gc fillArcX:x y:y width:w height:h from:startAngle angle:(endAngle - startAngle)
+"Created: / 6.1.1998 / 21:11:31 / cg"
+"Modified: / 8.1.1998 / 00:33:59 / cg"
+!
+_WGraphics_fillOval:nativeContext
+|gc x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+DrawOPTrace ifTrue:[
+	'drawOval x/y= ' print. x print. '@' print. y print.
+		' w/h= ' print. w print. '@' print. h printCR.
+].
+gc fillArcX:x y:y width:w height:h from:0 angle:360
+"Created: / 8.1.1998 / 00:46:00 / cg"
+"Modified: / 8.1.1998 / 00:46:20 / cg"
+!
+_WGraphics_fillPolygon:nativeContext
+|gc xVector yVector count points|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+xVector := nativeContext argAt:1.
+yVector := nativeContext argAt:2.
+count := nativeContext argAt:3.
+DrawOPTrace ifTrue:[
+	'fillPolgon' printCR.
+].
+points := (1 to:count) collect:[:i | (xVector at:i) @ (yVector at:i)].
+gc fillPolygon:points
+"Created: / 8.1.1998 / 00:58:09 / cg"
+"Modified: / 25.1.1998 / 11:03:19 / cg"
+!
+_WGraphics_fillRect:nativeContext
+|gc x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+"/ self halt.
+"/ self internalError:'breakPoint'.
+gc fillRectangleX:x y:y width:w height:h.
+"Created: / 15.8.1997 / 15:43:10 / cg"
+"Modified: / 8.1.1998 / 00:34:33 / cg"
+!
+_WGraphics_fillRoundRect:nativeContext
+|gc x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ self].
+gc realized ifFalse:[^ self].
+x := nativeContext argAt:1.
+y := nativeContext argAt:2.
+w := nativeContext argAt:3.
+h := nativeContext argAt:4.
+"/ self halt.
+"/ self internalError:'breakPoint'.
+gc displayRectangleX:x y:y width:w height:h.
+"Modified: / 8.1.1998 / 00:34:33 / cg"
+"Created: / 8.1.1998 / 00:59:36 / cg"
+!
+_WGraphics_getClipBounds:nativeContext
+|gc rect r x y w h|
+gc := self gcForWGraphics:nativeContext.
+"/    gc isNil ifTrue:[^ nil].
+rect := (Java classForName:'java.awt.Rectangle') basicNew.
+(gc isMemberOf:JavaView) ifTrue:[
+	"/ r := gc clippingRectangleOrNil.
+	r := gc getNextUpdateRectangle.
+].
+r isNil ifTrue:[
+	r := gc clippingRectangleOrNil.
+].
+r isNil ifTrue:[
+	x := y := 0.
+	w := (gc width).
+	h := (gc height).
+] ifFalse:[
+	x := (r left).
+	y := (r top).
+	w := (r width).
+	h := (r height).
+].
+rect instVarNamed:'x' put:x.
+rect instVarNamed:'y' put:y.
+rect instVarNamed:'width' put:w.
+rect instVarNamed:'height' put:h.
+"/ 'WGraphics__getClipBounds ' infoPrint. (x@y extent:w@h) infoPrintCR.
+^ rect
+"Created: / 6.1.1998 / 20:58:07 / cg"
+"Modified: / 23.12.1998 / 20:14:09 / cg"
+!
+_WGraphics_imageCreate:nativeContext
+|jGraphics imgRep|
+jGraphics := nativeContext receiver.
+imgRep := nativeContext argAt:1.
+jGraphics instVarNamed:'pData' put:(imgRep instVarNamed:'pData').
+"/ self halt.
+"Created: / 11.1.1998 / 16:34:30 / cg"
+"Modified: / 17.1.1998 / 12:37:18 / cg"
+!
+_WGraphics_pSetFont:nativeContext
+|gc jFont stFont|
+gc := self gcForWGraphics:nativeContext.
+jFont := nativeContext argAt:1.
+stFont := jFont instVarNamed:'pData'.
+(stFont isNil or:[stFont == 0]) ifTrue:[
+"/ self halt.
+] ifFalse:[
+	gc font:stFont
+].
+"Created: / 6.1.1998 / 20:56:47 / cg"
+"Modified: / 15.1.1998 / 12:31:20 / cg"
+!
+_WGraphics_pSetForeground:nativeContext
+|gc rgb clr|
+gc := self gcForWGraphics:nativeContext.
+rgb := nativeContext argAt:1.
+rgb isInteger ifFalse:[
+"/ its a java.awt.Color
+rgb := rgb instVarNamed:'value'.
+].
+clr := Color rgbValue:rgb.
+gc paint:(clr nearestOn:gc device).
+"/ self halt.
+"/ self internalError:'breakPoint'.
+"Created: / 6.1.1998 / 20:56:14 / cg"
+"Modified: / 23.12.1998 / 20:10:49 / cg"
+!
+_WGraphics_print:nativeContext
+"/ void print (sun.awt.windows.WComponentPeer)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:19:25 / cg"
+!
+_WGraphics_removeClip:nativeContext
+"/ void removeClip ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:18:05 / cg"
+!
+_WGraphics_setPaintMode:nativeContext
+|gc|
+gc := self gcForWGraphics:nativeContext.
+gc function:#copy.
+true "DrawOPTrace" ifTrue:[
+	'copyMode' infoPrintCR.
+].
+"Created: / 8.1.1998 / 00:33:44 / cg"
+"Modified: / 28.1.1998 / 23:25:56 / cg"
+!
+_WGraphics_setXORMode:nativeContext
+|gc jColor rgb invColor device|
+gc := self gcForWGraphics:nativeContext.
+jColor := nativeContext argAt:1.
+device := gc graphicsDevice.
+"/    "/ on trueColor systems, use the provided
+"/    "/ rgb value for inverting.
+"/    "/ on palette systems, use white ^ black
+"/
+"/    device visualType == #TrueColor ifTrue:[
+"/        rgb := jColor instVarNamed:'value'.
+"/        rgb := rgb bitAnd:16rFFFFFF.
+"/        rgb == 0 ifTrue:[
+"/            rgb := 16rFFFFFF.
+"/        ].
+"/        invColor := rgb
+"/    ] ifFalse:[
+"/        invColor := device blackpixel bitXor:device whitepixel.
+"/    ].
+invColor := device blackpixel bitXor:device whitepixel.
+"/    gc foreground:(Color colorId:invColor)
+"/       background:device blackColor.
+device
+	setForeground:invColor background:0
+	in:gc gcId.
+gc function:#xor.
+true "DrawOPTrace" ifTrue:[
+	'xorMode' infoPrintCR.
+].
+"Created: / 8.1.1998 / 00:36:17 / cg"
+"Modified: / 28.1.1998 / 23:45:03 / cg"
+!
+_WLabelPeer_create:nativeContext
+|jLabelPeer jLabel jFrame frame label
+lbl|
+jLabelPeer := nativeContext receiver.
+jLabel := jLabelPeer instVarNamed:'target'.
+lbl := jLabel instVarNamed:'text'.
+lbl notNil ifTrue:[
+	lbl := Java as_ST_String:lbl
+].
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+label := Label in:frame.
+label sizeFixed:true.
+lbl notNil ifTrue:[
+	label label:lbl
+].
+self createdWindowsView:label for:jLabelPeer.
+WindowCreationTrace == true ifTrue:[
+	'WLabelPeer_create: ' print. frame print. ' -> ' print. label printNL.
+].
+"Created: / 7.1.1998 / 21:42:31 / cg"
+"Modified: / 13.1.1998 / 22:10:47 / cg"
+!
+_WLabelPeer_setAlignment:nativeContext
+|label alignNr|
+alignNr := nativeContext argAt:1.
+label := self viewForWPeer:nativeContext.
+label notNil ifTrue:[
+].
+"Created: / 7.1.1998 / 21:43:12 / cg"
+"Modified: / 8.1.1998 / 17:35:29 / cg"
+!
+_WLabelPeer_setText:nativeContext
+|label jString str|
+jString := nativeContext argAt:1.
+label := self viewForWPeer:nativeContext.
+jString notNil ifTrue:[
+	str := Java as_ST_String:jString
+].
+label label:str
+"Created: / 7.1.1998 / 21:43:51 / cg"
+"Modified: / 3.12.1998 / 14:59:18 / cg"
+!
+_WListPeer__addItem:nativeContext
+|jString index1 length selListView m|
+selListView := self viewForWPeer:nativeContext.
+jString := nativeContext argAt:1.
+index1 := nativeContext argAt:2.
+length := nativeContext argAt:3.
+(m := selListView model) notNil ifTrue:[
+	m list addLast:(Java as_ST_String:jString).
+	m changed:#list.
+].
+"Created: / 26.10.1998 / 20:11:30 / cg"
+"Modified: / 14.11.1998 / 01:21:03 / cg"
+!
+_WListPeer_addItem:nativeContext
+|jString index selListView m|
+selListView := self viewForWPeer:nativeContext.
+jString := nativeContext argAt:1.
+index := nativeContext argAt:2.
+m := selListView model.
+m isNil ifTrue:[
+	Transcript showCR:'JAVA: access to listModel of closed view'.
+] ifFalse:[
+	m list addLast:(Java as_ST_String:jString).
+	m changed:#list.
+]
+"Created: / 24.1.1998 / 21:10:05 / cg"
+"Modified: / 2.11.1998 / 17:12:52 / cg"
+!
+_WListPeer_create:nativeContext
+|jListPeer jFrame frame selectionInListView|
+jListPeer := nativeContext receiver.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+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:(List new)).
+selectionInListView useIndex:true.
+self createdWindowsView:selectionInListView for:jListPeer.
+WindowCreationTrace == true ifTrue:[
+	'WTextAreaPeer_create: ' print. frame print. ' -> ' print. selectionInListView printNL.
+].
+"Created: / 24.1.1998 / 19:58:54 / cg"
+"Modified: / 9.4.1998 / 22:19:07 / cg"
+!
+_WListPeer_delItems:nativeContext
+|jString index1 index2 selListView model list|
+selListView := self viewForWPeer:nativeContext.
+index1 := (nativeContext argAt:1) + 1. "/ java indices are 0-based.
+index2 := (nativeContext argAt:2) + 1. "/ st indices are 1-based.
+model := selListView model.
+model isNil ifTrue:[^ self].
+list := model list.
+list size >= index1 ifTrue:[
+	list removeFromIndex:index1 toIndex:(index2 min:list size).
+	model changed:#list.
+].
+"Created: / 9.4.1998 / 22:19:25 / cg"
+"Modified: / 30.12.1998 / 20:00:50 / cg"
+!
+_WListPeer_deselect:nativeContext
+"/ void deselect (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:15:10 / cg"
+!
+_WListPeer_getMaxWidth:nativeContext
+"/ int getMaxWidth ()
+^ 1000 "/ a dummy value
+"/    UnimplementedNativeMethodSignal raise
+"Created: / 14.11.1998 / 10:44:29 / cg"
+!
+_WListPeer_isSelected:nativeContext
+|selectionInListView index model|
+selectionInListView := self viewForWPeer:nativeContext.
+index := nativeContext argAt:1.
+(model := selectionInListView model) notNil ifTrue:[
+	(model selectionIndex == (index + 1))  "/ JAVA indexing starts at 0
+	ifTrue:[
+	    ^ 1
+	]
+].
+^ 0.
+"Created: / 24.1.1998 / 22:42:31 / cg"
+"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|
+selectionInListView := self viewForWPeer:nativeContext.
+index := nativeContext argAt:1.
+(model := selectionInListView model) notNil ifTrue:[
+	model selectionIndex:(index + 1).  "/ JAVA indexing starts at 0
+]
+"Created: / 24.1.1998 / 22:32:35 / cg"
+"Modified: / 25.1.1998 / 01:28:46 / cg"
+!
+_WListPeer_setMultipleSelections:nativeContext
+|selectionInListView onOff|
+selectionInListView := self viewForWPeer:nativeContext.
+onOff := (nativeContext argAt:1) ~~ 0.
+selectionInListView multipleSelectOk:onOff.
+"Modified: / 24.1.1998 / 20:01:06 / cg"
+!
+_WListPeer_updateMaxItemWidth:nativeContext
+|selectionInListView lineNr|
+selectionInListView := self viewForWPeer:nativeContext.
+"Created: / 26.10.1998 / 20:09:46 / cg"
+!
+_WMenuBarPeer_addMenu:nativeContext
+"/ void addMenu (java.awt.Menu)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:14:00 / cg"
+!
+_WMenuBarPeer_create:nativeContext
+|jMenuBarPeer jMenuBar jFrame frame menuBar|
+jMenuBarPeer := nativeContext receiver.
+jMenuBar := jMenuBarPeer instVarNamed:'target'.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+menuBar := MenuPanel in:frame.
+menuBar verticalLayout:false.
+menuBar realize.
+self createdWindowsView:menuBar for:jMenuBarPeer.
+WindowCreationTrace == true ifTrue:[
+	'WMenuBarPeer_create: ' print. frame print. ' -> ' print. menuBar printNL.
+].
+"Created: / 7.1.1998 / 21:38:31 / cg"
+"Modified: / 25.1.1998 / 13:19:03 / cg"
+!
+_WMenuBarPeer_delMenu:nativeContext
+"/ void delMenu (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:14:11 / cg"
+!
+_WMenuItemPeer__dispose:nativeContext
+|jMenuItemPeer item|
+jMenuItemPeer := nativeContext receiver.
+item := jMenuItemPeer instVarNamed:'pData'.
+"/ what should be done here ?
+"Created: / 29.3.1998 / 17:16:05 / cg"
+"Modified: / 29.3.1998 / 17:16:35 / cg"
+!
+_WMenuItemPeer__setLabel:nativeContext
+"/ void _setLabel (java.lang.String)
+|jMenuItemPeer item label|
+jMenuItemPeer := nativeContext receiver.
+item := jMenuItemPeer instVarNamed:'pData'.
+(item isNil or:[item == 0]) ifTrue:[
+	'JAVA [warning]: NULL menu item in setLabel' infoPrintCR.
+	^ self
+].
+label := nativeContext argAt:1.
+label isNil ifTrue:[
+	label := ''
+] ifFalse:[
+	label := Java as_ST_String:label
+].
+item label:label.
+"Modified: / 11.12.1998 / 16:40:18 / cg"
+!
+_WMenuItemPeer_create:nativeContext
+|jMenuItemPeer jMenuItem jMenuPeer menu item lbl|
+jMenuItemPeer := nativeContext receiver.
+jMenuItem := jMenuItemPeer instVarNamed:'target'.
+jMenuPeer := nativeContext argAt:1.
+menu := jMenuPeer instVarNamed:'pData'.
+(menu isNil or:[menu == 0]) ifTrue:[
+	'JAVA: no menu to create item in' infoPrintCR.
+	^ self
+].
+item := menu createAtIndex:nil.
+item value:[
+		jMenuItemPeer perform:#'handleAction(I)V' with:0
+	       ].
+lbl := jMenuItem instVarNamed:'label'.
+lbl notNil ifTrue:[
+	lbl := Java as_ST_String:lbl.
+	item label:lbl
+].
+jMenuItemPeer instVarNamed:'pData' put:item.
+WindowOPTrace == true ifTrue:[
+	'WMenuItem_create: ' print. menu print. ' -> ' print. item printNL.
+].
+"Created: / 7.1.1998 / 21:40:44 / cg"
+"Modified: / 3.12.1998 / 20:43:20 / cg"
+!
+_WMenuItemPeer_enable:nativeContext
+|jMenuItemPeer item state|
+jMenuItemPeer := nativeContext receiver.
+item := jMenuItemPeer instVarNamed:'pData'.
+(item isNil or:[item == 0]) ifTrue:[
+	'JAVA [warning]: NULL menu item in enable' infoPrintCR.
+	^ self
+].
+state := nativeContext argAt:1.
+item enabled:(state ~~ 0)
+"Created: / 7.1.1998 / 22:41:38 / cg"
+"Modified: / 11.12.1998 / 16:40:26 / cg"
+!
+_WMenuPeer_addSeparator:nativeContext
+"/ void addSeparator ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:13:14 / cg"
+!
+_WMenuPeer_createMenu:nativeContext
+|jMenuPeer jMenu jMenuBarPeer menuPanel menu
+lbl item|
+jMenuPeer := nativeContext receiver.
+jMenu := jMenuPeer instVarNamed:'target'.
+jMenuBarPeer := nativeContext argAt:1.
+menuPanel := jMenuBarPeer instVarNamed:'pData'.
+item := menuPanel createAtIndex:nil.
+lbl := jMenu instVarNamed:'label'.
+lbl notNil ifTrue:[
+	lbl := Java as_ST_String:lbl.
+	item label:lbl
+].
+menu := MenuPanel new.
+item submenu:menu.
+jMenuPeer instVarNamed:'pData' put:menu.
+'createMenuPeer: ' print. menuPanel print. ' -> ' print. menu printNL.
+"Created: / 7.1.1998 / 21:39:50 / cg"
+"Modified: / 13.1.1998 / 22:11:09 / cg"
+!
+_WMenuPeer_createSubMenu:nativeContext
+"/ void createSubMenu (sun.awt.windows.WMenuPeer)
+"/    UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:13:43 / cg"
+"Modified: / 3.12.1998 / 21:41:07 / cg"
+!
+_WMenuPeer_delItem:nativeContext
+"/ void delItem (int)
+|jMenuPeer jMenu menuPanel itemIndex|
+jMenuPeer := nativeContext receiver.
+menuPanel := jMenuPeer instVarNamed:'pData'.
+itemIndex := nativeContext argAt:1.
+menuPanel remove:itemIndex.
+"/    UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:13:30 / cg"
+"Modified: / 10.12.1998 / 21:12:29 / cg"
+!
+_WPanelPeer_calculateInsets:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 27.1.1998 / 21:40:00 / cg"
+!
+_WPopupMenuPeer__show:nativeContext
+"/ void _show (java.awt.Event)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:12:53 / cg"
+!
+_WPopupMenuPeer_createMenu:nativeContext
+"/ void createMenu (sun.awt.windows.WComponentPeer)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:12:43 / cg"
+!
+_WPrintJob_end:nativeContext
+"/ void end ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:11:28 / cg"
+!
+_WScrollPanePeer__getHScrollbarHeight:nativeContext
+|scrollPane|
+scrollPane := self viewForWPeer:nativeContext.
+^ HorizontalScrollBar new preferredExtent y.
+"Created: / 9.4.1998 / 17:30:56 / cg"
+"Modified: / 10.4.1998 / 14:59:28 / cg"
+!
+_WScrollPanePeer__getVScrollbarWidth:nativeContext
+|scrollPane|
+scrollPane := self viewForWPeer:nativeContext.
+^ ScrollBar new preferredExtent x.
+"Created: / 9.4.1998 / 17:29:48 / cg"
+"Modified: / 10.4.1998 / 15:00:33 / cg"
+!
+_WScrollPanePeer_create:nativeContext
+|jScrollPanePeer jScrollPane jFrame frame scrollPane
+lbl|
+jScrollPanePeer := nativeContext receiver.
+jScrollPane := jScrollPanePeer instVarNamed:'target'.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+"/ create with a simple view ...
+scrollPane := ScrollableView for:JavaView in:frame.
+self createdWindowsView:scrollPane for:jScrollPanePeer.
+WindowCreationTrace == true ifTrue:[
+	'WScrollPanePeer_create: ' print. frame print. ' -> ' print. scrollPane printNL.
+].
+"Created: / 9.4.1998 / 17:25:08 / cg"
+"Modified: / 9.4.1998 / 22:06:09 / cg"
+!
+_WScrollPanePeer_getOffset:nativeContext
+"/ int getOffset (int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:16:29 / cg"
+!
+_WScrollPanePeer_getScrollChild:nativeContext
+"/ java.awt.Component getScrollChild ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:17:00 / cg"
+!
+_WScrollPanePeer_setInsets:nativeContext
+"Modified: / 9.4.1998 / 17:26:11 / cg"
+"Created: / 9.4.1998 / 17:29:10 / cg"
+!
+_WScrollPanePeer_setScrollPosition:nativeContext
+"/ void setScrollPosition (int int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:16:44 / cg"
+!
+_WScrollPanePeer_setSpans:nativeContext
+"Created: / 9.4.1998 / 17:31:44 / cg"
+!
+_WScrollbarPeer__setValues:nativeContext
+|scrollBar value visibleAmount min max|
+scrollBar := self viewForWPeer:nativeContext.
+value := nativeContext argAt:1.
+visibleAmount := nativeContext argAt:2.
+min := nativeContext argAt:3.
+max := nativeContext argAt:4.
+(min ~~ 0 or:[max ~~ 100]) ifTrue:[
+	scrollBar thumb start:min stop:max.
+].
+scrollBar thumbOrigin:value thumbHeight:visibleAmount.
+"Created: / 13.1.1998 / 22:13:57 / cg"
+"Modified: / 14.10.1998 / 14:53:00 / cg"
+!
+_WScrollbarPeer_create:nativeContext
+|jScrollbarPeer jScrollbar jFrame frame scrollBar
+min max|
+jScrollbarPeer := nativeContext receiver.
+jScrollbar := jScrollbarPeer instVarNamed:'target'.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+(jScrollbar instVarNamed:'orientation') == 0 "HORIZONTAL" ifTrue:[
+	scrollBar := HorizontalScrollBar in:frame.
+] ifFalse:[
+	scrollBar := ScrollBar in:frame.
+].
+min := jScrollbar instVarNamed:'minimum'.
+max := jScrollbar instVarNamed:'maximum'.
+scrollBar scrollDownAction:[
+			scrollBar thumbOrigin:(scrollBar thumbOrigin + ((max-min)/10) min:max).
+			jScrollbarPeer perform:#'dragAbsolute(I)V' with:scrollBar thumbOrigin rounded.
+		     ].
+scrollBar scrollUpAction:[
+			scrollBar thumbOrigin:(scrollBar thumbOrigin - ((max-min)/10) max:min).
+			jScrollbarPeer perform:#'dragAbsolute(I)V' with:scrollBar thumbOrigin rounded.
+		     ].
+scrollBar scrollAction:[:org |
+			jScrollbarPeer perform:#'dragAbsolute(I)V' with:org rounded.
+		     ].
+self createdWindowsView:scrollBar for:jScrollbarPeer.
+WindowCreationTrace == true ifTrue:[
+	'WScrollbarPeer_create: ' print. frame print. ' -> ' print. scrollBar printNL.
+].
+"Created: / 5.1.1998 / 01:53:30 / cg"
+"Modified: / 14.10.1998 / 15:36:19 / cg"
+!
+_WScrollbarPeer_setLineIncrement:nativeContext
+|scrollBar inc|
+Transcript showCR:'JavaVM: WScrollbarPeer_setLineIncrement unimplemented'.
+scrollBar := self viewForWPeer:nativeContext.
+inc := nativeContext argAt:1.
+"/    scrollBar thumb lineIncrement:inc.
+"Created: / 25.1.1998 / 11:52:19 / cg"
+"Modified: / 14.10.1998 / 14:53:56 / cg"
+!
+_WScrollbarPeer_setPageIncrement:nativeContext
+|scrollBar inc|
+Transcript showCR:'JavaVM: WScrollbarPeer_setPageIncrement unimplemented'.
+scrollBar := self viewForWPeer:nativeContext.
+inc := nativeContext argAt:1.
+"/    scrollBar thumb pageIncrement:inc.
+"Created: / 25.1.1998 / 11:52:01 / cg"
+"Modified: / 14.10.1998 / 14:54:04 / cg"
+!
+_WTextAreaPeer_create:nativeContext
+|jTextAreaPeer jFrame frame editTextView|
+jTextAreaPeer := nativeContext receiver.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+editTextView := HVScrollableView for:EditTextView in:frame.
+self createdWindowsView:editTextView for:jTextAreaPeer.
+WindowCreationTrace == true ifTrue:[
+	'WTextAreaPeer_create: ' print. frame print. ' -> ' print. editTextView printNL.
+].
+"Created: / 7.1.1998 / 21:49:49 / cg"
+"Modified: / 15.1.1998 / 12:56:18 / cg"
+!
+_WTextAreaPeer_insertText:nativeContext
+|textView pos string jstring|
+textView := self viewForWPeer:nativeContext.
+(textView isKindOf:ScrollableView) ifTrue:[
+	textView := textView scrolledView
+].
+jstring := nativeContext argAt:1.
+string := Java as_ST_String:jstring.
+pos := nativeContext argAt:2.
+textView insert:string at:pos.
+textView cursorToCharacterPosition:pos + string size.
+textView makeCursorVisible.
+"/ textView invalidateRepairNow:true.
+^ nil
+"Created: / 7.1.1998 / 21:50:23 / cg"
+"Modified: / 5.4.1998 / 17:37:24 / cg"
+!
+_WTextAreaPeer_replaceText:nativeContext
+"/ void replaceText (java.lang.String int int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:11:14 / cg"
+!
+_WTextComponentPeer_enableEditing:nativeContext
+|textView enabled|
+textView := self viewForWPeer:nativeContext.
+enabled := (nativeContext argAt:1) ~~ 0.
+^ textView readOnly:enabled not
+"Created: / 5.1.1998 / 01:29:38 / cg"
+"Modified: / 25.1.1998 / 16:29:56 / cg"
+!
+_WTextComponentPeer_getSelectionEnd:nativeContext
+|textView|
+textView := self viewForWPeer:nativeContext.
+^ textView characterPositionOfSelectionEnd
+"Created: / 8.1.1998 / 17:41:56 / cg"
+"Modified: / 15.1.1998 / 15:47:18 / cg"
+!
+_WTextComponentPeer_getSelectionStart:nativeContext
+|textView|
+textView := self viewForWPeer:nativeContext.
+^ textView characterPositionOfSelection - 1
+"Created: / 15.8.1997 / 15:45:45 / cg"
+"Modified: / 15.1.1998 / 15:46:51 / cg"
+!
+_WTextComponentPeer_getText:nativeContext
+|textView string jString|
+textView := self viewForWPeer:nativeContext.
+string := textView contents asString.
+jString := Java as_String:string.
+^ jString
+"Created: / 6.1.1998 / 21:05:15 / cg"
+"Modified: / 8.1.1998 / 17:36:52 / cg"
+!
+_WTextComponentPeer_select:nativeContext
+|textView selStart selEnd|
+textView := self viewForWPeer:nativeContext.
+selStart := nativeContext argAt:1.
+selEnd := nativeContext argAt:2.
+selStart == selEnd ifTrue:[
+	"/ clear selection
+	textView unselect.
+	"/ and set caret
+	textView cursorToCharacterPosition:selStart + 1
+] ifFalse:[
+	"/ change selection
+	textView selectFromCharacterPosition:selStart+1 to:selEnd
+].
+"Created: / 15.8.1997 / 15:45:58 / cg"
+"Modified: / 15.1.1998 / 21:55:57 / cg"
+!
+_WTextComponentPeer_setText:nativeContext
+|textView string jstring|
+textView := self viewForWPeer:nativeContext.
+jstring := nativeContext argAt:1.
+jstring notNil ifTrue:[
+	string := Java as_ST_String:jstring
+].
+textView contents:string.
+"Created: / 5.1.1998 / 01:28:23 / cg"
+"Modified: / 11.12.1998 / 12:16:46 / cg"
+!
+_WTextFieldPeer_create:nativeContext
+|jTextFieldPeer jFrame frame editField|
+jTextFieldPeer := nativeContext receiver.
+jFrame := nativeContext argAt:1.
+frame := jFrame instVarNamed:'pData'.
+editField := EditField in:frame.
+self createdWindowsView:editField for:jTextFieldPeer.
+editField crAction:[
+			jTextFieldPeer perform:#handleAction.
+		  ].
+WindowCreationTrace == true ifTrue:[
+	'WTextFieldPeer_create: ' print. frame print. ' -> ' print. editField printNL.
+].
+"Created: / 5.1.1998 / 01:27:37 / cg"
+"Modified: / 4.11.1998 / 21:07:30 / cg"
+!
+_WTextFieldPeer_setEchoCharacter:nativeContext
+|editField char|
+editField := self viewForWPeer:nativeContext.
+char := nativeContext argAt:1.
+editField passwordCharacter:(Character value:char).
+"Created: / 25.1.1998 / 16:28:30 / cg"
+!
+_WToolkit_beep:nativeContext
+"/ void beep ()
+Screen current beep
+"Created: / 12.11.1998 / 19:09:23 / cg"
+"Modified: / 11.12.1998 / 12:15:23 / cg"
+!
+_WToolkit_eventLoop:nativeContext
+(JavaEventThread notNil and:[JavaEventThread isDead not]) ifTrue:[
+	'JavaVM [warning]: oops - two threads executing eventLoop' errorPrintCR.
+].
+JavaEventThread := Processor activeProcess.
+[
+	[true] whileTrue:[
+	    AbortSignal handle:[:ex |
+		ex return
+	    ] do:[
+		self doWindowsEventThread.
+	    ]
+	].
+] valueNowOrOnUnwindDo:[
+	JavaEventThread := nil.
+].
+"Created: / 6.1.1998 / 21:01:44 / cg"
+"Modified: / 8.1.1999 / 17:08:00 / cg"
+!
+_WToolkit_getComboHeightOffset:nativeContext
+^ 0
+"Modified: / 20.3.1997 / 13:50:04 / cg"
+"Created: / 22.10.1998 / 00:59:14 / cg"
+!
+_WToolkit_getScreenHeight:nativeContext
+^ Screen current height
+"Modified: / 20.3.1997 / 13:50:04 / cg"
+"Created: / 13.1.1998 / 09:24:45 / cg"
+!
+_WToolkit_getScreenResolution:nativeContext
+^ Screen current resolution x rounded
+"Modified: / 20.3.1997 / 13:50:04 / cg"
+"Created: / 17.1.1998 / 21:54:48 / cg"
+!
+_WToolkit_getScreenWidth:nativeContext
+^ Screen current width
+"Modified: / 20.3.1997 / 13:50:04 / cg"
+"Created: / 13.1.1998 / 09:24:37 / cg"
+!
+_WToolkit_init:nativeContext
+"Created: / 3.1.1998 / 02:30:57 / cg"
+!
+_WToolkit_loadSystemColors:nativeContext
+"/ self halt.
+"Modified: / 18.3.1997 / 18:43:26 / cg"
+"Created: / 5.1.1998 / 02:19:09 / cg"
+!
+_WToolkit_makeColorModel:nativeContext
+"/ java.awt.image.ColorModel makeColorModel ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:08:47 / cg"
+!
+_WToolkit_sync:nativeContext
+"/ void sync ()
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:09:14 / cg"
+!
+_WWindowPeer__setResizable:nativeContext
+|view onOff|
+view := self viewForWPeer:nativeContext.
+onOff := (nativeContext argAt:1) == 1.
+view isTopView ifTrue:[
+	onOff ifTrue:[
+	    view minExtent:10@10.
+	    view maxExtent:(Screen current extent).
+	] ifFalse:[
+	    view minExtent:view extent.
+	    view maxExtent:view extent.
+	]
+] ifFalse:[
+	(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
+	    self halt.
+	]
+].
+"/ 'JAVA: WWindowPeer_setResizable: ' print. view print. ' yes/no: ' print. onOff printNL.
+^ nil
+"Created: / 5.1.1998 / 00:57:59 / cg"
+"Modified: / 16.1.1998 / 18:08:00 / cg"
+!
+_WWindowPeer__setTitle:nativeContext
+|view jString string|
+view := self viewForWPeer:nativeContext.
+jString := nativeContext argAt:1.
+string := Java as_ST_String:jString.
+"/ 'JAVA: WWindowPeer_pSetTitle: ' print. string print. ' ' print. view printNL.
+view label:string.
+^ nil
+"Created: / 5.1.1998 / 00:57:17 / cg"
+"Modified: / 8.1.1998 / 17:37:41 / cg"
+!
+_WWindowPeer_create:nativeContext
+"/ void create (sun.awt.windows.WComponentPeer)
+|jWindowPeer jWindow top window pDataIdx|
+jWindowPeer := nativeContext receiver.
+jWindow := jWindowPeer instVarNamed:'target'.
+window := jWindowPeer instVarNamed:'pData'.
+(window notNil and:[window ~~ 0]) ifTrue:[
+	WindowCreationTrace == true ifTrue:[
+	    'JAVA: window view already created: ' infoPrint.
+	    jWindowPeer class name infoPrintCR.
+	].
+] ifFalse:[
+"/ OLD
+"/        window := StandardSystemView new.
+"/        self createdWindowsView:window for:jWindowPeer.
+"/        JavaWindowGroup addTopView:window.
+	window := JavaPopUpView new.
+	window borderWidth:0.
+	window level:0.
+	window delegate:self.
+	window javaPeer:jWindowPeer.
+	self createdWindowsView:window for:jWindowPeer.
+	JavaWindowGroup addTopView:window.
+"/        top := StandardSystemView new.
+"/        window := JavaView origin:0.0@0.0 corner:1.0@1.0 in:top.
+"/        window delegate:self.
+"/        window javaPeer:jWindowPeer.
+"/        self createdWindowsView:window for:jWindowPeer.
+"/        JavaWindowGroup addTopView:top.
+].
+WindowCreationTrace == true ifTrue:[
+	'JAVA: WWindowPeer_create: ' print. jWindowPeer displayString print.
+	' window: ' print. window printNL.
+].
+"Created: / 4.1.1998 / 17:56:39 / cg"
+"Modified: / 4.12.1998 / 17:37:59 / cg"
+!
+_WWindowPeer_getContainerElement:nativeContext
+"/ java.awt.Component getContainerElement (java.awt.Container int)
+UnimplementedNativeMethodSignal raise
+"Created: / 12.11.1998 / 19:10:54 / cg"
+!
+_WWindowPeer_toBack:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+view lower.
+"Created: / 7.5.1998 / 00:23:03 / cg"
+!
+_WWindowPeer_toFront:nativeContext
+|view|
+view := self viewForWPeer:nativeContext.
+view raise.
+"Created: / 9.4.1998 / 22:17:28 / cg"
+!
+_WWindowPeer_updateInsets:nativeContext
+"/ self halt.
+"Modified: / 18.3.1997 / 18:43:18 / cg"
+"Created: / 4.1.1998 / 18:09:04 / cg"
+!
+_Win32Process_create:nativeContext
+"really create a win32 process"
+|env cmd jProcess p inPipe outPipe errorPipe|
+jProcess := nativeContext receiver.
+cmd := nativeContext argAt:1.
+cmd := Java as_ST_String:cmd.
+env := nativeContext argAt:2.
+env notNil ifTrue:[
+	self halt
+].
+self halt.
+p := Win32Process new.
+p command:cmd.
+p environment:env.
+p inStream:inPipe.
+p outStream:outPipe.
+p errorStream:errorPipe.
+p directory:nil.
+p startProcess.
+self halt.
+jProcess instVarNamed:'handle' put:p.
+"Created: / 10.11.1998 / 19:50:31 / cg"
+"Modified: / 10.11.1998 / 21:34:18 / cg"
+!
+_WinNTFileSystem_canonicalize0:aJavaContext
+|  path |
+path := Java as_ST_String: (aJavaContext argAt: 1).
+^(Java as_String: path asFilename asAbsoluteFilename pathName)
+"Created: / 01-04-2011 / 23:00:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_WinNTFileSystem_getBooleanAttributes:aJavaContext
+^ self _UnixFileSystem_getBooleanAttributes0:aJavaContext
+"Created: / 01-04-2011 / 18:10:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_X11FontMetrics_getMFCharSegmentWidth:nativeContext
+"get multi-font string-segment width.
+Not yet supported - use standard strings width"
+|jMetrics jFont jFontDescr stFont w
+bool1 cp offs lenght bp int1|
+jMetrics := nativeContext receiver.
+jFont := nativeContext argAt:1.
+jFontDescr := nativeContext argAt:2.
+cp := nativeContext argAt:3.
+lenght := nativeContext argAt:4.
+stFont := jFont instVarNamed:'pData'.
+(stFont isNil or:[stFont == 0]) ifTrue:[
+self halt
+].
+stFont device isNil ifTrue:[
+stFont := stFont on:Display.
+jFont instVarNamed:'pData' put:stFont.
+].
+w := stFont widthOf:cp from:1 to:lenght.
+^ w.
+!
+_X11FontMetrics_init:nativeContext
+^ self _WFontMetrics_init:nativeContext
+!
+_X11GraphicsDevice_getConfigType:nativeContext
+"/ new with jdk1.2 ...
+|configNr cls|
+"/ for now, only one config.
+configNr := nativeContext argAt:1.
+cls := Java classNamed:'java.awt.GraphicsDevice'.
+^ cls instVarNamed:'TYPE_RASTER_SCREEN'.
+"Created: / 28.1.1998 / 22:19:05 / cg"
+!
+_X11GraphicsDevice_getNumConfigs:nativeContext
+"/ new with jdk1.2 ...
+^ 1
+"Created: / 28.1.1998 / 22:13:26 / cg"
+"Modified: / 28.1.1998 / 22:14:33 / cg"
+!
+_X11GraphicsEnvironment_getNumScreens:nativeContext
+"/ new with jdk1.2 ...
+"/ could return the actual number of screens ...
+^ 1
+"Created: / 28.1.1998 / 01:50:22 / cg"
+"Modified: / 28.1.1998 / 22:12:32 / cg"
+!
+_X11GraphicsEnvironment_initDisplay:nativeContext
+"/ new with jdk1.2 ...
+"Created: / 28.1.1998 / 01:50:22 / cg"
+!
+_X11Graphics_changeClip:nativeContext
+^ self _WGraphics_changeClip:nativeContext
+!
+_X11Graphics_createFromComponent:nativeContext
+^ self _WGraphics_createFromComponent:nativeContext
+!
+_X11Graphics_disposeImpl:nativeContext
+^ self _WGraphics_dispose:nativeContext
+!
+_X11Graphics_drawMFCharsSegment:nativeContext
+^ self _WGraphics_drawMFCharsSegment:nativeContext
+!
+_X11Graphics_drawRect:nativeContext
+^ self _WGraphics_drawRect:nativeContext
+!
+_X11Graphics_fillOval:nativeContext
+^ self _WGraphics_fillOval:nativeContext
+!
+_X11Graphics_fillRect:nativeContext
+^ self _WGraphics_fillRect:nativeContext
+!
+_X11Graphics_pSetFont:nativeContext
+^ self _WGraphics_pSetFont:nativeContext
+!
+_X11Graphics_pSetForeground:nativeContext
+^ self _WGraphics_pSetForeground:nativeContext
+! !
+!JavaVM class methodsFor:'native - old-style (converted)'!
+_AccessController_doPrivileged:aJavaContext
+"Don't care about permissions :-)"
+^(aJavaContext argAt:1) perform: #'run()Ljava/lang/Object;'
+"Created: / 20-10-2010 / 12:31:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_AccessController_getStackAccessControlContext:nativeContext
+"/ introduced with jdk1.2
+"/ supposed to do more here ...
+^ nil
+"Created: / 27.1.1998 / 18:22:15 / cg"
+!
+_Array_newArray:aJavaContext
+|componentClass size|
+componentClass := self reflection
+classForJavaClassObject:(aJavaContext argAt:1).
+size := aJavaContext argAt:2.
+^ componentClass arrayClass new:size
+"Created: / 17-12-2010 / 14:49:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 19-12-2010 / 17:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:18:50 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_ClassLoader_NativeLibrary_load:nativeContext
+"/ introduced with jdk1.2 ... (sigh)
+|nativeLoader jLibName libName libHandle index|
+nativeLoader := nativeContext receiver.
+jLibName := nativeContext argAt:1.
+libName := (Java as_ST_String:jLibName) asFilename baseName.
+(index := SimulatedNativeLibs indexOf:libName) ~~ 0 ifTrue:[
+"/        ('JAVA: builtIn nativeLibLoad simulated: ' , libName) printNL.
+nativeLoader instVarNamed:'handle' put:index.
+^ self "/ void
+].
+(LoadedNativeLibs notNil
+and:[LoadedNativeLibs includesKey:libName]) ifTrue:[
+"/        ('JAVA: native library already loaded: ' , libName) printNL.
+nativeLoader instVarNamed:'handle' put:(LoadedNativeLibs at:libName).
+^ self "/ void
+].
+(self confirm:'permission to load native library: ' , libName , ' ?') ifFalse:[
+^ self
+].
+self halt.
+libName asFilename exists ifFalse:[
+('JAVA: no file to load nativeLib: ' , libName) printNL.
+^ self "/ void
+].
+libHandle := ObjectFileLoader loadLibrary:libName.
+libHandle isNil ifTrue:[
+('JAVA: failed to load nativeLib: ' , libName) printNL.
+^ self "/ void
+].
+LoadedNativeLibs isNil ifTrue:[
+LoadedNativeLibs := Dictionary new.
+].
+LoadedNativeLibs at:libName put:libHandle.
+nativeLoader instVarNamed:'handle' put:(LoadedNativeLibs at:libName).
+^ self "/ void
+"Modified: / 06-02-1998 / 03:12:17 / cg"
+"Created: / 10-12-2010 / 15:11:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_ClassLoader_registerNatives:aJavaContext
+"Nothing to do"
+"Created: / 09-11-2010 / 20:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_desiredAssertionStatus0:aJavaContext
+^AssertionsEnabled == true
+"Created: / 24-11-2010 / 08:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_forName0:aJavaContext
+| name initialize loader class |
+name := Java as_ST_String: (aJavaContext argAt: 1).
+initialize := aJavaContext argAt: 2.
+loader := aJavaContext argAt: 3.
+JavaClassReader classLoaderQuerySignal answer: loader do:
+[class := Java classForName: name].
+class isNil ifTrue:
+[^self throwClassNotFoundException: name].
+initialize ifTrue:
+[[class classInit] on: Error do:[self throwExceptionInInitializerError:name]].
+^JavaVM javaClassObjectForClass: class.
+"Created: / 24-11-2010 / 09:03:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getClassLoader0:aJavaContext
+"get a classes loader"
+|jClass cls loader|
+jClass := aJavaContext receiver.
+cls := self reflection classForJavaClassObject:jClass.
+loader := cls classLoader.
+cls isNil ifTrue:[
+loader := (Java classForName:'java/lang/ClassLoader')
+perform:#'getSystemClassLoader()Ljava/lang/ClassLoader;'.
+"/    ('JAVA: getClassLoader - ' , loader printString) infoPrintCR.
+].
+^ loader
+"Created: / 25-10-2010 / 22:49:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 09-11-2010 / 23:37:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:18:54 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_Class_getComponentType:nativeContext
+|cls|
+cls := self reflection classForJavaClassObject:(nativeContext receiver).
+cls isJavaPrimitiveType ifTrue:[
+self breakPoint:#jv.
+^ nil
+].
+^ self javaClassObjectForClass:cls javaComponentClass
+"Created: / 12-11-1998 / 18:54:46 / cg"
+"Modified: / 20-12-2010 / 22:56:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:18:59 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_Class_getConstantPool:aJavaContext
+| class |
+class := self reflection classForJavaClassObject:aJavaContext receiver.
+^ self reflection javaConstantPoolObjectFor:class constantPool.
+"Created: / 21-12-2010 / 20:00:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-02-2011 / 18:05:13 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_Class_getDeclaredConstructors0:aJavaContext
+|class publicOnly constructors|
+class := self reflection classForJavaClassObject:(aJavaContext receiver).
+publicOnly := (aJavaContext argAt:1) == 1.
+constructors := OrderedCollection new.
+class
+selectorsAndMethodsDo:[:selector :method |
+(method isJavaMethod
+and:[
+(selector at:1) == $<
+and:[
+(selector startsWith:'<init>(') and:[publicOnly not or:[method isPublic]]
+]
+])
+ifTrue:[constructors add:(self reflection javaConstructorObjectForMethod:method)]
+].
+^ (self classForName: 'java.lang.reflect.Constructor')
+arrayClass withAll: constructors
+"Created: / 24-11-2010 / 09:25:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 09-02-2011 / 01:24:03 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 11-02-2011 / 08:55:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getDeclaredFields0:aJavaContext
+|javaClassObject class fields publicOnly|
+class := self reflection classForJavaClassObject:(javaClassObject := aJavaContext argAt:0).
+publicOnly := (aJavaContext argAt:1) == 1.
+fields := class fields.
+publicOnly ifTrue:
+[fields := fields select:[:f|f isPublic]].
+fields := fields collect:[:f | self javaFieldObjectForField:f in:javaClassObject].
+^ (self classForName: 'java.lang.reflect.Field') arrayClass
+withAll:fields
+"Created: / 10-11-2010 / 16:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:19:06 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 16-03-2011 / 15:43:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getDeclaredMethods0:aJavaContext
+|class publicOnly methods|
+class := self reflection classForJavaClassObject:(aJavaContext receiver).
+publicOnly := (aJavaContext argAt:1) == 1.
+methods := OrderedCollection new.
+class
+selectorsAndMethodsDo:[:selector :method |
+(method isJavaMethod
+and:[
+(selector at:1) ~~ $<
+and:[
+(selector startsWith:'<init>(') not
+and:[publicOnly not or:[method isPublic]]
+]
+])
+ifTrue:[methods add:(self javaMethodObjectForMethod:method)]
+].
+^ (self classForName: 'java.lang.reflect.Method')
+arrayClass withAll: methods asArray
+"Created: / 21-12-2010 / 22:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:19:09 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 11-02-2011 / 08:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getInterfaces:nativeContext
+|jClass cls interfaces jInterfaces|
+jClass := nativeContext receiver.
+cls := self reflection classForJavaClassObject:jClass.
+cls isJavaPrimitiveType ifTrue:[
+^ (self classForName:'java.lang.Class') arrayClass new
+].
+interfaces := cls interfaces.
+interfaces ifNil:[^ (self classForName:'java.lang.Class') arrayClass new].
+jInterfaces := (self classForName:'java.lang.Class') arrayClass new:interfaces size.
+interfaces withIndexDo:
+[:iface :idx | jInterfaces at:idx put:(self javaClassObjectForClass:iface)].
+^ jInterfaces
+"Modified: / 28-01-2011 / 15:19:11 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 04-02-2011 / 09:43:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getModifiers:aJavaContext
+^ (self reflection classForJavaClassObject:aJavaContext receiver) accessFlags
+"Created: / 12-11-1998 / 18:54:53 / cg"
+"Modified: / 26-11-2010 / 10:25:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:19:14 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_Class_getName0:aJavaContext
+|class|
+class := aJavaContext receiver.
+class := self reflection classForJavaClassObject:aJavaContext receiver.
+^ self reflection
+javaStringObjectForString:class javaName
+interned:true.
+"Created: / 22-11-2010 / 17:50:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 09-02-2011 / 01:06:53 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 25-02-2011 / 19:00:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getPrimitiveClass:nativeContext
+"get a primitive class by name"
+|jClassName className|
+jClassName := nativeContext argAt:1.
+className := Java as_ST_String:jClassName.
+(JavaDescriptor baseTypesByTypeName keys includes: className)
+ifFalse:[self throwClassNotFoundException:className].
+^self reflection javaClassObjectForClassNamed: className
+"Created: / 04-01-1998 / 00:46:03 / cg"
+"Modified: / 28-01-2011 / 15:30:45 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 03-02-2011 / 21:43:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getRawAnnotations:aJavaContext
+|class |
+class := self reflection classForJavaClassObject:aJavaContext receiver.
+^ class runtimeVisibleAnnotationsAsBytesOrNil
+"Created: / 21-12-2010 / 19:35:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:19:20 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 25-02-2011 / 16:48:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_getSuperclass:nativeContext
+"return a classes superclass"
+|jClass cls superCls|
+jClass := nativeContext receiver.
+cls := self reflection classForJavaClassObject:jClass.
+superCls := cls superclass.
+superCls == JavaObject ifTrue:[
+^ nil.
+].
+^ self javaClassObjectForClass:superCls
+"Created: / 12-01-1998 / 12:38:36 / cg"
+"Modified: / 04-02-1998 / 14:51:22 / cg"
+"Modified: / 28-01-2011 / 14:12:47 / Marcel Hlopko <hlopik@gmail.com>"
+"Modified: / 03-02-2011 / 22:53:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Class_isArray:nativeContext
+^ (self reflection classForJavaClassObject:nativeContext receiver) isJavaArrayClass
+ifTrue:[1]
+ifFalse:[0]
+"Created: / 12-11-1998 / 18:54:24 / cg"
+"Modified: / 20-12-2010 / 23:20:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 28-01-2011 / 15:19:24 / Marcel Hlopko <hlopik@gmail.com>"
+!
+_Class_isAssignableFrom:nativeContext
+"
+/**
+* Determines if the class or interface represented by this
+* {@code Class} object is either the same as, or is a superclass or
+* superinterface of, the class or interface represented by the specified
+* {@code Class} parameter. It returns {@code true} if so;
+* otherwise it returns {@code false}. If this {@code Class}
+* object represents a primitive type, this method returns
+* {@code true} if the specified {@code Class} parameter is
+* exactly this {@code Class} object; otherwise it returns
+* {@code false}.
+*
+* <p> Specifically, this method tests whether the type represented by the
+* specified {@code Class} parameter can be converted to the type
+* represented by this {@code Class} object via an identity conversion
+* or via a widening reference conversion. See <em>The Java Language
+* Specification</em>, sections 5.1.1 and 5.1.4 , for details.
+*
+* @param cls the {@code Class} object to be checked
+* @return the {@code boolean} value indicating whether objects of the
+* type {@code cls} can be assigned to objects of this class
+* @exception NullPointerException if the specified Class parameter is
+*            null.
+* @since JDK1.1
+*/
+"
+| clsObj me other |
+clsObj := nativeContext argAt: 1.
+clsObj ifNil:[^self throwNullPointerException].
+me := self reflection classForJavaClassObject: nativeContext receiver.
+other := self reflection classForJavaClassObject: clsObj.
+"/    Determines if the class or interface represented by this
+"/    @code Class} object is either the same as, or is a superclass or
+"/    superinterface of, the class or interface represented by the specified
+"/    {@code Class} parameter.
+^(other includesBehavior: me)
+ifTrue:[1]
+ifFalse:[0]
+"Created: / 12-11-1998 / 18:54:16 / cg"
+"Modified: / 05-02-2011 / 23:38:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _Class_isInstance:nativeContext
 "
 /**
 ^self _INSTANCEOF:obj _:cls
 "Modified: / 09-02-1998 / 14:56:23 / cg"
 "Modified: / 28-01-2011 / 14:12:42 / Marcel Hlopko <hlopik@gmail.com>"
 "Modified: / 25-02-2011 / 18:37:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_newInstance:nativeContext
-"get an instance for a java.lang.Class"
-|jClass cls newInst|
-jClass := nativeContext receiver.
-cls := self reflection javaClassObjectForClass:jClass.
-cls classInit.
-newInst := cls newCleared.
-newInst perform:#'<init>()V'.
-^ newInst
-"Created: / 02-01-1998 / 22:41:38 / cg"
-"Modified: / 15-01-1998 / 00:57:37 / cg"
-"Modified: / 28-01-2011 / 14:12:25 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_Class_setSigners:nativeContext
-UnimplementedNativeMethodSignal raiseRequest
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:55:08 / cg"
-!
-_ColorModel_deletepData:nativeContext
-"/ void deletepData ()
-UnimplementedNativeMethodSignal raiseRequest
-"Created: / 12.11.1998 / 19:22:05 / cg"
-!
-_ColorModel_initIDs:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 28.1.1998 / 22:19:23 / cg"
-!
-_Color_initIDs:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 28.1.1998 / 22:19:23 / cg"
-!
-_Component_initIDs:nativeContext
-"/ introduced with jdk1.2 ... (sigh)
-"Created: / 27.1.1998 / 19:53:29 / cg"
-!
-_ConstantPool_getDoubleAt0:nativeContext
-| cpool  index  double |
-cpool := self reflection constantPoolFor:(nativeContext receiver).
-self breakPoint:#mh.
-index := nativeContext at:3.
-"TODO: why 3?"
-double := cpool at:index.
-self assert:double isFloat description:'Not a float constant!!'.
-^ double
-"Modified: / 25-02-2011 / 18:40:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Created: / 28-02-2011 / 17:24:17 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_ConstantPool_getIntAt0:nativeContext
-| cpool  index  int |
-cpool := self reflection constantPoolFor:(nativeContext receiver).
-index := nativeContext at:3.
-"TODO: why 3?"
-int := cpool at:index.
-self assert:int isInteger description:'Not an integer constant!!'.
-^ int
-"Modified: / 25-02-2011 / 18:40:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Created: / 28-02-2011 / 17:28:10 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_ConstantPool_getLongAt0:nativeContext
-| cpool  index  long |
-cpool := self reflection constantPoolFor:(nativeContext receiver).
-index := nativeContext at:3.
-"TODO: why 3?"
-long := cpool at:index.
-self assert:long isInteger description:'Not a float constant!!'.
-^ long
-"Modified: / 28-02-2011 / 17:40:02 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 28-02-2011 / 18:54:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_ConstantPool_getUTF8At0: nativeContext
-| cpool index string |
-cpool := self reflection constantPoolFor: (nativeContext receiver).
-index := nativeContext at: 3.
-"TODO: why 3?"
-string := cpool at: index.
-self assert: string isString description: 'Not an UTF8 constant!!'.
-^Java as_String: string
-"Created: / 06-02-2011 / 12:56:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Constructor_getModifiers:nativeContext
-"/ int getModifiers ()
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 02:54:38 / cg"
-!
-_Constructor_newInstance:nativeContext
-"/ java.lang.Object newInstance (java.lang.Object[])
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-!
-_Double_doubleToLongBits:nativeContext
-|f i|
-f := nativeContext argAt:1.
-UninterpretedBytes isBigEndian ifTrue:[
-	i := f basicAt:8.
-	i := i bitOr:((f basicAt:7) bitShift:8).
-	i := i bitOr:((f basicAt:6) bitShift:16).
-	i := i bitOr:((f basicAt:5) bitShift:24).
-	i := i bitOr:((f basicAt:4) bitShift:32).
-	i := i bitOr:((f basicAt:3) bitShift:40).
-	i := i bitOr:((f basicAt:2) bitShift:48).
-	i := i bitOr:((f basicAt:1) bitShift:56).
-] ifFalse:[
-	i := f basicAt:1.
-	i := i bitOr:((f basicAt:2) bitShift:8).
-	i := i bitOr:((f basicAt:3) bitShift:16).
-	i := i bitOr:((f basicAt:4) bitShift:24).
-	i := i bitOr:((f basicAt:5) bitShift:32).
-	i := i bitOr:((f basicAt:6) bitShift:40).
-	i := i bitOr:((f basicAt:7) bitShift:48).
-	i := i bitOr:((f basicAt:8) bitShift:56).
-].
-^ i.
-"Created: / 4.1.1998 / 01:39:12 / cg"
-!
-_Double_longBitsToDouble:nativeContext
-|i aFloat|
-i := nativeContext argAt:1.
-aFloat := Float new.
-UninterpretedBytes isBigEndian ifTrue:[
-	aFloat basicAt:1 put:((i bitShift:-56) bitAnd:16rFF).
-	aFloat basicAt:2 put:((i bitShift:-48) bitAnd:16rFF).
-	aFloat basicAt:3 put:((i bitShift:-40) bitAnd:16rFF).
-	aFloat basicAt:4 put:((i bitShift:-32) bitAnd:16rFF).
-	aFloat basicAt:5 put:((i bitShift:-24) bitAnd:16rFF).
-	aFloat basicAt:6 put:((i bitShift:-16) bitAnd:16rFF).
-	aFloat basicAt:7 put:((i bitShift:-8) bitAnd:16rFF).
-	aFloat basicAt:8 put:(i bitAnd:16rFF).
-] ifFalse:[
-	aFloat basicAt:1 put:(i bitAnd:16rFF).
-	aFloat basicAt:2 put:((i bitShift:-8) bitAnd:16rFF).
-	aFloat basicAt:3 put:((i bitShift:-16) bitAnd:16rFF).
-	aFloat basicAt:4 put:((i bitShift:-24) bitAnd:16rFF).
-	aFloat basicAt:5 put:((i bitShift:-32) bitAnd:16rFF).
-	aFloat basicAt:6 put:((i bitShift:-40) bitAnd:16rFF).
-	aFloat basicAt:7 put:((i bitShift:-48) bitAnd:16rFF).
-	aFloat basicAt:8 put:((i bitShift:-56) bitAnd:16rFF).
-].
-^ aFloat.
-"Created: / 4.1.1998 / 01:45:00 / cg"
-!
-_Double_valueOf0:nativeContext
-|s d|
-s := nativeContext argAt:1.
-s notNil ifTrue:[
-	s := Java as_ST_String:s.
-	d := Float readFrom:s onError:nil.
-].
-d isNil ifTrue:[
-	self throwNumberFormatException.
-	"/ not reached
-].
-^ d
-"Modified: / 8.8.1997 / 12:03:55 / cg"
-"Created: / 7.1.1998 / 11:09:43 / cg"
-!
-_Field_get:nativeContext
-"/ java.lang.Object get (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:04:18 / cg"
-!
-_Field_getBoolean:nativeContext
-"/ boolean getBoolean (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:05:16 / cg"
-!
-_Field_getByte:nativeContext
-"/ byte getByte (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:05:30 / cg"
-!
-_Field_getChar:nativeContext
-"/ char getChar (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:03:37 / cg"
-!
-_Field_getDouble:nativeContext
-"/ double getDouble (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:07:49 / cg"
-!
-_Field_getFloat:nativeContext
-"/ float getFloat (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:05:41 / cg"
-!
-_Field_getInt:nativeContext
-"/ int getInt (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:04:47 / cg"
-!
-_Field_getLong:nativeContext
-"/ long getLong (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:05:54 / cg"
-!
-_Field_getModifiers:nativeContext
-"/ int getModifiers ()
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:07:03 / cg"
-!
-_Field_getShort:nativeContext
-"/ unsigned short getShort (java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:07:35 / cg"
-!
-_Field_set:nativeContext
-"/ void set (java.lang.Object java.lang.Object)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:04:33 / cg"
-!
-_Field_setBoolean:nativeContext
-"/ void setBoolean (java.lang.Object boolean)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:06:06 / cg"
-!
-_Field_setByte:nativeContext
-"/ void setByte (java.lang.Object byte)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:06:20 / cg"
-!
-_Field_setChar:nativeContext
-"/ void setChar (java.lang.Object char)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:03:48 / cg"
-!
-_Field_setDouble:nativeContext
-"/ void setDouble (java.lang.Object double)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:04:02 / cg"
-!
-_Field_setFloat:nativeContext
-"/ void setFloat (java.lang.Object float)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:06:48 / cg"
-!
-_Field_setInt:nativeContext
-"/ void setInt (java.lang.Object int)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:05:04 / cg"
-!
-_Field_setLong:nativeContext
-"/ void setLong (java.lang.Object long)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:06:37 / cg"
-!
-_Field_setShort:nativeContext
-"/ void setShort (java.lang.Object unsigned short)
-UnimplementedNativeMethodSignal raiseRequest.
-"Modified: / 27.1.2000 / 02:53:55 / cg"
-"Created: / 27.1.2000 / 03:03:23 / cg"
-!
-_FileDescriptor_initSystemFD:nativeContext
-|descriptor fileNo idx myStream|
-descriptor := nativeContext argAt:1.
-fileNo := nativeContext argAt:2.
-fileNo == 0 ifTrue:[
-	myStream := Stdin
-] ifFalse:[
-	fileNo == 1 ifTrue:[
-	   myStream := JavaConsoleStream ? Stdout
-	] ifFalse:[
-	    fileNo == 2 ifTrue:[
-		myStream := JavaConsoleStream ? Stderr
-	    ] ifFalse:[
-		self halt:'invalid fileNo given'.
-		self internalError:'invalid fileNo given'.
-	    ]
-	]
-].
-self setOpenFile:myStream at:fileNo.
-descriptor instVarNamed:'fd' put:fileNo.
-^ descriptor
-"Modified: / 27.1.1998 / 18:15:28 / cg"
-!
-_FileDescriptor_sync:nativeContext
-"/ void sync ()
-UnimplementedNativeMethodSignal raiseRequest
-"Modified: / 12.11.1998 / 18:57:39 / cg"
-"Created: / 12.11.1998 / 19:26:25 / cg"
-!
-_FileDescriptor_valid:nativeContext
-"/ boolean valid ()
-|descriptor fileNo stream|
-descriptor := nativeContext receiver.
-fileNo := descriptor instVarNamed:'fd'.
-stream := self getOpenFileAt:fileNo.
-stream isNil ifTrue:[^ 0]. "/ FALSE
-stream isOpen ifFalse:[^ 0].  "/ FALSE
-^ 1 "/ TRUE
-"Modified: / 11.12.1998 / 13:02:47 / cg"
-!
-_FileInputStream_available:nativeContext
-|file|
-file := self validateFile:(nativeContext receiver).
-file isNil ifTrue:[
-	self throwIOExceptionWithMessage:'invalid fileNo in available'.
-	^ self
-].
-file == Stdin ifTrue:[
-	file := StdinReplacementFileQuerySignal raiseRequest.
-	file isNil ifTrue:[
-	    ^ 1
-	]
-].
-file isFileStream ifTrue:[
-	^ file size - file position + 1
-].
-file atEnd ifTrue:[
-	^ 0.
-].
-self halt.
-^ 1
-"Modified: / 14.1.1998 / 15:12:52 / cg"
-!
-_FileInputStream_close:nativeContext
-^ self anyStream_close:nativeContext
-"Created: / 4.1.1998 / 17:45:23 / cg"
-"Modified: / 4.2.1998 / 15:20:46 / cg"
-!
-_FileInputStream_open:nativeContext
-|fs fd fn name stream fileNo|
-fs := nativeContext receiver.
-fd := fs instVarNamed:'fd'.
-(fileNo := fd instVarNamed:'fd') ~~ 0 ifTrue:[
-	fileNo ~~ -1 ifTrue:[
-	    self halt:'file already open'.
-	    self internalError:'file already open'.
-	    ^ self.
-	]
-].
-name := nativeContext argAt:1.
-name := Java as_ST_String:name.
-name := self fixFilename:name.
-FileOpenTrace ifTrue:[
-	('JAVA: opening ' , name) infoPrintCR.
-].
-stream := self fileStreamForReading:name.
-stream isNil ifTrue:[
-	FileOpenTrace ifTrue:[
-	    ('JAVA: failed to open ''' , name , ''' for reading.') infoPrintCR.
-	].
-	self throwIOExceptionWithMessage:('cannot open ' , name , ' for reading').
-	^ self.
-].
-stream buffered:false.
-"/    FileOpenConfirmation ifTrue:[
-"/        (self confirm:('JAVA Security check\\Opening ''' , name , ''' for reading.\Grant permission ?') withCRs)
-"/        ifFalse:[
-"/            self throwIOExceptionWithMessage:('no permission to open ' , name , ' for reading').
-"/            ^ self
-"/        ]
-"/    ].
-fileNo := self addOpenFile:stream.
-FileOpenTrace ifTrue:[
-	('JAVA: opened ' , name , ' as FD ' , fileNo printString) infoPrintCR.
-].
-fd instVarNamed:'fd' put:fileNo.
-"Created: / 4.1.1998 / 16:47:12 / cg"
-"Modified: / 28.1.1999 / 17:24:07 / cg"
-!
-_FileInputStream_read:nativeContext
-|file byte|
-file := self validateFile:(nativeContext receiver).
-file == Stdin ifTrue:[
-	file := StdinReplacementFileQuerySignal raiseRequest.
-	file isNil ifTrue:[
-	    ^ -1
-	]
-].
-FileIOTrace ifTrue:[
-	('JAVA: read 1 byte from ' , file pathName) infoPrintCR.
-].
-byte := file nextByte.
-byte isNil ifTrue:[
-	^ -1
-].
-^ byte
-"Created: / 5.1.1998 / 02:17:08 / cg"
-"Modified: / 5.1.1998 / 02:17:25 / cg"
-!
-_FileInputStream_readBytes:nativeContext
-^ self anyStream_readBytes:nativeContext
-"Modified: / 4.2.1998 / 15:23:08 / cg"
-!
-_FileInputStream_skip:nativeContext
-"/ long skip (long)
-|file nSkip nSkipped|
-file := self validateFile:(nativeContext receiver).
-nSkip := nativeContext argAt:1.
-file == Stdin ifTrue:[
-	file := StdinReplacementFileQuerySignal raiseRequest.
-	file isNil ifTrue:[
-	    ^ -1
-	]
-].
-FileIOTrace ifTrue:[
-	(('JAVA: skip %1 byte(s) from ' bindWith:nSkip printString) , file pathName) infoPrintCR.
-].
-file skip:nSkip.
-^ nSkip
-"Modified: / 27.1.1999 / 20:36:11 / cg"
-!
-_FileOutputStream_close:nativeContext
-^ self anyStream_close:nativeContext
-"Created: / 13.1.1998 / 09:33:16 / cg"
-"Modified: / 4.2.1998 / 15:20:53 / cg"
-!
-_FileOutputStream_open:nativeContext
-^ self commonOpen:nativeContext forAppend:false
-"Modified: / 7.4.1998 / 19:14:31 / cg"
-!
-_FileOutputStream_openAppend:nativeContext
-^ self commonOpen:nativeContext forAppend:true
-"Modified: / 7.4.1998 / 19:13:42 / cg"
-!
-_File_canRead0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	path := Java as_ST_String:path.
-	FileAccessTrace == true ifTrue:[
-	    path storeString print. ' ' print. thisContext printCR
-	].
-	path := self fixFilename:path.
-	(f := path asFilename) isReadable ifTrue:[
-	    ^ 1 "/ TRUE
-	]
-].
-^ 0 "/ FALSE
-"Created: / 4.1.1998 / 18:09:55 / cg"
-"Modified: / 27.1.1999 / 18:57:55 / cg"
-!
-_File_canWrite0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	FileAccessTrace == true ifTrue:[
-	    path storeString print. ' ' print. thisContext printCR
-	].
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	(f := path asFilename) isWritable ifTrue:[
-	    ^ 1 "/ TRUE
-	]
-].
-^ 0 "/ FALSE
-"Created: / 4.2.1998 / 00:19:55 / cg"
-"Modified: / 27.1.1999 / 18:57:52 / cg"
-!
-_File_canonPath:nativeContext
-"/ introduced with jdk1.2 ... (sigh)
-|jPath path realPath|
-jPath := nativeContext argAt:1.
-jPath isNil ifTrue:[^ jPath].
-path := Java as_ST_String:jPath.
-realPath := path asFilename pathName.
-^ Java as_String:realPath
-"Created: / 27.1.1998 / 18:35:58 / cg"
-"Modified: / 27.1.1998 / 21:36:03 / cg"
-!
-_File_delete0:nativeContext
-"/ boolean delete0 ()
-|oldFile oldPath oldF|
-oldFile := nativeContext receiver.
-oldPath := oldFile instVarNamed:'path'.
-oldPath isNil ifTrue:[^ 0].    "/ FALSE
-oldPath := Java as_ST_String:oldPath.
-oldF := oldPath asFilename.
-oldF exists ifFalse:[
-	^ 1 "/ TRUE
-].
-(self checkWritePermissionOfDirectory:oldF directory message:('JAVA Security check\\Delete of ''' , oldPath , '''.\Grant permission ?'))
-ifFalse:[
-	^ 0 "/ FALSE
-].
-OperatingSystem accessDeniedErrorSignal handle:[:ex |
-	^ 0 "/ FALSE
-] do:[
-	oldF delete.
-	^ 1 "/ TRUE
-].
-^ 0 "/ FALSE
-"Modified: / 30.12.1998 / 20:15:06 / cg"
-!
-_File_exists0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	FileAccessTrace == true ifTrue:[
-	    path storeString print. ' ' print. thisContext printCR
-	].
-	(f := path asFilename) exists ifTrue:[
-	    ^ 1 "TRUE"
-	]
-].
-^ 0 "FALSE"
-"Created: / 5.1.1998 / 02:07:48 / cg"
-"Modified: / 27.1.1999 / 18:57:46 / cg"
-!
-_File_initIDs:nativeContext
-"/ introduced with jdk1.2 ... (sigh)
-"Created: / 27.1.1998 / 18:25:19 / cg"
-!
-_File_isAbsolute:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	(f := path asFilename) isAbsolute ifTrue:[
-	    ^ 1 "/ TRUE
-	]
-].
-^ 0 "/ FALSE
-"Created: / 11.1.1998 / 09:54:38 / cg"
-"Modified: / 20.10.1998 / 20:59:53 / cg"
-!
-_File_isDirectory0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	FileAccessTrace == true ifTrue:[
-	    path storeString print. ' ' print. thisContext printCR
-	].
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	(f := path asFilename) exists ifTrue:[
-	    f isDirectory ifTrue:[^ 1 "TRUE"]
-	]
-].
-^ 0 "FALSE"
-"Created: / 7.1.1998 / 10:31:37 / cg"
-"Modified: / 27.1.1999 / 18:58:01 / cg"
-!
-_File_isFile0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	FileAccessTrace == true ifTrue:[
-	    path storeString print. ' ' print. thisContext printCR
-	].
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	(f := path asFilename) exists ifTrue:[
-	    f isDirectory ifFalse:[^ 1 "TRUE"]
-	]
-].
-^ 0 "/ FALSE
-"Created: / 11.1.1998 / 11:40:22 / cg"
-"Modified: / 27.1.1999 / 18:58:04 / cg"
-!
-_File_lastModified0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	(f := path asFilename) exists ifTrue:[
-	    ^ f modificationTime getMilliseconds.
-	]
-].
-^ 0
-"Created: / 4.2.1998 / 16:50:30 / cg"
-"Modified: / 20.10.1998 / 21:00:05 / cg"
-!
-_File_length0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	FileAccessTrace == true ifTrue:[
-	    thisContext printCR
-	].
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	(f := path asFilename) exists ifTrue:[
-	    ^ f fileSize
-	]
-].
-^ -1
-"Created: / 7.1.1998 / 12:18:57 / cg"
-"Modified: / 27.1.1999 / 18:57:06 / cg"
-!
-_File_list0:nativeContext
-|file path f files|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	(f := path asFilename) exists ifTrue:[
-	    f isDirectory ifTrue:[
-		files := f directoryContents asArray.
-		files := files collect:[:nm | Java as_String:nm].
-		^ files
-	    ]
-	]
-].
-^ nil
-"Created: / 14.1.1998 / 21:30:22 / cg"
-"Modified: / 20.10.1998 / 21:00:21 / cg"
-!
-_File_mkdir0:nativeContext
-|file path f|
-file := nativeContext receiver.
-path := file instVarNamed:'path'.
-path notNil ifTrue:[
-	path := Java as_ST_String:path.
-	path := self fixFilename:path.
-	f := path asFilename.
-	(f exists and:[f isDirectory]) ifTrue:[
-	    ^ 0 "/ FALSE
-	].
-	FileOpenConfirmation ifTrue:[
-	    (self confirm:('JAVA Security check\\Create directory ''' , path , '''.\Grant permission ?') withCRs)
-	    ifFalse:[
-		^ 0 "/ FALSE
-	    ]
-	].
-	OperatingSystem accessDeniedErrorSignal handle:[:ex |
-	    ^ 0 "/ FALSE
-	] do:[
-	    f makeDirectory.
-	].
-	f  exists ifTrue:[
-	    f isDirectory ifTrue:[^ 1 "TRUE"]
-	]
-].
-^ 0 "FALSE"
-"Created: / 4.2.1998 / 00:19:05 / cg"
-"Modified: / 4.12.1998 / 14:04:03 / cg"
-!
-_File_renameTo0:nativeContext
-"/ void renameTo0 (java.io.File)
-|oldFile newFile oldPath newPath oldF newF|
-oldFile := nativeContext receiver.
-oldPath := oldFile instVarNamed:'path'.
-oldPath isNil ifTrue:[^ 0].    "/ FALSE
-oldPath := Java as_ST_String:oldPath.
-oldF := oldPath asFilename.
-newFile := nativeContext argAt:1.
-newPath := newFile instVarNamed:'path'.
-newPath isNil ifTrue:[^ 0].    "/ FALSE
-newPath := Java as_ST_String:newPath.
-newF := newPath asFilename.
-(self checkWritePermissionOfDirectory:oldF directory message:('JAVA Security check\\Rename of ''' , oldPath , ''' to ''' , newPath , '''.\Grant permission ?'))
-ifFalse:[
-	^ 0 "/ FALSE
-].
-oldF directory pathName ~= newF directory pathName ifTrue:[
-	(self checkWritePermissionOfDirectory:newF directory message:('JAVA Security check\\Rename of ''' , oldPath , ''' to ''' , newPath , '''.\Grant permission ?'))
-	ifFalse:[
-	    ^ 0 "/ FALSE
-	].
-].
-OperatingSystem accessDeniedErrorSignal handle:[:ex |
-	^ 0 "/ FALSE
-] do:[
-	oldF renameTo:newF.
-	^ 1 "/ TRUE
-].
-^ 0 "/ FALSE
-"Modified: / 3.12.1998 / 21:01:08 / cg"
-!
-_File_rmdir0:nativeContext
-"/ boolean rmdir0 ()
-UnimplementedNativeMethodSignal raiseRequest
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:03:52 / cg"
-!
-_Float_floatToIntBits:nativeContext
-|f i|
-f := nativeContext argAt:1.
-UninterpretedBytes isBigEndian ifTrue:[
-	i := f basicAt:4.
-	i := i bitOr:((f basicAt:3) bitShift:8).
-	i := i bitOr:((f basicAt:2) bitShift:16).
-	i := i bitOr:((f basicAt:1) bitShift:24).
-] ifFalse:[
-	i := f basicAt:1.
-	i := i bitOr:((f basicAt:2) bitShift:8).
-	i := i bitOr:((f basicAt:3) bitShift:16).
-	i := i bitOr:((f basicAt:4) bitShift:24).
-].
-^ i.
-"Created: / 4.1.1998 / 01:25:50 / cg"
-!
-_Float_intBitsToFloat:nativeContet
-|i aFloat|
-i := nativeContet argAt:1.
-aFloat := ShortFloat basicNew.
-UninterpretedBytes isBigEndian ifTrue:[
-	aFloat basicAt:1 put:((i bitShift:-24) bitAnd:16rFF).
-	aFloat basicAt:2 put:((i bitShift:-16) bitAnd:16rFF).
-	aFloat basicAt:3 put:((i bitShift:-8) bitAnd:16rFF).
-	aFloat basicAt:4 put:(i bitAnd:16rFF).
-] ifFalse:[
-	aFloat basicAt:1 put:(i bitAnd:16rFF).
-	aFloat basicAt:2 put:((i bitShift:-8) bitAnd:16rFF).
-	aFloat basicAt:3 put:((i bitShift:-16) bitAnd:16rFF).
-	aFloat basicAt:4 put:((i bitShift:-24) bitAnd:16rFF).
-].
-^ aFloat.
-"Created: / 13.1.1998 / 23:03:36 / cg"
-"Modified: / 13.1.1998 / 23:05:01 / cg"
-!
-_FontDescriptor_initIDs:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 28.1.1998 / 22:30:52 / cg"
-!
-_Font_initIDs:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 27.1.1998 / 21:43:25 / cg"
-!
-_GifImageDecoder_parseImage:nativeContext
-|decoder width height bool1 depth subHdrBytes dstBytes i1 i2 colorModel
-stream byte compressedData compressedSize index count data
-leftOffs topOffs codeLen flags pixelStore clrModel t buffSize
-countGot countGot2|
-decoder := nativeContext receiver.
-i1 := nativeContext argAt:1.
-i2 := nativeContext argAt:2.
-width := nativeContext argAt:3.
-height := nativeContext argAt:4.
-bool1 := nativeContext argAt:5.
-depth := nativeContext argAt:6.
-subHdrBytes := nativeContext argAt:7.
-dstBytes := nativeContext argAt:8.
-colorModel := nativeContext argAt:9.
-leftOffs := subHdrBytes wordAt:1 MSB:false.
-topOffs := subHdrBytes wordAt:3 MSB:false.
-width := subHdrBytes wordAt:5 MSB:false.
-height := subHdrBytes wordAt:7 MSB:false.
-flags := subHdrBytes at:9.
-codeLen := subHdrBytes at:10.
-stream := decoder instVarNamed:'input'.
-pixelStore := decoder instVarNamed:'store'.
-pixelStore isNil ifTrue:[
-	^ 0
-].
-buffSize := (width * height // 2) max:4096.
-compressedData := ByteArray uninitializedNew:buffSize.
-"get compressed data"
-index := 1.
-count := stream perform:#'read()I'.
-[count notNil and:[count > 0]] whileTrue:[
-	(index + count) > buffSize ifTrue:[
-	    t := ByteArray uninitializedNew:(buffSize * 2).
-	    t replaceFrom:1 to:buffSize with:compressedData startingAt:1.
-	    compressedData := t.
-	    buffSize := buffSize * 2.
-	].
-	[count ~~ 0] whileTrue:[
-	    countGot := stream
-			perform:#'read([BII)I'
-			with:compressedData
-			with:index-1
-			with:count.
-	    countGot > 0 ifTrue:[
-		count := count - countGot.
-		index := index + countGot.
-	    ] ifFalse:[
-		count := -1.
-	    ]
-	].
-	count >= 0 ifTrue:[
-	    count := stream perform:#read.
-	]
-].
-compressedSize := index - 1.
-data := pixelStore perform:#'allocateLines(I)Ljava/lang/Object;' with:height.
-(data isMemberOf:ByteArray) ifFalse:[
-	self halt.
-	^ 0.
-].
-"/    'GIFReader: decompressing ...' infoPrintCR.
-GIFReader
-	decompressGIFFrom:compressedData
-	count:compressedSize
-	into:data
-	startingAt:1
-	codeLen:(codeLen + 1).
-clrModel := pixelStore instVarNamed:'colormodel'.
-pixelStore
-	perform:#'setPixels(IIII[BII)Z'
-	withArguments:
-	    (Array
-		with:0        "/ x
-		with:0        "/ y
-		with:width    "/ w
-		with:height   "/ h
-		with:data
-		with:0        "/ offs
-		with:width).   "/ scanSize
-pixelStore  perform:#'imageComplete()V'.
-"/        perform:#'imageComplete(I)V'
-"/        with:((Java at:'java.awt.image.ImageConsumer') instVarNamed:'STATICIMAGEDONE').
-"/ self internalError:'breakPoint'.
-^ 1 "/ true
-"Modified: / 10.4.1998 / 14:31:59 / cg"
-!
-_ImageRepresentation_disposeImage:nativeContext
-|imgRep img|
-imgRep := nativeContext receiver.
-img := imgRep instVarNamed:'pData'.
-(img notNil and:[img ~~ 0]) ifTrue:[
-	ImageStretchCache notNil ifTrue:[
-	    ImageStretchCache removeKey:img ifAbsent:nil.
-	]
-].
-imgRep instVarNamed:'pData' put:0.
-"/    self halt.
-"Created: / 7.1.1998 / 22:31:46 / cg"
-"Modified: / 17.1.1998 / 13:26:55 / cg"
-!
-_ImageRepresentation_finish:nativeContext
-|imgRep bool|
-imgRep := nativeContext receiver.
-bool := nativeContext argAt:1.
-"/ self halt.
-"/    'JAVA: ImageRepresentation_finish ignored for now' infoPrintCR.
-^ 1 "/ true
-"Created: / 8.1.1998 / 00:11:40 / cg"
-"Modified: / 6.2.1998 / 02:12:54 / cg"
-!
-_ImageRepresentation_imageDraw:nativeContext
-|imgRep x y img deviceImage jGraphics gc clr|
-imgRep := nativeContext receiver.
-img := imgRep instVarNamed:'pData'.
-(img isNil or:[img == 0]) ifTrue:[
-	"/ self halt.
-	^ self.
-].
-jGraphics := nativeContext argAt:1.
-gc := jGraphics instVarNamed:'pData'.
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:2.
-y := nativeContext argAt:3.
-clr := nativeContext argAt:4.
-deviceImage := img onDevice:gc device.
-deviceImage ~~ img ifTrue:[
-	imgRep instVarNamed:'pData' put:deviceImage.
-].
-gc realized ifFalse:[^ self].
-deviceImage displayOn:gc x:x y:y.
-^ 1.
-"Created: / 13.1.1998 / 13:32:28 / cg"
-"Modified: / 25.11.1998 / 15:36:38 / cg"
-!
-_ImageRepresentation_imageStretch:nativeContext
-|imgRep x1 y1 x2 y2 srcX1 srcY1 w h
-img deviceImage jGraphics gc clr stretchWidth stretchHeight|
-imgRep := nativeContext receiver.
-img := imgRep instVarNamed:'pData'.
-(img isNil or:[img == 0]) ifTrue:[
-	"/ self halt.
-	^ self.
-].
-jGraphics := nativeContext argAt:1.
-gc := jGraphics instVarNamed:'pData'.
-gc realized ifFalse:[^ self].
-x1 := nativeContext argAt:2.
-y1 := nativeContext argAt:3.
-x2 := nativeContext argAt:4.
-y2:= nativeContext argAt:5.
-srcX1 := nativeContext argAt:6.
-srcY1 := nativeContext argAt:7.
-w := nativeContext argAt:8.
-h := nativeContext argAt:9.
-clr := nativeContext argAt:10.
-(srcX1 ~~ 0 or:[srcY1 ~~ 0]) ifTrue:[
-	self halt.
-	^ self.
-].
-(w ~~ img width or:[h ~~ img height]) ifTrue:[
-	self halt.
-	^ self
-].
-"/ TODO: remember magnified images somewhere for a while,
-"/ to avoid repeated action ...
-stretchWidth := (x2-x1).
-stretchHeight := (y2-y1).
-(stretchWidth == img width
-and:[stretchHeight == img height]) ifTrue:[
-	deviceImage := img onDevice:gc device.
-	deviceImage ~~ img ifTrue:[
-	    imgRep instVarNamed:'pData' put:deviceImage.
-	].
-] ifFalse:[
-	ImageStretchCache notNil ifTrue:[
-	    deviceImage := ImageStretchCache at:img ifAbsent:nil.
-	].
-	(deviceImage isNil
-	or:[deviceImage width ~~ stretchWidth
-	or:[deviceImage height ~~ stretchHeight]]) ifTrue:[
-	    deviceImage := (img magnifiedTo:stretchWidth@stretchHeight) onDevice:gc device.
-	    ImageStretchCache isNil ifTrue:[
-		ImageStretchCache := WeakIdentityDictionary new.
-	    ].
-	    ImageStretchCache at:img put:deviceImage
-	].
-].
-deviceImage displayOn:gc x:x1 y:y1
-"Created: / 13.1.1998 / 13:32:28 / cg"
-"Modified: / 15.1.1998 / 13:14:47 / cg"
-!
-_ImageRepresentation_offscreenInit:nativeContext
-|imgRep jclr w h form screenDevice|
-imgRep := nativeContext receiver.
-jclr := nativeContext argAt:1.
-w := imgRep instVarNamed:'width'.
-h := imgRep instVarNamed:'height'.
-screenDevice := Screen current.
-form := Form width:w height:h depth:(screenDevice depth) on:screenDevice.
-imgRep instVarNamed:'pData' put:form.
-"/ self halt.
-"Created: / 7.1.1998 / 22:31:46 / cg"
-"Modified: / 17.1.1998 / 12:36:43 / cg"
-!
-_ImageRepresentation_setBytePixels:nativeContext
-|imgRep x y w h clrModel bytes offs i2
-img depth cmap rgbMap opaque transparentColorIndex
-scanLineWidth nBytes srcIdx dstIdx|
-imgRep := nativeContext receiver.
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-clrModel := nativeContext argAt:5.
-bytes := nativeContext argAt:6.
-offs := nativeContext argAt:7.  "/ offset ??
-scanLineWidth := nativeContext argAt:8.
-depth := clrModel instVarNamed:'pixel_bits'.
-(clrModel instVarNamed:'map_size') ~~ 0 ifTrue:[
-	rgbMap := clrModel instVarNamed:'rgb'.
-	cmap := Array new:rgbMap size.
-	rgbMap
-	    keysAndValuesDo:[:idx :rgb |
-		cmap at:idx put:(Color rgbValue:(rgb bitAnd:16rFFFFFF))
-	    ].
-].
-opaque := (clrModel instVarNamed:'opaque') ~~ 0.
-opaque ifFalse:[
-	transparentColorIndex := clrModel instVarNamed:'transparent_index'
-].
-img := imgRep instVarNamed:'pData'.
-(img isNil or:[img == 0]) ifFalse:[
-"/        self halt
-].
-(offs ~~ 0 or:[scanLineWidth ~~ w]) ifTrue:[
-	nBytes := ByteArray new:w*h.
-	srcIdx := offs+1.
-	dstIdx := 1.
-	1 to:h do:[:y |
-	    nBytes replaceFrom:dstIdx to:(dstIdx+w-1) with:bytes startingAt:srcIdx.
-	    srcIdx := srcIdx + scanLineWidth.
-	    dstIdx := dstIdx + w.
-	].
-	bytes := nBytes.
-].
-img := Image width:w height:h depth:depth fromArray:bytes.
-cmap notNil ifTrue:[
-	img colorMap:cmap.
-	img photometric:#palette
-].
-opaque ifFalse:[
-	img mask:(ImageReader
-		    buildMaskFromColor:transparentColorIndex
-		    for:bytes
-		    width:w
-		    height:h)
-].
-imgRep instVarNamed:'pData' put:img.
-^ 1.
-"Created: / 7.1.1998 / 22:31:46 / cg"
-"Modified: / 21.10.1998 / 00:35:45 / cg"
-!
-_ImageRepresentation_setIntPixels:nativeContext
-|imgRep x y w h clrModel ints offs scanLineWidth
-img depth cmap rgbMap opaque transparentColorIndex
-bytes srcIdx dstIdx val red green blue
-redMask greenMask blueMask redShift greenShift blueShift|
-imgRep := nativeContext receiver.
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-clrModel := nativeContext argAt:5.
-ints := nativeContext argAt:6.
-offs := nativeContext argAt:7.  "/ offset ??
-scanLineWidth := nativeContext argAt:8.  "/ scanLineWidth ??
-opaque := false.
-offs ~~ 0 ifTrue:[
-self halt
-].
-depth := clrModel instVarNamed:'pixel_bits'.
-clrModel class == (Java at:'java.awt.image.DirectColorModel') ifTrue:[
-] ifFalse:[
-	(clrModel instVarNamed:'map_size') ~~ 0 ifTrue:[
-	    rgbMap := clrModel instVarNamed:'rgb'.
-	    cmap := Array new:rgbMap size.
-	    rgbMap
-		keysAndValuesDo:[:idx :rgb |
-		    cmap at:idx put:(Color rgbValue:(rgb bitAnd:16rFFFFFF))
-		].
-	].
-	opaque := (clrModel instVarNamed:'opaque') ~~ 0.
-	opaque ifFalse:[
-	    transparentColorIndex := clrModel instVarNamed:'transparent_index'
-	].
-].
-img := imgRep instVarNamed:'pData'.
-(img isNil or:[img == 0]) ifFalse:[
-"/        self halt.
-].
-depth == 32 ifTrue:[
-	"/ temporary kludge - ony use 24 bits/pixel
-	bytes := ByteArray new:w*h*3.
-	srcIdx := 1.
-	dstIdx := 1.
-	redMask := clrModel instVarNamed:'red_mask'.
-	greenMask := clrModel instVarNamed:'green_mask'.
-	blueMask := clrModel instVarNamed:'blue_mask'.
-	redShift := (clrModel instVarNamed:'red_offset') negated.
-	greenShift := (clrModel instVarNamed:'green_offset') negated.
-	blueShift := (clrModel instVarNamed:'blue_offset') negated.
-	1 to:h do:[:y |
-	    1 to:w do:[:x |
-		val := ints at:srcIdx.
-		red := (val bitAnd:redMask) bitShift:redShift.
-		green := (val bitAnd:greenMask) bitShift:greenShift.
-		blue := (val bitAnd:blueMask) bitShift:blueShift.
-		bytes at:dstIdx put:red.
-		bytes at:dstIdx+1 put:green.
-		bytes at:dstIdx+2 put:blue.
-		dstIdx := dstIdx + 3.
-		srcIdx := srcIdx + 1.
-	    ].
-	    srcIdx := srcIdx + (scanLineWidth - w).
-	].
-	img := Depth24Image width:w height:h depth:24 fromArray:bytes.
-	img photometric:#rgb.
-] ifFalse:[
-	scanLineWidth ~~ w ifTrue:[
-	    self halt
-	].
-	img := Image width:w height:h depth:depth fromArray:ints.
-	cmap notNil ifTrue:[
-	    img colorMap:cmap.
-	    img photometric:#palette
-	] ifFalse:[
-	    img photometric:#rgb
-	].
-].
-opaque ifFalse:[
-	img mask:(ImageReader
-		    buildMaskFromColor:transparentColorIndex
-		    for:ints
-		    width:w
-		    height:h)
-].
-imgRep instVarNamed:'pData' put:img.
-^ 1.
-"Created: / 1.2.1998 / 17:38:47 / cg"
-"Modified: / 21.10.1998 / 00:35:37 / cg"
-!
-_InetAddressImpl_getHostByAddr:nativeContext
-"/ java.lang.String getHostByAddr (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:08:04 / cg"
-!
-_InetAddressImpl_getInetFamily:nativeContext
-"/ self unimplementedNativeMethod.
-^ 0
-"Modified: / 15.8.1997 / 17:04:43 / cg"
-"Created: / 5.1.1998 / 02:05:48 / cg"
-!
-_InetAddressImpl_getLocalHostName:nativeContext
-""
-|hostName|
-hostName := OperatingSystem getHostName.
-^ (Java as_String:hostName).
-"Modified: / 7.8.1997 / 21:16:55 / cg"
-"Created: / 5.1.1998 / 02:07:03 / cg"
-!
-_InetAddressImpl_lookupAllHostAddr:nativeContext
-""
-|jAddrImpl jHostName hostName addrBytes|
-jAddrImpl := nativeContext receiver.
-jHostName := nativeContext argAt:1.
-hostName := Java as_ST_String:jHostName.
-addrBytes := Socket ipAddressOfHost:hostName.
-addrBytes isNil ifTrue:[
-	addrBytes := #[0 0 0 0] copy
-].
-^ Array with:addrBytes
-"Modified: / 8.8.1997 / 12:04:25 / cg"
-"Created: / 7.1.1998 / 18:51:31 / cg"
-!
-_InetAddressImpl_makeAnyLocalAddress:nativeContext
-""
-|jAddrImpl jAddr hostName addrBytes address|
-jAddrImpl := nativeContext receiver.
-jAddr := nativeContext argAt:1.
-hostName := OperatingSystem getHostName.
-addrBytes := Socket ipAddressOfHost:hostName.
-addrBytes isNil ifTrue:[
-	addrBytes := #[127 0 0 0].
-].
-"/ MSB first into an integer.
-address := (addrBytes at:1).
-address := (address bitShift:8) bitOr:(addrBytes at:2).
-address := (address bitShift:8) bitOr:(addrBytes at:3).
-address := (address bitShift:8) bitOr:(addrBytes at:4).
-jAddr instVarNamed:'hostName' put:(Java as_String:hostName).
-jAddr instVarNamed:'address' put:address.
-jAddr instVarNamed:'family' put:0.
-^ nil
-"Created: / 5.1.1998 / 02:06:27 / cg"
-"Modified: / 21.10.1998 / 03:30:29 / cg"
-!
-_InetAddress_getInetFamily:nativeContext
-"/ self unimplementedNativeMethod.
-^ 0
-"Modified: / 15.8.1997 / 17:04:43 / cg"
-"Created: / 17.11.1998 / 23:54:38 / cg"
-!
-_InetAddress_getLocalHostName:nativeContext
-""
-|hostName|
-hostName := OperatingSystem getHostName.
-^ Java as_String:hostName.
-"Modified: / 7.8.1997 / 21:16:55 / cg"
-"Created: / 17.11.1998 / 23:54:54 / cg"
-!
-_InetAddress_init:nativeContext
-"/ introduced with jdk1.2 ... (sigh)
-"Created: / 27.1.1998 / 18:16:40 / cg"
-!
-_InetAddress_lookupAllHostAddr:nativeContext
-""
-|jAddrImpl jHostName hostName addrBytes|
-jAddrImpl := nativeContext receiver.
-jHostName := nativeContext argAt:1.
-hostName := Java as_ST_String:jHostName.
-addrBytes := Socket ipAddressOfHost:hostName.
-addrBytes isNil ifTrue:[
-	addrBytes := #[0 0 0 0] copy
-].
-^ Array with:addrBytes
-"Modified: / 8.8.1997 / 12:04:25 / cg"
-"Created: / 17.11.1998 / 23:56:10 / cg"
-!
-_InetAddress_lookupHostByAddr:nativeContext
-"java.lang.Object[] lookupHostByAddr (int)"
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:59:22 / cg"
-!
-_InetAddress_lookupHostByName:nativeContext
-"java.lang.Object[] lookupHostByName (java.lang.String)"
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 02:58:53 / cg"
-!
-_InetAddress_makeAnyLocalAddress:nativeContext
-""
-|jAddrImpl jAddr hostName addrBytes address|
-jAddrImpl := nativeContext receiver.
-jAddr := nativeContext argAt:1.
-hostName := OperatingSystem getHostName.
-addrBytes := Socket ipAddressOfHost:hostName.
-addrBytes isNil ifTrue:[
-	addrBytes := #[127 0 0 0].
-].
-"/ MSB first into an integer.
-address := (addrBytes at:1).
-address := (address bitShift:8) bitOr:(addrBytes at:2).
-address := (address bitShift:8) bitOr:(addrBytes at:3).
-address := (address bitShift:8) bitOr:(addrBytes at:4).
-jAddr instVarNamed:'hostName' put:(Java as_String:hostName).
-jAddr instVarNamed:'address' put:address.
-jAddr instVarNamed:'family' put:0.
-^ nil
-"Modified: / 21.10.1998 / 03:30:29 / cg"
-"Created: / 17.11.1998 / 23:54:00 / cg"
-!
-_Inflater_end0:nativeContext
-"/ void end0 ()
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:08:47 / cg"
-"Created: / 27.1.2000 / 03:11:21 / cg"
-!
-_Inflater_getAdler0:nativeContext
-"/ int getAdler0 ()
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:08:47 / cg"
-"Created: / 27.1.2000 / 03:12:15 / cg"
-!
-_Inflater_getTotalIn0:nativeContext
-"/ int getTotalIn0 ()
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 03:10:50 / cg"
-"Modified: / 27.1.2000 / 03:11:08 / cg"
-!
-_Inflater_getTotalOut0:nativeContext
-"/ int getTotalOut0 ()
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:08:47 / cg"
-"Created: / 27.1.2000 / 03:12:01 / cg"
-!
-_Inflater_inflate0:nativeContext
-"/ int inflate0 (byte[] int int)
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:08:47 / cg"
-"Created: / 27.1.2000 / 03:11:39 / cg"
-!
-_Inflater_reset0:nativeContext
-"/ void reset0 ()
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:08:47 / cg"
-"Created: / 27.1.2000 / 03:11:02 / cg"
-!
-_Inflater_reset:nativeContext
-UnimplementedNativeMethodSignal raise.
-"Created: / 01-02-1998 / 20:14:13 / cg"
-"Modified: / 30-04-2011 / 22:56:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Inflater_setDictionary0:nativeContext
-"/ void setDictionary0 (byte[] int int)
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:08:47 / cg"
-"Created: / 27.1.2000 / 03:10:33 / cg"
-!
-_InputThread_run:nativeContext
-self _WToolkit_eventLoop:nativeContext.
-"Created: / 28.1.1998 / 22:34:47 / cg"
-"Modified: / 28.1.1998 / 22:35:16 / cg"
-!
-_Introspector_getMethodDescriptor:nativeContext
-"java.lang.String getMethodDescriptor (java.lang.reflect.Method)"
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:47:43 / cg"
-!
-_Introspector_getMethodParameterCount:nativeContext
-"int getMethodParameterCount (java.lang.reflect.Method)"
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:49:15 / cg"
-!
-_Introspector_getPublicDeclaredMethods0:nativeContext
-"java.lang.reflect.Method[] getPublicDeclaredMethods0 (java.lang.Class)"
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:48:49 / cg"
-!
-_JPEGImageDecoder_readImage:nativeContext
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 18:53:30 / cg"
-"Modified: / 12.11.1998 / 18:53:40 / cg"
-!
-_MButtonPeer_create:nativeContext
-^ self _WButtonPeer_create:nativeContext
-!
-_MCanvasPeer_create:nativeContext
-|jCanvasPeer jFrame frame subView|
-jCanvasPeer := nativeContext receiver.
-jFrame := nativeContext argAt:1.
-jFrame isNil ifTrue:[
-	self halt:'no frame in canvasPeer create'.
-	self internalError:'no frame in canvasPeer create'.
-	^ self.
-].
-frame := jFrame instVarNamed:'pData'.
-subView := JavaView in:frame.
-subView delegate:self.
-subView javaPeer:jCanvasPeer.
-self createdWindowsView:subView for:jCanvasPeer.
-WindowCreationTrace == true ifTrue:[
-	'WCanvasPeer_create: ' print. frame print. ' -> ' print. subView printNL.
-].
-"Modified: / 16.1.1998 / 13:40:00 / cg"
-"Created: / 18.11.1998 / 00:14:44 / cg"
-!
-_MComponentPeer_cacheInit:nativeContext
-"Created: / 28.1.1998 / 22:22:30 / cg"
-!
-_MComponentPeer_handleEvent:nativeContext
-^ self _WComponentPeer_handleEvent:nativeContext
-"Created: / 18.11.1998 / 00:21:17 / cg"
-!
-_MComponentPeer_nativeHandleEvent:nativeContext
-^ self _WComponentPeer_nativeHandleEvent:nativeContext
-!
-_MComponentPeer_pHide:nativeContext
-^ self _WComponentPeer_hide:nativeContext
-"Created: / 18.11.1998 / 00:15:18 / cg"
-!
-_MComponentPeer_pInitialize:nativeContext
-"Created: / 28.1.1998 / 22:27:25 / cg"
-!
-_MComponentPeer_pReshape:nativeContext
-self commonReshapeComponent:nativeContext
-"Created: / 18.11.1998 / 00:18:17 / cg"
-!
-_MComponentPeer_pSetBackground:nativeContext
-|view jClr rgb clr|
-view := self viewForWPeer:nativeContext.
-jClr := nativeContext argAt:1.
-rgb := jClr instVarNamed:'value'.
-clr := Color rgbValue:rgb.
-clr := clr on:(view device).
-(view isKindOf:ScrollableView) ifTrue:[
-view := view scrolledView
-].
-view viewBackground:clr.
-view backgroundPaint:clr.
-!
-_MComponentPeer_pSetFont:nativeContext
-|view jFont stFont name style size|
-view := self viewForWPeer:nativeContext.
-jFont := nativeContext argAt:1.
-stFont := jFont instVarNamed:'pData'.
-(stFont isNil or:[stFont == 0]) ifTrue:[
-name := jFont instVarNamed:'name'.
-style := jFont instVarNamed:'style'.
-size := jFont instVarNamed:'size'.
-stFont := self replacementFontFor:(Java as_ST_String:name) style:style size:size.
-jFont instVarNamed:'pData' put:stFont.
-].
-view font:stFont.
-^ nil
-!
-_MComponentPeer_pSetForeground:nativeContext
-|view jClr rgb clr|
-view := self viewForWPeer:nativeContext.
-jClr := nativeContext argAt:1.
-rgb := jClr instVarNamed:'value'.
-clr := Color rgbValue:rgb.
-clr := clr on:(view device).
-(view isKindOf:ScrollableView) ifTrue:[
-view := view scrolledView
-].
-view foregroundColor:clr.
-!
-_MComponentPeer_pShow:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ frame views are under my browsers own control
-(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
-	view beVisible.
-	view realize.
-].
-"/    view windowGroup notNil ifTrue:[
-"/        windowServer addGroup:(view windowGroup)
-"/    ].
-^ nil
-"/ self halt.
-"Modified: / 25.1.1998 / 09:54:07 / cg"
-"Created: / 18.11.1998 / 00:21:51 / cg"
-!
-_MComponentPeer_setBackground:nativeContext
-|jClr rgb clr view|
-view := self viewForWPeer:nativeContext.
-jClr := nativeContext argAt:1.
-rgb := jClr instVarNamed:'value'.
-"/ self halt.
-clr := Color rgbValue:rgb.
-clr := clr on:(view device).
-(view isKindOf:ScrollableView) ifTrue:[
-	view := view scrolledView
-].
-view viewBackground:clr.
-view backgroundPaint:clr.
-"Created: / 17.11.1998 / 23:49:41 / cg"
-!
-_MComponentPeer_setCursor:nativeContext
-"Created: / 28.1.1998 / 22:27:35 / cg"
-!
-_MComponentPeer_setFont:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ self halt.
-"Modified: / 25.1.1998 / 01:22:19 / cg"
-"Created: / 17.11.1998 / 23:43:48 / cg"
-!
-_MComponentPeer_setForeground:nativeContext
-|jClr rgb clr view|
-view := self viewForWPeer:nativeContext.
-jClr := nativeContext argAt:1.
-rgb := jClr instVarNamed:'value'.
-"/ self halt.
-clr := Color rgbValue:rgb.
-clr := clr on:(view device).
-view paint:clr.
-"Created: / 17.11.1998 / 23:50:31 / cg"
-"Modified: / 17.11.1998 / 23:57:29 / cg"
-!
-_MFramePeer_create:nativeContext
-^ self _WFramePeer_create:nativeContext
-"Created: / 28.1.1998 / 22:25:44 / cg"
-!
-_MFramePeer_getWindowBackgroundColor:nativeContext
-^ View defaultViewBackgroundColor rgbValue.
-"Created: / 17.11.1998 / 23:55:42 / cg"
-!
-_MFramePeer_pHide:nativeContext
-^ self _WComponentPeer_hide:nativeContext
-"Created: / 28.1.1998 / 22:27:04 / cg"
-!
-_MFramePeer_pReshape:nativeContext
-self commonReshapeComponent:nativeContext
-"Created: / 28.1.1998 / 22:28:00 / cg"
-"Modified: / 28.1.1998 / 22:29:34 / cg"
-!
-_MFramePeer_pSetTitle:nativeContext
-self _WWindowPeer__setTitle:nativeContext
-"Created: / 28.1.1998 / 22:30:23 / cg"
-!
-_MFramePeer_pShow:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ frame views are under my browsers own control
-(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
-	view beVisible.
-	view realize.
-].
-"/    view windowGroup notNil ifTrue:[
-"/        windowServer addGroup:(view windowGroup)
-"/    ].
-^ nil
-"/ self halt.
-"Modified: / 25.1.1998 / 09:54:07 / cg"
-"Created: / 18.11.1998 / 00:19:59 / cg"
-!
-_MFramePeer_setInsets:nativeContext
-"Created: / 17.11.1998 / 23:55:32 / cg"
-!
-_MFramePeer_setResizable:nativeContext
-|view onOff|
-view := self viewForWPeer:nativeContext.
-onOff := (nativeContext argAt:1) == 1.
-view isTopView ifTrue:[
-	onOff ifTrue:[
-	    view minExtent:10@10.
-	    view maxExtent:(Screen current extent).
-	] ifFalse:[
-	    view minExtent:view extent.
-	    view maxExtent:view extent.
-	]
-] ifFalse:[
-	(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
-	    self halt.
-	]
-].
-"/ 'JAVA: WWindowPeer_setResizable: ' print. view print. ' yes/no: ' print. onOff printNL.
-^ nil
-"Modified: / 16.1.1998 / 18:08:00 / cg"
-"Created: / 17.11.1998 / 23:51:45 / cg"
-!
-_MToolkit_callbackLoop:nativeContext
-|toolKit|
-toolKit := nativeContext receiver.
-^ self.
-self halt.
-self wakeup:toolKit.
-self halt.
-(JavaEventThread notNil and:[JavaEventThread isDead not]) ifTrue:[
-	'JavaVM [warning]: oops - two threads executing eventLoop' errorPrintCR.
-].
-JavaEventThread := Processor activeProcess.
-[
-	[true] whileTrue:[
-	    AbortSignal handle:[:ex |
-		ex return
-	    ] do:[
-		self doWindowsEventThread.
-	    ]
-	].
-] valueNowOrOnUnwindDo:[
-	JavaEventThread := nil.
-].
-"Created: / 17.11.1998 / 23:58:33 / cg"
-"Modified: / 8.1.1999 / 17:08:35 / cg"
-!
-_MToolkit_eventLoop:nativeContext
-|toolKit|
-(JavaEventThread notNil and:[JavaEventThread isDead not]) ifTrue:[
-	'JavaVM [warning]: oops - two threads executing eventLoop' errorPrintCR.
-].
-toolKit := nativeContext receiver.
-self wakeup:toolKit.
-self halt.
-JavaEventThread := Processor activeProcess.
-[
-	[true] whileTrue:[
-	    AbortSignal handle:[:ex |
-		ex return
-	    ] do:[
-		self doWindowsEventThread.
-	    ]
-	].
-] valueNowOrOnUnwindDo:[
-	JavaEventThread := nil.
-].
-"Created: / 17.11.1998 / 23:04:29 / cg"
-"Modified: / 8.1.1999 / 17:08:21 / cg"
-!
-_MToolkit_init:nativeContext
-"Created: / 28.1.1998 / 22:21:54 / cg"
-!
-_MToolkit_loadSystemColors:nativeContext
-^ self _WToolkit_loadSystemColors:nativeContext
-!
-_MToolkit_run:nativeContext
-"Created: / 28.1.1998 / 22:22:10 / cg"
-!
-_Math_IEEEremainder:nativeContext
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 18:52:36 / cg"
-!
-_Math_acos:nativeContext
-"arc cosine"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>acos' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal arcCos
-"Created: / 7.5.1998 / 00:34:50 / cg"
-"Modified: / 11.11.1998 / 15:08:20 / cg"
-!
-_Math_asin:nativeContext
-"arc sine"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>asin' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal arcSin
-"Created: / 7.5.1998 / 00:34:26 / cg"
-"Modified: / 11.11.1998 / 15:08:15 / cg"
-!
-_Math_atan2:nativeContext
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 18:52:52 / cg"
-!
-_Math_atan:nativeContext
-"arc tangens"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>atan' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal arcTan
-"Created: / 6.2.1998 / 01:24:12 / cg"
-"Modified: / 11.11.1998 / 15:08:11 / cg"
-!
-_Math_ceil:nativeContext
-"ceiling"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>ceil' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal ceilingAsFloat
-"Created: / 7.1.1998 / 15:43:00 / cg"
-"Modified: / 11.11.1998 / 15:08:04 / cg"
-!
-_Math_cos:nativeContext
-"cosine"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>cos' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal cos
-"Created: / 7.1.1998 / 15:41:30 / cg"
-"Modified: / 11.11.1998 / 15:07:59 / cg"
-!
-_Math_exp:nativeContext
-"exponential"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>exp' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal exp
-"Created: / 7.5.1998 / 00:36:19 / cg"
-"Modified: / 11.11.1998 / 15:07:50 / cg"
-!
-_Math_floor:nativeContext
-"floor"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>floor' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal floorAsFloat
-"Created: / 7.1.1998 / 19:09:21 / cg"
-"Modified: / 11.11.1998 / 15:07:45 / cg"
-!
-_Math_log:nativeContext
-"natural logarithm"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>log' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal ln
-"Created: / 7.1.1998 / 15:42:19 / cg"
-"Modified: / 30.12.1998 / 17:41:42 / cg"
-!
-_Math_pow:nativeContext
-"power"
-|dVal1 dVal2|
-dVal1 := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal1 isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>pow' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-dVal2 := nativeContext argAt:3.
-"/    (nativeContext argAt:4) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal2 isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>pow' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal1 raisedTo:dVal2
-"Created: / 7.1.1998 / 15:44:13 / cg"
-"Modified: / 11.11.1998 / 15:07:33 / cg"
-!
-_Math_rint:nativeContext
-|dVal|
-dVal := nativeContext argAt:1.
-^ dVal rounded asFloat.
-!
-_Math_sin:nativeContext
-"sine"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>sin' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal sin
-"Created: / 7.1.1998 / 15:41:40 / cg"
-"Modified: / 11.11.1998 / 15:07:09 / cg"
-!
-_Math_sqrt:nativeContext
-"square root"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>sqrt' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-"/ how about domain errors ?
-dVal < 0 ifTrue:[
-	^ 0.0
-].
-^ dVal sqrt
-"Created: / 7.1.1998 / 15:42:40 / cg"
-"Modified: / 29.12.1998 / 13:22:36 / cg"
-!
-_Math_tan:nativeContext
-"tangent"
-|dVal|
-dVal := nativeContext argAt:1.
-"/    (nativeContext argAt:2) ~~ DUMMY_DOUBLE_HIGHWORD ifTrue:[
-"/        dVal isReal ifTrue:[
-"/            'JAVAVM [info]: missing double flag in Math>>tan' infoPrintCR.
-"/        ] ifFalse:[
-"/            self halt:'expected double arg'
-"/        ]
-"/    ].
-^ dVal tan
-"Created: / 7.5.1998 / 00:34:03 / cg"
-"Modified: / 11.11.1998 / 15:07:14 / cg"
-!
-_MemoryAdvice_register0:nativeContext
-"private native void register0()"
-"/ UnimplementedNativeMethodSignal raise
-!
-_Method_getModifiers:nativeContext
-|jMethod mthd retVal|
-jMethod := nativeContext receiver.
-mthd := JavaMethods at:jMethod ifAbsent:nil.
-mthd isNil ifTrue:[
-	self halt.
-	^ 0
-].
-^ mthd accessFlags
-"Modified: / 9.4.1998 / 17:50:01 / cg"
-!
-_Method_invoke:nativeContext
-"invoke a javaMethod"
-|jMethod mthd rec args retVal|
-jMethod := nativeContext receiver.
-rec := nativeContext argAt:1.
-args := nativeContext argAt:2.
-mthd := JavaMethods at:jMethod ifAbsent:nil.
-mthd isNil ifTrue:[
-	self halt.
-].
-"/ check for arguments to match the expected types ...
-mthd argSignature keysAndValuesDo:[:index :argSig |
-	|cls arg|
-	cls := Java at:argSig.
-	arg := args at:index.
-	(arg isKindOf:cls) ifFalse:[
-	    self halt.
-	]
-].
-mthd isStatic ifTrue:[
-	retVal := mthd valueWithReceiver:(mthd javaClass) arguments:args selector:mthd selector.
-	^ retVal
-] ifFalse:[
-	self halt.
-].
-self halt.
-"Created: / 13.2.1998 / 15:15:28 / cg"
-"Modified: / 13.2.1998 / 15:35:54 / cg"
-!
-_MozillaAppletContext_pMochaOnLoad:nativeContext
-|id|
-id := nativeContext argAt:1.
-"/ 'JAVA: MozillaAppletContext_pMochaOnLoad: ' print. id printNL.
-^ nil
-"Created: / 6.1.1998 / 20:37:13 / cg"
-"Modified: / 6.2.1998 / 02:13:09 / cg"
-!
-_MozillaAppletContext_pShowDocument:nativeContext
-|jAppletContext s1 s2 s3 js|
-jAppletContext := nativeContext receiver.
-js := nativeContext argAt:1.
-s1 := Java as_ST_String:js.
-js := nativeContext argAt:2.
-s2 := Java as_ST_String:js.
-js := nativeContext argAt:3.
-s2 := Java as_ST_String:js.
-"/ somehow pass it to the html browser ....
-Transcript show:'pShowDocument: '; show:s1; show:' / ';
-	   show:s2; show:' / '; showCR:s3.
-^ nil
-"Created: / 29.3.1998 / 15:53:17 / cg"
-"Modified: / 29.12.1998 / 13:32:41 / cg"
-!
-_MozillaAppletContext_pShowStatus:nativeContext
-|s js|
-js := nativeContext argAt:1.
-js isNil ifTrue:[
-	s := ''
-] ifFalse:[
-	s := Java as_ST_String:js.
-].
-self activityNotification:s.
-"/ Transcript showCR:s.
-^ nil
-"Created: / 6.1.1998 / 18:31:34 / cg"
-"Modified: / 22.10.1998 / 01:17:46 / cg"
-!
-_MozillaAppletContext_setConsoleState0:nativeContext
-"/ void setConsoleState0 (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:23:22 / cg"
-!
-_ObjectInputStream_allocateNewArray:nativeContext
-"/ java.lang.Object allocateNewArray (java.lang.Class int)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:02:52 / cg"
-!
-_ObjectInputStream_allocateNewObject:nativeContext
-"/ java.lang.Object allocateNewObject (java.lang.Class java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:02:40 / cg"
-!
-_ObjectInputStream_inputClassFields:nativeContext
-"/ void inputClassFields (java.lang.Object java.lang.Class int[])
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:02:22 / cg"
-!
-_ObjectInputStream_invokeDefaultReadObject:nativeContext
-"/ void invokeDefaultReadObject (java.lang.Object java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 03:00:47 / cg"
-!
-_ObjectInputStream_invokeObjectReader:nativeContext
-"/ boolean invokeObjectReader (java.lang.Object java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:03:06 / cg"
-!
-_ObjectInputStream_invokeReadObject:nativeContext
-"/ void invokeReadObject (java.lang.Object java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 03:01:02 / cg"
-!
-_ObjectInputStream_loadClass0:nativeContext
-"/ java.lang.Class loadClass0 (java.lang.Class java.lang.String)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:01:15 / cg"
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-!
-_ObjectOutputStream_invokeDefaultWriteObject:nativeContext
-"/ void invokeDefaultWriteObject (java.lang.Object java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 03:01:36 / cg"
-!
-_ObjectOutputStream_invokeObjectWriter:nativeContext
-"/ boolean invokeObjectWriter (java.lang.Object java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:00:36 / cg"
-"Modified: / 12.11.1998 / 19:01:45 / cg"
-!
-_ObjectOutputStream_invokeWriteObject:nativeContext
-"/ void invokeWriteObject (java.lang.Object java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 03:01:52 / cg"
-!
-_ObjectOutputStream_outputClassFields:nativeContext
-"/ void outputClassFields (java.lang.Object java.lang.Class int[])
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:00:09 / cg"
-"Modified: / 12.11.1998 / 19:01:42 / cg"
-!
-_ObjectStreamClass_doMismatchedRead:nativeContext
-"/ void doMismatchedRead (java.io.ObjectInputStream java.lang.Object)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 02:50:55 / cg"
-!
-_ObjectStreamClass_findObjectMethod0:nativeContext
-"/ boolean findObjectMethod0 (java.lang.Class int)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 02:51:50 / cg"
-!
-_ObjectStreamClass_getClassAccess:nativeContext
-"/ int getClassAccess (java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:04:19 / cg"
-!
-_ObjectStreamClass_getClassDefinedUID:nativeContext
-"/ long getClassDefinedUID (java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 02:51:33 / cg"
-!
-_ObjectStreamClass_getFieldAccess:nativeContext
-"/ int getFieldAccess (java.lang.Class java.lang.String)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:05:19 / cg"
-!
-_ObjectStreamClass_getFieldSignatures:nativeContext
-"/ java.lang.String[] getFieldSignatures (java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:05:04 / cg"
-!
-_ObjectStreamClass_getFields0:nativeContext
-"/ java.io.ObjectStreamField[] getFields0 (java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:05:32 / cg"
-!
-_ObjectStreamClass_getMethodAccess:nativeContext
-"/ int getMethodAccess (java.lang.Class java.lang.String)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:04:51 / cg"
-!
-_ObjectStreamClass_getMethodSignatures:nativeContext
-"/ java.lang.String[] getMethodSignatures (java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:04:34 / cg"
-!
-_ObjectStreamClass_getSerialVersionUID:nativeContext
-"/ long getSerialVersionUID (java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:05:43 / cg"
-!
-_ObjectStreamClass_hasWriteObject:nativeContext
-"/ boolean hasWriteObject (java.lang.Class)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 19:01:48 / cg"
-"Created: / 12.11.1998 / 19:05:53 / cg"
-!
-_Object_notify:nativeContext
-"wakeup"
-self wakeup:(nativeContext receiver).
-"Created: / 6.1.1998 / 21:09:26 / cg"
-!
-_Object_notifyAll:nativeContext
-self wakeupAll:(nativeContext receiver).
-"Created: / 3.1.1998 / 03:06:56 / cg"
-!
-_OffScreenImageSource_sendPixels:nativeContext
-"/ self halt.
-"/ UnimplementedNativeMethodSignal raise
-"Modified: / 16.1.1998 / 18:22:23 / cg"
-"Created: / 17.1.1998 / 12:36:25 / cg"
-!
-_PackedColorModel_initIDs:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 28.1.1998 / 22:19:35 / cg"
-!
-_PlainDatagramSocketImpl_bind:nativeContext
-|jsock jaddr port sock hostName ok err|
-jsock := nativeContext receiver.
-port := nativeContext argAt:1.
-jaddr := nativeContext argAt:2.
-hostName := jaddr instVarNamed:'hostName'.
-hostName isNil ifTrue:[
-	self halt.
-] ifFalse:[
-	hostName := Java as_ST_String:hostName
-].
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket bind to ' , hostName printString, ' port ' , port printString) infoPrintCR
-	].
-	ok := sock bindTo:port address:nil "hostName".
-	ok ifFalse:[
-	    err := OperatingSystem lastErrorString.
-	    Transcript showCR:'sock err: ' , err printString.
-	    self throwIOExceptionWithMessage:'bind failed'.
-	]
-].
-"Created: / 4.2.1998 / 15:06:20 / cg"
-"Modified: / 30.12.1998 / 20:10:16 / cg"
-!
-_PlainDatagramSocketImpl_datagramSocketClose:nativeContext
-|jsock sock|
-jsock := nativeContext receiver.
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    'JAVA: datagram close socket' infoPrintCR
-	].
-	sock close.
-].
-"Modified: / 21.8.1997 / 17:09:40 / cg"
-"Created: / 25.1.1998 / 20:04:24 / cg"
-!
-_PlainDatagramSocketImpl_datagramSocketCreate:nativeContext
-|jsock fd sock fileNo|
-jsock := nativeContext receiver.
-fd := jsock instVarNamed:'fd'.
-(fd instVarNamed:'fd') ~~ 0 ifTrue:[
-	self halt:'file already open'.
-	self internalError:'file already open'.
-	self throwIOExceptionWithMessage:'file already open in socketCreate'.
-	^ self.
-].
-FileOpenTrace ifTrue:[
-	('JAVA: create datagram socket') infoPrintCR.
-].
-sock := Socket newUDP.
-sock isNil ifTrue:[
-	self throwIOExceptionWithMessage:'socketCreate failed'.
-].
-fileNo := self addOpenFile:sock.
-fd instVarNamed:'fd' put:fileNo.
-"Created: / 25.1.1998 / 19:59:25 / cg"
-"Modified: / 30.12.1998 / 20:10:38 / cg"
-!
-_PlainDatagramSocketImpl_join:nativeContext
-"/ native void join (InetAddress arg1)
-|jsock addr sock ok err|
-jsock := nativeContext receiver.
-addr := nativeContext argAt:1.
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket join ' , addr printString) infoPrintCR
-	].
-	self throwIOExceptionWithMessage:'unimplemented: join'.
-self halt.
-	^ nil.  "/ void
-].
-"Created: / 4.2.1998 / 15:06:20 / cg"
-"Modified: / 30.12.1998 / 20:10:16 / cg"
-!
-_PlainDatagramSocketImpl_receive:nativeContext
-|jsock jdatagramPacket sock ok|
-jsock := nativeContext receiver.
-jdatagramPacket := nativeContext argAt:1.
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket receive') infoPrintCR
-	].
-	^ -1.
-].
-^ -1
-"Created: / 4.2.1998 / 15:06:20 / cg"
-"Modified: / 30.12.1998 / 20:10:16 / cg"
-!
-_PlainDatagramSocketImpl_send:nativeContext
-|jsock jdatagramPacket sock ok|
-jsock := nativeContext receiver.
-jdatagramPacket := nativeContext argAt:1.
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket send') infoPrintCR
-	].
-	^ -1.
-].
-^ -1
-"Created: / 4.2.1998 / 15:06:20 / cg"
-"Modified: / 30.12.1998 / 20:10:16 / cg"
-!
-_PlainDatagramSocketImpl_socketGetOption:nativeContext
-|jsock opt port sock hostName ok err|
-jsock := nativeContext receiver.
-opt := nativeContext argAt:1.
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket getOption ' , opt printString) infoPrintCR
-	].
-	self throwIOExceptionWithMessage:'unimplemented: getOption'.
-self halt.
-	^ -1.
-].
-^ -1.
-"Created: / 4.2.1998 / 15:06:20 / cg"
-"Modified: / 30.12.1998 / 20:10:16 / cg"
-!
-_PlainDatagramSocketImpl_socketSetOption:nativeContext
-"/ native void socketSetOption (int arg1, java.lang.Object arg2)
-|jsock opt optVal sock ok err jSocketOptions|
-jsock := nativeContext receiver.
-opt := nativeContext argAt:1.
-optVal := nativeContext argAt:2.
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket setOption ' , opt printString) infoPrintCR
-	].
-	jSocketOptions := Java at:'java.net.SocketOptions'.
-	(opt == (jSocketOptions instVarNamed:'TCP_NODELAY')) ifTrue:[
-	] ifFalse:[
-	    (opt == (jSocketOptions instVarNamed:'SO_BINDADDR')) ifTrue:[
-	    ] ifFalse:[
-		(opt == (jSocketOptions instVarNamed:'SO_REUSEADDR')) ifTrue:[
-		] ifFalse:[
-		    (opt == (jSocketOptions instVarNamed:'IP_MULTICAST_IF')) ifTrue:[
-		    ] ifFalse:[
-			(opt == (jSocketOptions instVarNamed:'SO_LINGER')) ifTrue:[
-			] ifFalse:[
-			    (opt == (jSocketOptions instVarNamed:'SO_TIMEOUT')) ifTrue:[
-			    ] ifFalse:[
-				self throwIOExceptionWithMessage:'bad arg to setOption'.
-			    ]
-			]
-		    ]
-		]
-	    ]
-	].
-	self throwIOExceptionWithMessage:'unimplemented: setOption'.
-self halt.
-	^ nil.  "/ void
-].
-"Created: / 4.2.1998 / 15:06:20 / cg"
-"Modified: / 30.12.1998 / 20:10:16 / cg"
-!
-_PlainSocketImpl_initProto:nativeContext
-"Created: / 12.1.1998 / 12:56:52 / cg"
-!
-_PlainSocketImpl_socketAccept:nativeContext
-|jsock fd newJSock sock newSock fileNo|
-jsock := nativeContext receiver.
-sock := self validateFile:jsock.
-sock isNil ifTrue:[
-	self throwIOExceptionWithMessage:'nil socket in accept'.
-	^ self.
-].
-newJSock := nativeContext argAt:1.
-fd := newJSock instVarNamed:'fd'.
-(fd instVarNamed:'fd') ~~ 0 ifTrue:[
-	self halt:'file already open'.
-	self internalError:'file already open'.
-	self throwIOExceptionWithMessage:'socket already open in socketAccept'.
-	^ self.
-].
-FileIOTrace ifTrue:[
-	'JAVA: socket accept' infoPrintCR
-].
-newSock := sock accept.
-newSock isNil ifTrue:[
-	self throwIOExceptionWithMessage:'accept failed'.
-].
-fileNo := self addOpenFile:newSock.
-fd instVarNamed:'fd' put:fileNo.
-"Created: / 4.2.1998 / 15:26:49 / cg"
-"Modified: / 30.12.1998 / 20:10:01 / cg"
-!
-_PlainSocketImpl_socketAvailable:nativeContext
-|jSock sock n|
-jSock := nativeContext receiver.
-sock := self validateFile:jSock.
-sock isNil ifTrue:[
-	self throwIOExceptionWithMessage:'socketAvailable on closed socket'.
-	^ self.
-].
-n := sock numAvailable.
-^ n
-"Created: / 4.2.1998 / 16:58:49 / cg"
-"Modified: / 30.12.1998 / 20:10:08 / cg"
-!
-_PlainSocketImpl_socketBind:nativeContext
-|jsock jaddr port sock hostName ok err|
-jsock := nativeContext receiver.
-jaddr := nativeContext argAt:1.
-port := nativeContext argAt:2.
-hostName := jaddr instVarNamed:'hostName'.
-hostName isNil ifTrue:[
-	self halt.
-] ifFalse:[
-	hostName := Java as_ST_String:hostName
-].
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket bind to ' , hostName printString, ' port ' , port printString) infoPrintCR
-	].
-	ok := sock bindTo:port address:nil "hostName".
-	ok ifFalse:[
-	    err := OperatingSystem lastErrorString.
-	    Transcript showCR:'sock err: ' , err printString.
-	    self throwIOExceptionWithMessage:'bind failed'.
-	]
-].
-"Created: / 4.2.1998 / 15:06:20 / cg"
-"Modified: / 30.12.1998 / 20:10:16 / cg"
-!
-_PlainSocketImpl_socketClose:nativeContext
-|jsock sock|
-jsock := nativeContext receiver.
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    'JAVA: close socket' infoPrintCR
-	].
-	sock close.
-].
-"Modified: / 21.8.1997 / 17:09:40 / cg"
-"Created: / 25.1.1998 / 20:04:24 / cg"
-!
-_PlainSocketImpl_socketConnect:nativeContext
-|jsock jaddr port sock addr hostName ok|
-jsock := nativeContext receiver.
-jaddr := nativeContext argAt:1.
-port := nativeContext argAt:2.
-hostName := jaddr instVarNamed:'hostName'.
-hostName notNil ifTrue:[
-hostName := Java as_ST_String:hostName
-] ifFalse:[
-addr := jaddr instVarNamed:'address'.
-addr notNil ifTrue:[
-hostName := ByteArray new:4.
-hostName at:4 put:(addr bitAnd:16rFF).
-addr := addr bitShift:-8.
-hostName at:3 put:(addr bitAnd:16rFF).
-addr := addr bitShift:-8.
-hostName at:2 put:(addr bitAnd:16rFF).
-addr := addr bitShift:-8.
-hostName at:1 put:(addr bitAnd:16rFF).
-].
-].
-hostName isNil ifTrue:[
-self halt.
-].
-sock := self validateFile:jsock.
-sock notNil ifTrue:[
-FileIOTrace ifTrue:[
-('JAVA: socket connect to ' , hostName printString , ' port ' , port printString) infoPrintCR
-].
-SocketConnectConfirmation ifTrue:[
-(PermittedHostConnects isNil
-or:[(PermittedHostConnects includes:hostName) not]) ifTrue:[
-(self confirm:'connect to host: ' , hostName printString , ' - ok ?')
-ifFalse:[
-self throwIOExceptionWithMessage:'connect permission denied'.
-].
-(self confirm:('JAVA Security check\\Always permit connects to this host (''' , hostName printString , ''') ?') withCRs)
-ifTrue:[
-PermittedHostConnects isNil ifTrue:[
-PermittedHostConnects := Set new
-].
-PermittedHostConnects add:hostName.
-]
-]
-].
-ok := sock connectTo:hostName port:port.
-ok ifFalse:[
-self throwIOExceptionWithMessage:'connect failed'.
-]
-].
-"Created: / 25.1.1998 / 20:02:27 / cg"
-"Modified: / 30.12.1998 / 20:10:28 / cg"
-!
-_PlainSocketImpl_socketCreate:nativeContext
-|jsock isStream fd sock fileNo|
-jsock := nativeContext receiver.
-isStream := (nativeContext argAt:1) == 1.
-fd := jsock instVarNamed:'fd'.
-(fd instVarNamed:'fd') ~~ 0 ifTrue:[
-	self halt:'file already open'.
-	self internalError:'file already open'.
-	self throwIOExceptionWithMessage:'file already open in socketCreate'.
-	^ self.
-].
-FileOpenTrace ifTrue:[
-	('JAVA: create socket') infoPrintCR.
-].
-isStream ifTrue:[
-	sock := Socket newTCP
-] ifFalse:[
-	sock := Socket newUDP
-].
-sock isNil ifTrue:[
-	self throwIOExceptionWithMessage:'socketCreate failed'.
-].
-fileNo := self addOpenFile:sock.
-fd instVarNamed:'fd' put:fileNo.
-"Created: / 25.1.1998 / 19:59:25 / cg"
-"Modified: / 30.12.1998 / 20:10:38 / cg"
-!
-_PlainSocketImpl_socketListen:nativeContext
-|jSock time sock ok|
-jSock := nativeContext receiver.
-time := nativeContext argAt:1.
-sock := self validateFile:jSock.
-sock notNil ifTrue:[
-	FileIOTrace ifTrue:[
-	    ('JAVA: socket listen with timeout ' , time printString) infoPrintCR.
-	].
-	ok := sock listenWithBacklog:5.
-	ok ifFalse:[
-	    self throwIOExceptionWithMessage:'listen failed'.
-	    ^ self.
-	].
-	time ~~ 0 ifTrue:[
-	    sock readWaitWithTimeoutMs:time
-	]
-].
-"Created: / 4.2.1998 / 15:17:48 / cg"
-"Modified: / 30.12.1998 / 20:10:46 / cg"
-!
-_PlatformFont_initIDs:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 28.1.1998 / 22:30:41 / cg"
-!
-_PrintStream_isOutputStreamLocalised:nativeContext
-"/ boolean isOutputStreamLocalised (java.io.DataOutputStream)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 03:00:20 / cg"
-!
-_Proxy_defineClass0:nativeContext
-"
-private static native Class defineClass0(ClassLoader loader, String name,
-byte[] b, int off, int len);
-"
-| loader name b off len  bs cls |
-loader := nativeContext argAt: 1.
-name := nativeContext argAt: 2.
-b := nativeContext argAt: 3.
-off := nativeContext argAt: 4.
-len := nativeContext argAt: 5.
-bs := (off = 0 and: [len = b size])
-ifTrue:[b readStream]
-ifFalse:[(b copyFrom: off + 1 to: off + len) readStream].
-cls := JavaClassReader readStream: bs.
-cls classLoader: loader.
-^self reflection javaClassObjectForClass: cls.
-"Created: / 06-02-2011 / 16:55:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_RandomAccessFile_close:nativeContext
-^ self anyStream_close:nativeContext
-"Created: / 4.2.1998 / 13:26:53 / cg"
-"Modified: / 4.2.1998 / 15:21:08 / cg"
-!
-_RandomAccessFile_length:nativeContext
-|file sz|
-file := self validateFile:(nativeContext receiver).
-FileIOTrace ifTrue:[
-	('JAVA: length of ' , file pathName) infoPrintCR.
-].
-sz := file size.
-^ sz.
-"Created: / 4.2.1998 / 13:27:58 / cg"
-!
-_RandomAccessFile_open:nativeContext
-|fs fd name dir stream fileNo answer readonly|
-readonly := false.
-fs := nativeContext receiver.
-fd := fs instVarNamed:'fd'.
-(fd instVarNamed:'fd') ~~ 0 ifTrue:[
-	self halt:'file already open'.
-	self internalError:'file already open'.
-	^ self.
-].
-name := nativeContext argAt:1.
-name := Java as_ST_String:name.
-name := self fixFilename:name.
-FileOpenTrace ifTrue:[
-	('JAVA: opening ' , name) infoPrintCR.
-].
-dir := name asFilename directory pathName.
-(PermittedDirectories notNil
-and:[PermittedDirectories includes:dir]) ifFalse:[
-	FileOpenConfirmation ifTrue:[
-	    answer := Dialog
-		    confirmWithCancel:('JAVA Security check\\Opening ''' , name , ''' for read/write.\Grant permission ?') withCRs
-			       labels:#('no' 'grant' 'readonly')
-			       values:#(false true #readonly)
-			      default:3.
-	    answer == false ifTrue:[
-		self throwIOExceptionWithMessage:('no permission to open ' , name , ' for writing').
-		^ self
-	    ].
-	    readonly := (answer == #readonly).
-	    readonly ifFalse:[
-		(self confirm:('JAVA Security check\\Always permit writes in this directory (''' , dir , ''') ?') withCRs)
-		ifTrue:[
-		    PermittedDirectories isNil ifTrue:[
-			PermittedDirectories := Set new
-		    ].
-		    PermittedDirectories add:dir.
-		]
-	    ]
-	]
-].
-readonly ifTrue:[
-	stream := name asFilename readStream.
-] ifFalse:[
-	stream := name asFilename readWriteStream.
-].
-stream isNil ifTrue:[
-	self throwIOExceptionWithMessage:('cannot open ' , name , ' for writing').
-].
-fileNo := self addOpenFile:stream.
-FileOpenTrace ifTrue:[
-	('JAVA: opened ' , name , ' as FD ' , fileNo printString , ' for writing') infoPrintCR.
-].
-fd instVarNamed:'fd' put:fileNo.
-"Created: / 4.2.1998 / 00:14:48 / cg"
-"Modified: / 12.11.1998 / 21:29:46 / cg"
-!
-_RandomAccessFile_read:nativeContext
-|file byte|
-file := self validateFile:(nativeContext receiver).
-FileIOTrace ifTrue:[
-	('JAVA: read 1 byte from ' , file pathName) infoPrintCR.
-].
-byte := file nextByte.
-byte isNil ifTrue:[
-	^ -1
-].
-^ byte
-"Modified: / 5.1.1998 / 02:17:25 / cg"
-"Created: / 27.1.1999 / 19:01:15 / cg"
-!
-_RandomAccessFile_readBytes:nativeContext
-^ self anyStream_readBytes:nativeContext
-"Modified: / 4.2.1998 / 15:23:27 / cg"
-!
-_RandomAccessFile_seek:nativeContext
-|file pos|
-file := self validateFile:(nativeContext receiver).
-FileIOTrace ifTrue:[
-	('JAVA: seek on ' , file pathName) infoPrintCR.
-].
-pos := nativeContext argAt:1.
-file position:pos+1 "/ ST/X position starts at 1
-"Created: / 4.2.1998 / 13:25:38 / cg"
-"Modified: / 4.2.1998 / 13:28:12 / cg"
-!
-_RandomAccessFile_writeBytes:nativeContext
-^ self anyStream_writeBytes:nativeContext
-"Modified: / 4.2.1998 / 15:24:20 / cg"
-"Created: / 4.2.1998 / 15:24:35 / cg"
-!
-_ResourceBundle_getClassContext:nativeContext
-"returns an array filled with the contextChain receivers classes.
-What an ugly, messy interface."
-|chain con cls jClass|
-chain := OrderedCollection new.
-con := thisContext sender.
-[
-con notNil
-and:[con receiver isMethod not or:[con receiver isJavaMethod not]]
-] whileTrue:[con := con sender.].
-con := con sender.
-[con notNil] whileTrue:[
-(true) "con isJavaContext" ifTrue:[
-cls := con receiver class.
-cls isMeta ifTrue:[
-"/ t'was a static method
-cls := cls soleInstance
-].
-cls isJavaClass ifTrue:[
-jClass := self reflection javaClassObjectForClass:cls.
-chain add:jClass.
-]
-].
-con := con sender.
-].
-^ chain asArray
-"Created: / 05-01-1998 / 02:47:00 / cg"
-"Modified: / 24-12-1998 / 00:34:57 / cg"
-"Modified: / 28-01-2011 / 15:31:28 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 03-02-2011 / 21:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Runtime_buildLibName:nativeContext
-|jPath jFileName path fileName libName|
-jPath := nativeContext argAt:1.
-jFileName := nativeContext argAt:2.
-path := Java as_ST_String:jPath.
-fileName := Java as_ST_String:jFileName.
-path = '__builtIn__' ifTrue:[
-	libName := path , '/' , fileName
-] ifFalse:[
-	libName := path , '/lib' , fileName , '.so'.
-].
-^ Java as_String:libName.
-"Modified: / 8.8.1997 / 12:05:05 / cg"
-"Created: / 4.1.1998 / 19:07:14 / cg"
-!
-_Runtime_execInternal:nativeContext
-"Run a unix-command; return a process object."
-|cmdAndArgArray envArray cmd jProcessClass jProcess|
-cmdAndArgArray := nativeContext argAt:1.
-envArray := nativeContext argAt:2.
-cmd := cmdAndArgArray at:1.
-OperatingSystem isUNIXlike ifTrue:[
-	jProcessClass := Java classForName:'java.lang.UNIXProcess'.
-] ifFalse:[
-	jProcessClass := Java classForName:'java.lang.Win32Process'.
-].
-"/
-jProcessClass notNil ifTrue:[
-self halt.
-	jProcess := jProcessClass newCleared.
-	jProcess
-	    perform:#'<init>([Ljava/lang/String;[Ljava/lang/String;)V'
-	    with:cmdAndArgArray
-	    with:envArray.
-	^ jProcess
-].
-self halt.
-self throwIOExceptionWithMessage:'Process execution disabled/unimplemented'.
-^ nil
-"Created: / 15.1.1998 / 01:50:31 / cg"
-"Modified: / 11.12.1998 / 13:09:36 / cg"
-!
-_Runtime_exitInternal:nativeContext
-"exit - here, we only shut down java threads"
-|enteredMonitors|
-ExitDebug == true ifTrue:[
-	self halt:'Java code called exit'.
-].
-self syncMonitorCache.
-(enteredMonitors := self enteredMonitors) size > 0 ifTrue:[
-	enteredMonitors do:[:handle |
-	    | mon |
-	    mon := LockTable at:handle ifAbsent:nil.
-	    mon isNil ifTrue:[
-		self halt:'no monitor in exitInternal'.
-	    ] ifFalse:[
-		mon exit.
-('====> terminateThread - exit monitor for ' , handle displayString , ' in ' , Processor activeProcess name , ' ...') infoPrintCR.
-	    ].
-	].
-].
-"/ TODO: shut down all threads created by this one ...
-AbortSignal raise.
-self halt.
-"Created: / 7.1.1998 / 22:48:51 / cg"
-"Modified: / 8.1.1999 / 14:09:36 / cg"
-!
-_Runtime_freeMemory:nativeContext
-"free memory - Returns the number of free bytes"
-^ ObjectMemory freeListSpace + ObjectMemory freeSpace
-"Created: / 12.1.1998 / 12:59:53 / cg"
-!
-_Runtime_gc:nativeContext
-"Runs the garbage collector.
-Ignored, since the ST-gc runs all the time."
-^ self
-"Modified: / 12.1.1998 / 12:58:32 / cg"
-!
-_Runtime_initializeLinkerInternal:nativeContext
-"init sharedLib linker, return searchPath as javaString"
-|path|
-"/ mhmh - what is done here ?
-path := ''.
-LibPath do:[:comp | path size == 0 ifTrue:[
-			    path := path , comp
-			] ifFalse:[
-			    path := path , ':' , comp
-			]
-	       ].
-^ Java as_String:path
-"Modified: / 7.8.1997 / 21:17:03 / cg"
-"Created: / 4.1.1998 / 17:53:15 / cg"
-!
-_Runtime_isInputStreamLocalised:nativeContext
-"/ boolean isInputStreamLocalised (java.io.DataInputStream)
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 03:03:01 / cg"
-!
-_Runtime_isOutputStreamLocalised:nativeContext
-"/ boolean isOutputStreamLocalised (java.io.DataOutputStream)
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 03:02:49 / cg"
-!
-_Runtime_loadFileInternal:nativeContext
-"load a sharedLib, return boolean 0 (false) if fail; 1 (true) if ok"
-|ret|
-ret := self _Runtime_loadFileInternalI:nativeContext.
-ret < 0 ifTrue:[ ret := 0 ].
-^ ret
-"Created: / 4.1.1998 / 19:10:20 / cg"
-"Modified: / 4.1.1998 / 19:11:04 / cg"
-!
-_Runtime_loadFileInternalI:nativeContext
-"1.1b3 change; load a sharedLib like 'loadFileInternal',
-but return integer:
-	-1   outOfMemory error
-	0    failed to load
-	1    loaded or already loaded (i.e. ok)"
-|jLibName libName libHandle|
-jLibName := nativeContext argAt:1.
-libName := Java as_ST_String:jLibName.
-(SimulatedLibs includes:libName) ifTrue:[
-"/        ('JAVA: builtIn libLoad simulated: ' , libName) printNL.
-	^ 1
-].
-(LoadedLibs notNil and:[LoadedLibs includesKey:libName]) ifTrue:[
-"/        ('JAVA: already loaded: ' , libName) printNL.
-	^ 1
-].
-libName asFilename exists ifFalse:[
-	('JAVA: no file to load: ' , libName) printNL.
-	^ 0
-].
-(self confirm:'permission to load native library: ' , libName , ' ?') ifFalse:[
-	^ 0
-].
-libHandle := ObjectFileLoader loadLibrary:libName.
-libHandle isNil ifTrue:[
-	('JAVA: failed to load: ' , libName) printNL.
-	^ 0
-].
-LoadedLibs isNil ifTrue:[
-	LoadedLibs := Dictionary new.
-].
-LoadedLibs at:libName put:libHandle.
-^ 1
-"Created: / 4.1.1998 / 19:10:54 / cg"
-"Modified: / 6.2.1998 / 03:11:59 / cg"
-!
-_Runtime_runFinalization:nativeContext
-"/ void runFinalization ()
-"/    UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:59:01 / cg"
-!
-_Runtime_runFinalizersOnExit0:nativeContext
-""
-|onOff|
-onOff := nativeContext argAt:1.
-^ 1
-"Modified: / 6.2.1998 / 03:11:59 / cg"
-"Created: / 15.10.1998 / 23:34:55 / cg"
-!
-_Runtime_setInputStreamLocalised:nativeContext
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:02:27 / cg"
-!
-_Runtime_setOutputStreamLocalised:nativeContext
-UnimplementedNativeMethodSignal raise.
-"Modified: / 27.1.2000 / 03:02:32 / cg"
-!
-_Runtime_totalMemory:nativeContext
-"free memory - Returns the total number of bytes"
-^ ObjectMemory oldSpaceSize + ObjectMemory newSpaceSize
-"Created: / 12.1.1998 / 12:59:23 / cg"
-!
-_Runtime_traceInstructions:nativeContext
-"/ void traceInstructions (boolean)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:59:18 / cg"
-!
-_Runtime_traceMethodCalls:nativeContext
-"/ void traceMethodCalls (boolean)
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:59:37 / cg"
-!
-_ScrollPane_initIDs:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 28.1.1998 / 22:19:23 / cg"
-!
-_SecurityManager_classDepth:nativeContext
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:56:27 / cg"
-!
-_SecurityManager_classLoaderDepth:nativeContext
-|con depth|
-con := thisContext sender.
-depth := 1.
-[con notNil] whileTrue:[
-	con receiver == JavaClassReader classLoaderQuerySignal ifTrue:[
-	    con selector == #handle:do: ifTrue:[
-		depth := depth + 1
-	    ]
-	].
-	con := con sender.
-].
-'JAVA: classLoaderDepth -> ' infoPrint. depth infoPrintCR.
-^ depth.
-"Created: / 13.1.1998 / 09:21:46 / cg"
-"Modified: / 13.1.1998 / 09:33:43 / cg"
-!
-_SecurityManager_currentClassLoader:nativeContext
-|loader|
-loader := JavaClassReader classLoaderQuerySignal query.
-"/ 'JAVA: currentClassLoader -> ' infoPrint. loader displayString infoPrintCR.
-^ loader.
-"Created: / 13.1.1998 / 09:23:28 / cg"
-"Modified: / 11.12.1998 / 12:39:59 / cg"
-!
-_SecurityManager_currentLoadedClass0:nativeContext
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:56:41 / cg"
-!
-_SecurityManager_getClassContext:nativeContext
-UnimplementedNativeMethodSignal raise
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:56:06 / cg"
-!
-_SocketInputStream_socketRead:nativeContext
-^ self anyStream_readBytes:nativeContext
-"Created: / 25.1.1998 / 20:56:53 / cg"
-"Modified: / 4.2.1998 / 15:52:31 / cg"
-!
-_SocketOutputStream_socketWrite:nativeContext
-^ self anyStream_writeBytes:nativeContext
-"Created: / 25.1.1998 / 21:06:55 / cg"
-"Modified: / 4.2.1998 / 15:52:40 / cg"
-!
-_String_compareTo:nativeContext
-"int compareTo (java.lang.String)"
-|jString1 jString2|
-jString1 := nativeContext receiver.
-jString2 := nativeContext argAt:1.
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:28:59 / cg"
-!
-_String_equals:nativeContext
-|jString1 jString2|
-jString1 := nativeContext receiver.
-jString2 := nativeContext argAt:1.
-^ (jString1 instVarAt:1) = (jString2 instVarAt:1)
-"Created: / 18.11.1998 / 00:52:03 / cg"
-"Modified: / 18.11.1998 / 00:53:01 / cg"
-!
-_String_equalsIgnoreCase:nativeContext
-"boolean equalsIgnoreCase (java.lang.String)"
-|jString1 jString2|
-self halt:'untested'.
-jString1 := nativeContext receiver.
-jString2 := nativeContext argAt:1.
-^ (jString1 instVarAt:1) sameAs: (jString2 instVarAt:1)
-"Modified: / 18.11.1998 / 00:53:01 / cg"
-"Created: / 27.1.2000 / 02:27:46 / cg"
-!
-_String_indexOf:nativeContext
-"int indexOf (java.lang.String int)"
-|jString1 jString2 idx|
-jString1 := nativeContext receiver.
-jString2 := nativeContext argAt:1.
-idx := nativeContext argAt:2.
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:30:22 / cg"
-!
-_String_lastIndexOf:nativeContext
-"int lastIndexOf (java.lang.String int)"
-|jString1 jString2 idx|
-jString1 := nativeContext receiver.
-jString2 := nativeContext argAt:1.
-idx := nativeContext argAt:2.
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:33:59 / cg"
-!
-_String_length:nativeContext
-|jString|
-jString := nativeContext receiver.
-^ (jString instVarAt:3)
-"Created: / 18.11.1998 / 00:53:50 / cg"
-"Modified: / 18.11.1998 / 00:54:18 / cg"
-!
-_String_regionMatches2:nativeContext
-"boolean regionMatches (boolean int java.lang.String int int)"
-|jString1 bool jString2 idx1 idx2|
-jString1 := nativeContext receiver.
-bool := nativeContext argAt:1.
-jString2 := nativeContext argAt:2.
-idx1 := nativeContext argAt:3.
-idx2 := nativeContext argAt:4.
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:33:40 / cg"
-!
-_String_regionMatches:nativeContext
-"boolean regionMatches (int java.lang.String int int)"
-|jString1 jString2 idx1 idx2|
-jString1 := nativeContext receiver.
-jString2 := nativeContext argAt:1.
-idx1 := nativeContext argAt:2.
-idx2 := nativeContext argAt:3.
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:32:29 / cg"
-!
-_String_startsWith:nativeContext
-"boolean startsWith (java.lang.String int)"
-|jString1 jString2 idx|
-jString1 := nativeContext receiver.
-jString2 := nativeContext argAt:1.
-idx := nativeContext argAt:2.
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:31:40 / cg"
-!
-_SystemColor_GetSysColor:nativeContext
-"/ int GetSysColor (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 27.1.2000 / 02:44:41 / cg"
-!
-_SystemResourceManager_getEntryFromKey:nativeContext
-"get a resource by name"
-|key s|
-key := nativeContext argAt:1.
-s := Java effectiveClassPath at:(key+1) ifAbsent:nil.
-s isNil ifTrue:[^ nil].
-^ Java as_String:s
-"Modified: / 22-11-2010 / 13:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_SystemResourceManager_validateSystemResource:nativeContext
-"check a resource"
-|bool str1 str2|
-bool := nativeContext argAt:1.
-str1 := nativeContext argAt:2.
-str2 := nativeContext argAt:3.
-^ 1 "/ true
-!
-_System_getCallerClass:nativeContext
-"/ introduced with jdk1.2
-|senderContext cls|
-senderContext := nativeContext sender.
-[senderContext receiver == (Java at:'java.lang.System')] whileTrue:[
-	senderContext := senderContext sender.
-].
-senderContext method isStatic ifTrue:[
-	cls := senderContext receiver
-] ifFalse:[
-	cls := senderContext receiver class
-].
-cls isJavaClass ifTrue:[
-	^ self javaClassObjectForClass:cls
-].
-(cls isMemberOf:(Java at:'java.lang.Class')) ifTrue:[
-	^ Java at:'java.lang.Class'
-].
-self halt.
-^ nil
-"Modified: / 27.1.1998 / 18:33:13 / cg"
-!
-_System_identityHashCode:nativeContext
-|obj|
-obj := nativeContext argAt:1.
-^ obj identityHash
-"Modified: / 12.11.1998 / 18:52:07 / cg"
-"Created: / 12.11.1998 / 18:54:00 / cg"
-!
-_System_validateSecurityManager:nativeContext
-"void validateSecurityManager (java.lang.SecurityManager)"
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:43:25 / cg"
-!
-_ThreadGroup_initMainThreadGroup0:nativeContext
-"void initMainThreadGroup0 (java.lang.ThreadGroup)"
-UnimplementedNativeMethodSignal raise.
-"Created: / 27.1.2000 / 02:45:52 / cg"
-!
-_Thread_countStackFrames:nativeContext
-"/ int countStackFrames ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:06:21 / cg"
-!
-_Thread_interrupt0:nativeContext
-"ask if a thread is interrupted (clear interruptState if arg is true)"
-|jThread stProcess|
-jThread := nativeContext receiver.
-stProcess := self stProcessForJavaThread:jThread.
-stProcess isNil ifTrue:[
-	self halt.
-	^ 0
-].
-stProcess markInterrupted
-"Modified: / 2.1.1998 / 21:49:06 / cg"
-"Created: / 10.4.1998 / 15:21:43 / cg"
-!
-_Thread_isInterrupted:nativeContext
-"ask if a thread is interrupted (clear interruptState if arg is true)"
-|jThread stProcess clearInterrupt rslt|
-jThread := nativeContext receiver.
-stProcess := self stProcessForJavaThread:jThread.
-stProcess isNil ifTrue:[
-	self halt.
-	^ 0
-].
-clearInterrupt := nativeContext argAt:1.
-rslt := stProcess isInterrupted ifTrue:[1] ifFalse:[0].
-clearInterrupt ~~ 0 ifTrue:[stProcess clearInterruptActions].
-^ rslt
-"Modified: / 2.1.1998 / 21:49:06 / cg"
-"Created: / 7.1.1998 / 18:50:26 / cg"
-!
-_Thread_resume0:nativeContext
-"yield"
-|jThread stProcess|
-jThread := nativeContext receiver.
-stProcess := JavaVM stProcessForJavaThread:jThread.
-stProcess isNil ifTrue:[
-	ThreadTrace == true ifTrue:[
-	    ('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
-	].
-	^ nil "void"
-].
-stProcess resume
-"Created: / 8.1.1998 / 01:06:27 / cg"
-"Modified: / 6.2.1998 / 02:15:08 / cg"
-!
-_Thread_sleep:nativeContext
-"sleep for some milliseconds "
-|millis|
-millis := nativeContext argAt:1.
-self waitFor:nil state:nil timeOut:(millis max:50)
-"Modified: / 8.1.1999 / 16:42:52 / cg"
-!
-_Thread_start:nativeContext
-"start the thread"
-|jThread jName name stProcess|
-jThread := nativeContext receiver.
-(jThread instVarNamed:'priority') < 1 ifTrue:[
-self halt.
-jThread instVarNamed:'priority' put:1.
-].
-stProcess := JavaProcess
-for:[
-|procName|
-Object abortSignal handle:[:ex |
-procName := stProcess name.
-(procName startsWith:'JAVA-AWT-EventQueue') ifTrue:[
-('JAVA [info]: thread ' , procName , ' aborted - restarting process.') infoPrintCR.
-ex restart.
-] ifFalse:[
-(stProcess == JavaScreenUpdaterThread
-or:[stProcess == JavaEventQueueThread]) ifTrue:[
-('JAVA [info]: thread ' , procName , ' aborted - restarting process.') infoPrintCR.
-ex restart
-] ifFalse:[
-('JAVA [info]: thread ' , procName , ' aborted.') infoPrintCR.
-]
-].
-] do:[
-[
-JavaVM javaExceptionSignal handle:[:ex |
-|exClass|
-procName := stProcess name.
-exClass := ex parameter class.
-exClass == (Java at:'java.lang.ThreadDeath') ifTrue:[
-('JAVA: thread ' , procName , ' terminated') infoPrintCR.
-] ifFalse:[
-Transcript
-showCR:('JAVA: thread '''
-, procName
-, ''' terminated with exception: '
-, exClass name).
-].
-ex return.
-] do:[
-Object messageNotUnderstoodSignal handle:[:ex |
-"/ remap doesNotUnderstand with nil-receiver to
-"/ a nullPointerException ...
-|con m|
-con := ex suspendedContext.
-con receiver isNil ifTrue:[
-((m := con sender method) notNil
-and:[m isJavaMethod]) ifTrue:[
-self throwNullPointerException.
-AbortSignal raise. "/ ex proceed.
-]
-].
-ex reject.
-] do:[
-"/ Transcript showCR:(Timestamp now printString , 'start thread: ', stProcess name).
-jThread perform:#'run()V'.
-ThreadTrace == true ifTrue:[
-('JAVA: thread ' , stProcess name , ' terminated') infoPrintCR.
-].
-jThread perform:#'exit()V'.
-ThreadTrace == true ifTrue:[
-('JAVA: after exit of thread ' , stProcess name) infoPrintCR.
-]
-]
-]
-] ensure:[
-|monitors|
-monitors := EnteredMonitorsPerProcess at:stProcess ifAbsent:nil.
-monitors notNil ifTrue:[
-monitors do:[:obj |
-| mon |
-mon := self monitorFor:obj.
-mon notNil ifTrue:[
-mon owningProcess == stProcess ifTrue:[
-('JAVA: release monitor owned by dying thread: ' , stProcess name) infoPrintCR.
-mon exit
-].
-].
-].
-EnteredMonitorsPerProcess removeKey:stProcess.
-stProcess == JavaScreenUpdaterThread ifTrue:[
-JavaScreenUpdaterThread := nil.
-].
-stProcess == JavaEventQueueThread ifTrue:[
-JavaEventQueueThread := nil.
-].
-"/                                    screenUpdaterClass := Java at:'sun.awt.ScreenUpdater'.
-"/                                    screenUpdaterClass notNil ifTrue:[
-"/                                        screenUpdaterClass instVarNamed:'updater' put:nil.
-"/                                    ].
-].
-Java threads removeKey:jThread ifAbsent:[].
-]
-]
-]
-priority:(Processor activePriority).
-jName := jThread instVarNamed:'name'.
-jName isString ifFalse:[
-name := Java as_ST_String:jName.
-] ifTrue:[
-name := jName
-].
-"/ kludge - remember the ScreenUpdater ...
-name = 'Screen Updater' ifTrue:[
-JavaScreenUpdaterThread := stProcess.
-] ifFalse:[
-name = 'AWT-Windows' ifTrue:[
-JavaEventThread := stProcess.
-] ifFalse:[
-(name startsWith:'AWT-EventQueue') ifTrue:[
-JavaEventQueueThread := stProcess.
-].
-]
-].
-"/name = 'UserDialogShowThread' ifTrue:[
-"/self halt
-"/].
-"/ when that process terminates, wakup any waiters
-stProcess addExitAction:[self wakeup:jThread].
-stProcess name:'JAVA-' , name.
-stProcess restartable:true.
-stProcess resume.
-Java threads at:jThread put:stProcess.
-^ nil
-"Created: / 3.1.1998 / 02:05:52 / cg"
-"Modified: / 24.12.1999 / 03:14:33 / cg"
-!
-_Thread_stop0:nativeContext
-"terminate a thread"
-|jThread stProcess death|
-jThread := nativeContext receiver.
-stProcess := JavaVM stProcessForJavaThread:jThread.
-stProcess isNil ifTrue:[
-ThreadTrace == true ifTrue:[
-('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
-].
-^ nil "void"
-].
-stProcess == JavaScreenUpdaterThread ifTrue:[self halt].
-stProcess == JavaEventQueueThread ifTrue:[self halt].
-death := nativeContext argAt:1.
-stProcess
-interruptWith:[
-JavaVM javaExceptionSignal handle:[:ex |
-Processor activeProcess == JavaScreenUpdaterThread ifTrue:[self halt].
-Processor activeProcess == JavaEventQueueThread ifTrue:[self halt].
-Processor activeProcess terminate
-] do:[
-ThreadTrace == true ifTrue:[
-('JAVA: thread exit: ' , jThread displayString) infoPrintNL.
-].
-jThread perform:#'exit()V'.
-self throwException:death.
-]
-].
-stProcess resume.
-[stProcess isDead] whileFalse:[
-stProcess resume.
-'JavaVM: wait for death' infoPrintCR.
-Delay waitForSeconds:0.1
-].
-stProcess terminate
-"Created: / 8.1.1998 / 13:11:17 / cg"
-"Modified: / 24.12.1999 / 02:32:45 / cg"
-!
-_Thread_suspend0:nativeContext
-"yield"
-|jThread stProcess|
-jThread := nativeContext receiver.
-stProcess := JavaVM stProcessForJavaThread:jThread.
-stProcess isNil ifTrue:[
-	ThreadTrace == true ifTrue:[
-	    ('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
-	].
-	^ nil "void"
-].
-stProcess suspend
-"Created: / 8.1.1998 / 01:05:49 / cg"
-"Modified: / 6.2.1998 / 02:15:23 / cg"
-!
-_Thread_yield:nativeContext
-"yield"
-|jThread stProcess|
-Processor yield.
-"/    jThread := nativeContext receiver.
-"/    stProcess := JavaVM stProcessForJavaThread:jThread.
-"/    stProcess isNil ifTrue:[
-"/        ThreadTrace == true ifTrue:[
-"/            ('JAVA: no stProcess for javaThread: ' , jThread displayString) printNL.
-"/        ].
-"/        ^ nil "void"
-"/    ].
-"/    stProcess == Processor activeProcess ifTrue:[
-"/        Processor yield.
-"/    ] ifFalse:[
-"/        self halt.
-"/    ].
-"Created: / 5.1.1998 / 02:03:51 / cg"
-"Modified: / 23.12.1998 / 19:19:17 / cg"
-!
-_Throwable_printStackTrace0:nativeContext
-|out outStream exceptionObject contextList|
-outStream := nativeContext argAt:1.
-exceptionObject := nativeContext receiver.
-contextList := exceptionObject instVarNamed:'backtrace'.
-out := self javaConsoleStream.
-out cr.
-out nextPutLine:'JAVA: stackTrace:'.
-contextList do:[:con |
-	out
-	    nextPutAll:'  ';
-	    nextPutAll:(con method javaClass fullName);
-	    nextPutAll:'.';
-	    nextPutAll:(con method selector);
-	    nextPutAll:' [';
-	    nextPutAll:(con method javaClass sourceFile);
-	    nextPutAll:' ';
-	    nextPutAll:(con quickLineNumber displayString);
-	    nextPutAll:']'.
-	out cr
-].
-out nextPutLine:'----------------------------------------------------'
-"Created: / 4.1.1998 / 14:27:40 / cg"
-"Modified: / 10.11.1998 / 14:19:32 / cg"
-!
-_Toolkit_initIDs:nativeContext
-"/ introduced with jdk1.2 ... (sigh)
-"Created: / 27.1.1998 / 19:53:50 / cg"
-!
-_URLConnection_close:nativeContext
-"/ void close ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:26:03 / cg"
-!
-_URLConnection_finalize:nativeContext
-"/ void finalize ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:25:22 / cg"
-!
-_URLConnection_getContentLength0:nativeContext
-"/ int getContentLength0 ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:25:34 / cg"
-!
-_URLConnection_getContentType0:nativeContext
-"/ java.lang.String getContentType0 ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:25:42 / cg"
-!
-_URLConnection_getHeaderField0:nativeContext
-"/ java.lang.String getHeaderField0 (java.lang.String)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:25:53 / cg"
-!
-_URLConnection_pCreate:nativeContext
-"/ void pCreate (java.lang.String java.lang.String)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:25:14 / cg"
-!
-_URLInputStream_available:nativeContext
-"/ int available ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:24:26 / cg"
-!
-_URLInputStream_open:nativeContext
-"/ void open ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:24:01 / cg"
-!
-_URLInputStream_read:nativeContext
-"/ int read (byte[] int int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:24:12 / cg"
-!
-_URLOutputStream_open:nativeContext
-"/ void open ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:24:38 / cg"
-!
-_URLOutputStream_pClose:nativeContext
-"/ void pClose ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:25:02 / cg"
-!
-_URLOutputStream_write:nativeContext
-"/ void write (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:24:45 / cg"
-!
-_URLOutputStream_writeBytes:nativeContext
-"/ void writeBytes (byte[] int int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:24:55 / cg"
-!
-_URLStreamHandlerFactory_pInit:nativeContext
-"/ self unimplementedNativeMethod.
-"Created: / 10.1.1998 / 15:47:24 / cg"
-!
-_URLStreamHandlerFactory_pSupportsProtocol:nativeContext
-"/ boolean pSupportsProtocol (java.lang.String)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:23:43 / cg"
-!
-_Unsafe_allocateInstance:nativeContext
-"
-/** Allocate an instance but do not run any constructor.
-Initializes the class if it has not yet been. */
-public native Object allocateInstance(Class cls)
-throws InstantiationException;
-"
-| cls |
-cls := self reflection classForJavaClassObject: (nativeContext argAt:1).
-cls classInit.
-^cls newCleared
-"Created: / 05-02-2011 / 23:10:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Unsafe_defineClass: nativeContext
-"
-/**
-* Tell the VM to define a class, without security checks.  By default, the
-* class loader and protection domain come from the caller's class.
-*/
-public native Class defineClass(String name, byte[] b, int off, int len,
-ClassLoader loader,
-ProtectionDomain protectionDomain);
-"
-| name b off len loader protectionDomain bs cls |
-name := nativeContext argAt: 1.
-b := nativeContext argAt: 2.
-off := nativeContext argAt: 3.
-len := nativeContext argAt: 4.
-loader := nativeContext argAt: 5.
-protectionDomain := nativeContext argAt: 6.
-bs := (off = 0 and: [len = b size])
-ifTrue:[b readStream]
-ifFalse:[(b copyFrom: off + 1 to: off + len) readStream].
-cls := JavaClassReader readStream: bs.
-cls classLoader: loader.
-^self reflection javaClassObjectForClass: cls.
-"Created: / 05-02-2011 / 22:57:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_VM_getState:nativeContext
-"/ int getState ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:06:44 / cg"
-!
-_VM_resetJavaMonitor:nativeContext
-"/ void resetJavaMonitor ()
-UnimplementedNativeMethodSignal raise
-"Created: / 14.11.1998 / 10:43:23 / cg"
-!
-_VM_resumeJavaMonitor:nativeContext
-"/ void resumeJavaMonitor ()
-UnimplementedNativeMethodSignal raise
-"Created: / 14.11.1998 / 10:42:49 / cg"
-!
-_VM_suspendJavaMonitor:nativeContext
-"/ void suspendJavaMonitor ()
-UnimplementedNativeMethodSignal raise
-"Created: / 14.11.1998 / 10:43:07 / cg"
-!
-_VM_threadsSuspended:nativeContext
-"/ boolean threadsSuspended ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:07:10 / cg"
-!
-_VM_unsuspendSomeThreads:nativeContext
-"/ void unsuspendSomeThreads ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:07:29 / cg"
-!
-_VM_unsuspendThreads:nativeContext
-"/ void unsuspendThreads ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:07:20 / cg"
-!
-_VM_writeJavaMonitorReport:nativeContext
-"/ void writeJavaMonitorReport ()
-UnimplementedNativeMethodSignal raise
-"Created: / 14.11.1998 / 10:43:37 / cg"
-!
-_WButtonPeer_create:nativeContext
-|jButtonPeer jButton jFrame frame button
-lbl|
-jButtonPeer := nativeContext receiver.
-jButton := jButtonPeer instVarNamed:'target'.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-button := Button in:frame.
-button sizeFixed:true.
-button action:[
-			jButtonPeer perform:#'handleAction()V'.
-		  ].
-lbl := jButton instVarNamed:'label'.
-lbl notNil ifTrue:[
-	lbl := Java as_ST_String:lbl.
-	button label:lbl
-].
-self createdWindowsView:button for:jButtonPeer.
-WindowCreationTrace == true ifTrue:[
-	'WButtonPeer_create: ' print. frame print. ' -> ' print. button printNL.
-].
-"Created: / 5.1.1998 / 01:53:30 / cg"
-"Modified: / 11.12.1998 / 00:19:22 / cg"
-!
-_WButtonPeer_setLabel:nativeContext
-|label jString|
-jString := nativeContext argAt:1.
-label := self viewForWPeer:nativeContext.
-label label:(Java as_ST_String:jString)
-"Modified: / 8.1.1998 / 17:35:50 / cg"
-"Created: / 1.2.1998 / 17:05:47 / cg"
-!
-_WCanvasPeer_create:nativeContext
-|jCanvasPeer jFrame frame subView|
-jCanvasPeer := nativeContext receiver.
-jFrame := nativeContext argAt:1.
-jFrame isNil ifTrue:[
-	self halt:'no frame in canvasPeer create'.
-	subView := JavaView new.
-"/        self internalError:'no frame in canvasPeer create'.
-"/        ^ self.
-] ifFalse:[
-	frame := jFrame instVarNamed:'pData'.
-	subView := JavaView in:frame.
-].
-subView delegate:self.
-subView javaPeer:jCanvasPeer.
-self createdWindowsView:subView for:jCanvasPeer.
-WindowCreationTrace == true ifTrue:[
-	'WCanvasPeer_create: ' print. frame print. ' -> ' print. subView printNL.
-].
-"Created: / 5.1.1998 / 00:59:19 / cg"
-"Modified: / 16.1.1998 / 13:40:00 / cg"
-!
-_WCheckboxMenuItemPeer_setState:nativeContext
-"/ void setState (boolean)
-"/    UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:14:35 / cg"
-"Modified: / 3.12.1998 / 21:41:13 / cg"
-!
-_WCheckboxPeer_create:nativeContext
-|jCheckboxPeer jCheckbox jFrame frame checkBox lbl|
-jCheckboxPeer := nativeContext receiver.
-jCheckbox := jCheckboxPeer instVarNamed:'target'.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-checkBox := CheckBox in:frame.
-checkBox action:[
-			jCheckboxPeer
-			    perform:#'handleAction(Z)V'
-			    with:(checkBox isOn ifTrue:[1] ifFalse:[0])
-		    ].
-lbl := jCheckbox instVarNamed:'label'.
-lbl notNil ifTrue:[
-	lbl := Java as_ST_String:lbl.
-	checkBox label:lbl
-].
-self createdWindowsView:checkBox for:jCheckboxPeer.
-WindowCreationTrace == true ifTrue:[
-	'WCheckboxPeer_create: ' print. frame print. ' -> ' print. checkBox printNL.
-].
-"Created: / 7.1.1998 / 21:48:03 / cg"
-"Modified: / 15.1.1998 / 12:27:04 / cg"
-!
-_WCheckboxPeer_setCheckboxGroup:nativeContext
-|checkBox jGroup|
-checkBox := self viewForWPeer:nativeContext.
-jGroup := nativeContext argAt:1.
-"Created: / 7.1.1998 / 21:48:47 / cg"
-"Modified: / 25.1.1998 / 01:20:42 / cg"
-!
-_WCheckboxPeer_setLabel:nativeContext
-"/ void setLabel (java.lang.String)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:14:53 / cg"
-!
-_WCheckboxPeer_setState:nativeContext
-|checkBox state|
-checkBox := self viewForWPeer:nativeContext.
-state := nativeContext argAt:1.
-state ~~ 0 ifTrue:[
-	checkBox turnOn
-] ifFalse:[
-	checkBox turnOff
-].
-"Created: / 7.1.1998 / 21:49:13 / cg"
-"Modified: / 25.1.1998 / 01:26:18 / cg"
-!
-_WChoicePeer_addItem:nativeContext
-|jString index comboBox|
-comboBox := self viewForWPeer:nativeContext.
-jString := nativeContext argAt:1.
-index := nativeContext argAt:2.
-comboBox model list addLast:(Java as_ST_String:jString).
-comboBox model changed:#list.
-"Created: / 7.1.1998 / 21:45:12 / cg"
-"Modified: / 24.1.1998 / 18:51:32 / cg"
-!
-_WChoicePeer_create:nativeContext
-|jChoicePeer jChoice jFrame frame comboBox|
-jChoicePeer := nativeContext receiver.
-jChoice := jChoicePeer instVarNamed:'target'.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-comboBox := ComboListView in:frame.
-comboBox model:(SelectionInList new list:(OrderedCollection new)).
-comboBox action:[:index |
-			jChoicePeer
-			    perform:#'handleAction(I)V'
-			    with:(comboBox model selectionIndex - 1)
-		    ].
-self createdWindowsView:comboBox for:jChoicePeer.
-WindowCreationTrace == true ifTrue:[
-	'WChoicePeer_create: ' print. frame print. ' -> ' print. comboBox printNL.
-].
-"Created: / 7.1.1998 / 21:44:31 / cg"
-"Modified: / 28.1.1998 / 23:19:17 / cg"
-!
-_WChoicePeer_remove:nativeContext
-"/ void remove (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:12:20 / cg"
-!
-_WChoicePeer_reshape:nativeContext
-self commonReshapeComponent:nativeContext.
-"/    self pReshape:nativeContext.
-^ self.
-"Created: / 7.1.1998 / 21:46:18 / cg"
-"Modified: / 23.12.1998 / 19:08:07 / cg"
-!
-_WChoicePeer_select:nativeContext
-|comboBox index|
-comboBox := self viewForWPeer:nativeContext.
-index := nativeContext argAt:1.
-comboBox model selectionIndex:(index + 1).  "/ JAVA indexing starts at 0
-"Created: / 7.1.1998 / 21:45:43 / cg"
-"Modified: / 25.1.1998 / 09:55:05 / cg"
-!
-_WClipboard_getClipboardText:nativeContext
-"/ java.lang.String getClipboardText ()
-|str|
-str := Screen current rootView getTextSelection.
-str isNil ifTrue:[
-	str := ''.
-].
-^ Java as_String:''.
-"Modified: / 10.12.1998 / 21:28:29 / cg"
-!
-_WClipboard_init:nativeContext
-"/ self halt.
-"Modified: / 18.3.1997 / 18:43:18 / cg"
-"Created: / 4.1.1998 / 19:03:59 / cg"
-!
-_WClipboard_setClipboardText:nativeContext
-"/ void setClipboardText (java.awt.datatransfer.StringSelection)
-|strSel data|
-strSel := nativeContext argAt:1.
-data := strSel instVarNamed:'data'.
-data class == (Java at:'java.lang.String') ifTrue:[
-	Screen current rootView setTextSelection:(Java as_ST_String:data)
-].
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:15:31 / cg"
-"Modified: / 10.12.1998 / 21:25:20 / cg"
-!
-_WColor_getDefaultColor:nativeContext
-|clrIndex jClr clr |
-clrIndex := nativeContext argAt:1.
-"/ windows defaults:
-"/  1: view background
-clrIndex == 1 ifTrue:[
-	clr := View defaultViewBackgroundColor.
-	clr isColor ifFalse:[
-	    clr := Color gray:50.
-	].
-].
-clrIndex == 2 ifTrue:[
-	clr := Color black.
-].
-clr isNil ifTrue:[
-	self halt.
-	self internalError:'breakpoint'.
-	^ nil.
-].
-clr := clr on:(Screen current).
-jClr := (Java classForName:'java.awt.Color') new.
-jClr instVarNamed:'pData' put:clr.
-jClr instVarNamed:'value' put:(clr rgbValue).
-"/ self halt.
-^ jClr.
-"Created: / 15.8.1997 / 15:38:10 / cg"
-"Modified: / 4.1.1998 / 18:06:51 / cg"
-!
-_WComponentPeer__beginValidate:nativeContext
-"/ void _beginValidate ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:10:08 / cg"
-!
-_WComponentPeer__dispose:nativeContext
-|view jPeer|
-view := self viewForWPeer:nativeContext.
-Object errorSignal catch:[
-	view destroy.
-].
-JavaWindowGroup removeView:view.
-jPeer := nativeContext receiver.
-jPeer instVarNamed:'pData' put:0.
-"Created: / 7.1.1998 / 22:36:25 / cg"
-"Modified: / 25.1.1998 / 16:43:06 / cg"
-!
-_WComponentPeer__setBackground:nativeContext
-|rgb clr view|
-view := self viewForWPeer:nativeContext.
-view isNil ifTrue:[^ self].
-rgb := nativeContext argAt:1.
-clr := Color rgbValue:rgb.
-"/ self halt.
-"/ self internalError:'breakPoint'.
-clr := clr on:(view device).
-"/    (view superView isMemberOf:JavaEmbeddedFrameView) ifTrue:[
-"/        view viewBackground:(view superView viewBackground).
-"/        view backgroundPaint:(view superView viewBackground).
-"/    ] ifFalse:[
-"/        (view isMemberOf:JavaView) ifTrue:[
-"/            view viewBackground:clr.
-"/            view backgroundPaint:clr.
-"/        ]
-"/    ].
-(view isKindOf:ScrollableView) ifTrue:[
-	view := view scrolledView
-].
-view viewBackground:clr.
-view backgroundPaint:clr.
-"Created: / 4.1.1998 / 18:07:39 / cg"
-"Modified: / 4.12.1998 / 17:26:06 / cg"
-!
-_WComponentPeer__setForeground:nativeContext
-|rgb clr view|
-view := self viewForWPeer:nativeContext.
-rgb := nativeContext argAt:1.
-clr := Color rgbValue:rgb.
-"/ self halt.
-"/ self internalError:'breakPoint'.
-clr := clr on:(view device).
-view paint:clr.
-"Created: / 4.1.1998 / 18:08:13 / cg"
-"Modified: / 8.1.1998 / 17:32:45 / cg"
-!
-_WComponentPeer_disable:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-Object errorSignal handle:[:ex |
-] do:[
-	view disable
-]
-"Created: / 6.1.1998 / 18:26:36 / cg"
-"Modified: / 8.1.1998 / 17:32:53 / cg"
-!
-_WComponentPeer_enable:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-Object errorSignal handle:[:ex |
-] do:[
-	view enable
-]
-"Modified: / 8.1.1998 / 17:32:53 / cg"
-"Created: / 13.1.1998 / 23:08:05 / cg"
-!
-_WComponentPeer_endValidate:nativeContext
-"/ void endValidate ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:10:20 / cg"
-!
-_WComponentPeer_getLocationOnScreen:nativeContext
-"/ java.awt.Point getLocationOnScreen ()
-|view p jP|
-view := self viewForWPeer:nativeContext.
-view isNil ifTrue:[^ nil].
-p := view originRelativeTo:nil.
-jP := (Java classForName:'java.awt.Point') basicNew.
-jP instVarNamed:'x' put:p x.
-jP instVarNamed:'y' put:p y.
-^ jP
-"Modified: / 5.12.1998 / 14:44:31 / cg"
-!
-_WComponentPeer_handleEvent:nativeContext
-"this is invoked by java, to let a widget handle any event which
-was not consumed (eaten) by java.
-If the view in question is some ST-widget, forward it.
-Ignore for JavaViews."
-|view jEv stEv ignore|
-view := self viewForWPeer:nativeContext.
-view notNil ifTrue:[
-	jEv := nativeContext argAt:1.
-	stEv := jEv instVarNamed:'data'.
-	(stEv notNil and:[stEv ~~ 0]) ifTrue:[
-	    ignore := true.
-	    view isJavaView ifFalse:[
-		ignore := false
-	    ] ifTrue:[
-		view isTopView ifTrue:[
-		    stEv type == #terminate ifTrue:[
-			ignore := false
-		    ].
-		]
-	    ].
-	    ignore ifFalse:[
-		EventTrace == true ifTrue:[
-		    ('JAVA: WComponent - handleEvent: ' , stEv type , ' for ' , view printString) infoPrintCR.
-		].
-		view dispatchEvent:stEv.
-		^ self.
-	    ].
-	    EventTrace == true ifTrue:[
-		('JAVA: WComponent - handleEvent ignored:' , stEv type) infoPrintCR.
-	    ].
-	    ^ self
-	]
-].
-EventTrace == true ifTrue:[
-	('JAVA: WComponent - handleEvent ignored') infoPrintCR.
-]
-"Created: / 6.1.1998 / 21:10:17 / cg"
-"Modified: / 11.12.1998 / 01:04:14 / cg"
-!
-_WComponentPeer_hide:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ view isPopUpView ifTrue:[self halt].
-Object errorSignal handle:[:ex |
-] do:[
-	view beInvisible
-]
-"Created: / 7.1.1998 / 22:35:32 / cg"
-"Modified: / 4.12.1998 / 17:53:41 / cg"
-!
-_WComponentPeer_nativeHandleEvent:nativeContext
-"this is invoked by java, to let a widget handle any event which
-was not consumed (eaten) by java.
-If the view in question is some ST-widget, forward it.
-Ignore for JavaViews."
-|view jEv stEv|
-^self.
-view := self viewForWPeer:nativeContext.
-view notNil ifTrue:[
-	(view isKindOf:JavaView) ifFalse:[
-	    jEv := nativeContext argAt:1.
-	    stEv := jEv instVarNamed:'data'.
-	    (stEv notNil and:[stEv ~~ 0]) ifTrue:[
-		EventTrace == true ifTrue:[
-		    ('JAVA: WComponent - handleEvent: ' , stEv type , ' for ' , view printString) infoPrintCR.
-		].
-		stEv sendEventWithFocusOn:nil.
-		^ self.
-	    ]
-	]
-].
-EventTrace == true ifTrue:[
-	('JAVA: WComponent - handleEvent ignored') infoPrintCR.
-]
-"Created: / 19.10.1998 / 21:26:16 / cg"
-"Modified: / 19.10.1998 / 23:26:37 / cg"
-!
-_WComponentPeer_requestFocus:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ 'getFocus - ' print. view displayString printCR.
-"/    view getKeyboardFocus
-"Created: / 7.1.1998 / 22:30:03 / cg"
-"Modified: / 4.12.1998 / 19:42:18 / cg"
-!
-_WComponentPeer_reshape:nativeContext
-self commonReshapeComponent:nativeContext
-"Modified: / 18.3.1997 / 19:30:21 / cg"
-"Created: / 4.1.1998 / 18:01:11 / cg"
-!
-_WComponentPeer_setBackground:nativeContext
-|jClr rgb clr view|
-view := self viewForWPeer:nativeContext.
-jClr := nativeContext argAt:1.
-rgb := jClr instVarNamed:'value'.
-"/ self halt.
-clr := Color rgbValue:rgb.
-clr := clr on:(view device).
-"/    (view superView isMemberOf:JavaEmbeddedFrameView) ifTrue:[
-"/        view viewBackground:(view superView viewBackground).
-"/        view backgroundPaint:(view superView viewBackground).
-"/    ] ifFalse:[
-"/        (view isMemberOf:JavaView) ifTrue:[
-"/            view viewBackground:clr.
-"/            view backgroundPaint:clr.
-"/        ]
-"/    ].
-(view isKindOf:ScrollableView) ifTrue:[
-	view := view scrolledView
-].
-view viewBackground:clr.
-view backgroundPaint:clr.
-"Created: / 16.10.1998 / 02:16:31 / cg"
-"Modified: / 16.10.1998 / 02:26:29 / cg"
-!
-_WComponentPeer_setCursor:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ self halt.
-"Created: / 5.1.1998 / 01:52:30 / cg"
-"Modified: / 25.1.1998 / 01:21:52 / cg"
-!
-_WComponentPeer_setFont:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ self halt.
-"Created: / 5.1.1998 / 00:55:17 / cg"
-"Modified: / 25.1.1998 / 01:22:19 / cg"
-!
-_WComponentPeer_setForeground:nativeContext
-|jClr rgb clr view|
-view := self viewForWPeer:nativeContext.
-jClr := nativeContext argAt:1.
-rgb := jClr instVarNamed:'value'.
-"/ self halt.
-clr := Color rgbValue:rgb.
-clr := clr on:(view device).
-(view isKindOf:ScrollableView) ifTrue:[
-	view := view scrolledView
-].
-view paint:clr.
-"Created: / 16.10.1998 / 02:18:58 / cg"
-"Modified: / 16.10.1998 / 02:26:37 / cg"
-!
-_WComponentPeer_setZOrderPosition:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/    self unimplementedNativeMethod.
-"/ self halt.
-"/ self internalError:'breakPoint'
-"Created: / 4.1.1998 / 17:59:26 / cg"
-"Modified: / 25.1.1998 / 01:22:32 / cg"
-!
-_WComponentPeer_show:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-"/ frame views are under my browsers own control
-(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
-	view beVisible.
-	view realize.
-].
-"/    view windowGroup notNil ifTrue:[
-"/        windowServer addGroup:(view windowGroup)
-"/    ].
-^ nil
-"/ self halt.
-"Created: / 5.1.1998 / 01:26:22 / cg"
-"Modified: / 4.12.1998 / 17:43:53 / cg"
-!
-_WComponentPeer_start:nativeContext
-"/ self halt.
-"Modified: / 18.3.1997 / 18:43:18 / cg"
-"Created: / 5.1.1998 / 00:58:40 / cg"
-!
-_WContainerPeer_calculateInsets:nativeContext
-"/ new with ns4.0 ...
-"Created: / 16.10.1998 / 02:12:59 / cg"
-!
-_WDefaultFontCharset_canConvert:nativeContext
-^ 1
-"Modified: / 21.8.1997 / 15:56:57 / cg"
-"Created: / 5.1.1998 / 01:55:47 / cg"
-!
-_WDialogPeer__hide:nativeContext
-|dialog|
-dialog := self viewForWPeer:nativeContext.
-dialog hide.
-"Created: / 7.1.1998 / 22:34:10 / cg"
-"Modified: / 8.1.1998 / 17:34:10 / cg"
-!
-_WDialogPeer__show:nativeContext
-|dialog|
-dialog := self viewForWPeer:nativeContext.
-"/
-"/ show does not work (yet); must setup windowgroup
-"/ for it to get events ...
-"/    dialog realize.
-dialog show.
-"/dialog fixSize.
-"/dialog makeFullyVisible.
-"/dialog openModal:[true] inGroup:JavaWindowGroup
-"Created: / 7.1.1998 / 21:52:15 / cg"
-"Modified: / 11.12.1998 / 14:43:05 / cg"
-!
-_WDialogPeer_create:nativeContext
-|jDialogPeer dialog|
-jDialogPeer := nativeContext receiver.
-dialog := ModalBox new.
-jDialogPeer instVarNamed:'pData' put:dialog.
-self createdWindowsView:dialog for:jDialogPeer.
-dialog windowGroup:JavaWindowGroup.
-JavaWindowGroup addTopView:dialog.
-WindowCreationTrace == true ifTrue:[
-	'WDialogPeer_create: ' print. dialog printNL.
-].
-"Created: / 7.1.1998 / 21:51:00 / cg"
-"Modified: / 15.1.1998 / 16:12:44 / cg"
-!
-_WDrawingSurfaceInfo_getDepth:nativeContext
-"/ int getDepth ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:21:00 / cg"
-!
-_WDrawingSurfaceInfo_getHBitmap:nativeContext
-"/ int getHBitmap ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:20:32 / cg"
-!
-_WDrawingSurfaceInfo_getHDC:nativeContext
-"/ int getHDC ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:20:50 / cg"
-!
-_WDrawingSurfaceInfo_getHPalette:nativeContext
-"/ int getHPalette ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:21:07 / cg"
-!
-_WDrawingSurfaceInfo_getHWnd:nativeContext
-"/ int getHWnd ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:20:23 / cg"
-!
-_WDrawingSurfaceInfo_getPBits:nativeContext
-"/ int getPBits ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:20:41 / cg"
-!
-_WDrawingSurfaceInfo_lock:nativeContext
-"/ int lock ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:20:00 / cg"
-!
-_WDrawingSurfaceInfo_unlock:nativeContext
-"/ void unlock ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:20:13 / cg"
-!
-_WEmbeddedFramePeer_create:nativeContext
-"/ void create (sun.awt.windows.WComponentPeer)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:16:09 / cg"
-!
-_WFileDialogPeer_show:nativeContext
-|jDialogPeer jDialog dialogView stDialog
-title dir pattern f|
-jDialogPeer := nativeContext receiver.
-jDialog := jDialogPeer instVarNamed:'target'.
-dialogView := jDialogPeer instVarNamed:'pData'.
-stDialog := FileSelectionBox new.
-dir := jDialog instVarNamed:'dir'.
-dir notNil ifTrue:[
-	stDialog directory:(Java as_ST_String:dir).
-].
-pattern := jDialog instVarNamed:'file'.
-pattern notNil ifTrue:[
-	stDialog pattern:(Java as_ST_String:pattern).
-].
-title := jDialog instVarNamed:'title'.
-title notNil ifTrue:[
-	stDialog title:(Java as_ST_String:title).
-	stDialog label:(Java as_ST_String:title).
-].
-stDialog show.
-stDialog accepted ifTrue:[
-	f := stDialog pathName.
-	"/ cannot use the one below - it has a builtIn fileSeparator if '\' (sigh)
-	"/ jDialogPeer perform:#'handleSelected(Ljava/lang/String;)V' with:(Java as_String:f).
-	jDialog
-	    perform:#'setFile(Ljava/lang/String;)V'
-	    with:(Java as_String:(f asFilename baseName)).
-	jDialog
-	    perform:#'setDirectory(Ljava/lang/String;)V'
-	    with:(Java as_String:(f asFilename directoryName , Filename separator asString)).
-	jDialog
-	    perform:#'setVisible(Z)V'
-	    with:0.
-] ifFalse:[
-	jDialogPeer
-	    perform:#'handleCancel()V'
-].
-"/ self halt.
-"Created: / 7.1.1998 / 22:38:45 / cg"
-"Modified: / 15.1.1998 / 13:04:05 / cg"
-!
-_WFontMetrics_bytesWidth:nativeContext
-"/ int bytesWidth (byte[] int int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:11:46 / cg"
-!
-_WFontMetrics_getMFCharSegmentWidth:nativeContext
-"get multi-font string-segment width.
-Not yet supported - use standard strings width"
-|jMetrics jFont jFontDescr stFont w
-bool1 cp offs lenght bp int1|
-jMetrics := nativeContext receiver.
-jFont := nativeContext argAt:1.
-jFontDescr := nativeContext argAt:2.
-bool1 := nativeContext argAt:3.
-cp := nativeContext argAt:4.
-offs := nativeContext argAt:5.
-lenght := nativeContext argAt:6.
-bp := nativeContext argAt:7.
-int1 := nativeContext argAt:8.
-stFont := jFont instVarNamed:'pData'.
-(stFont isNil or:[stFont == 0]) ifTrue:[
-	self halt
-].
-stFont device isNil ifTrue:[
-	stFont := stFont on:Display.
-	jFont instVarNamed:'pData' put:stFont.
-].
-w := stFont widthOf:cp from:offs+1 to:offs+lenght.
-^ w.
-"Created: / 5.1.1998 / 01:57:45 / cg"
-"Modified: / 13.1.1998 / 23:44:03 / cg"
-!
-_WFontMetrics_init:nativeContext
-|jMetrics jFont stFont widths family name style size|
-jMetrics := nativeContext receiver.
-jFont := jMetrics instVarNamed:'font'.
-family := jFont instVarNamed:'family'.
-family := Java as_ST_String:family.
-name := jFont instVarNamed:'name'.
-name := Java as_ST_String:name.
-style := jFont instVarNamed:'style'.
-size := jFont instVarNamed:'size'.
-stFont := Font family:family size:size.
-stFont isNil ifTrue:[
-stFont := Font family:'helvetica' size:size.
-].
-stFont := stFont on:Display.
-self halt.
-"/    stFont := jFont instVarNamed:'pData'.
-"/    stFont isNil ifTrue:[
-"/        self halt
-"/    ].
-stFont := stFont on:Display.
-jFont instVarNamed:'pData' put:stFont.
-jMetrics instVarNamed:'ascent'     put:stFont ascent.
-jMetrics instVarNamed:'descent'    put:stFont descent.
-jMetrics instVarNamed:'leading'    put:0.
-jMetrics instVarNamed:'height'     put:stFont height.
-jMetrics instVarNamed:'maxAscent'  put:stFont maxAscent.
-jMetrics instVarNamed:'maxDescent' put:stFont maxDescent.
-jMetrics instVarNamed:'maxHeight'  put:stFont maxHeight.
-jMetrics instVarNamed:'maxAdvance' put:stFont maxWidth.
-widths := Array new:256.
-0 to:255 do:[:i |
-widths at:(i+1) put:(stFont widthOf:(Character value:i))
-].
-jMetrics instVarNamed:'widths' put:widths.
-"/ self halt.
-"Modified: / 8.8.1997 / 12:06:53 / cg"
-"Created: / 5.1.1998 / 01:54:29 / cg"
-!
-_WFontMetrics_needsConversion:nativeContext
-|jFont jFontDescr stFont|
-jFont := nativeContext argAt:1.
-jFontDescr := nativeContext argAt:2.
-stFont := jFont instVarNamed:'pData'.
-"/    stFont isNil ifTrue:[
-"/        self halt
-"/    ].
-"/    stFont device isNil ifTrue:[
-"/        stFont := stFont on:Display.
-"/        jFont instVarNamed:'pData' put:stFont.
-"/    ].
-"/
-^ 0
-"Modified: / 17.8.1997 / 17:16:29 / cg"
-"Created: / 5.1.1998 / 01:56:42 / cg"
-!
-_WFramePeer__setIconImage:nativeContext
-|frame imgRep image|
-frame := self viewForWPeer:nativeContext.
-imgRep := nativeContext argAt:1.
-imgRep notNil ifTrue:[
-	image := imgRep instVarNamed:'pData'.
-	(image notNil and:[image ~~ 0]) ifTrue:[
-	    frame icon:image.
-	]
-].
-"Created: / 27.4.1998 / 17:15:09 / cg"
-"Modified: / 27.4.1998 / 17:18:24 / cg"
-!
-_WFramePeer_create:nativeContext
-|jFramePeer jFrame top frame pDataIdx|
-jFramePeer := nativeContext receiver.
-"/ for now: a kludge to create an embedded frame for
-"/ mozillaFrames
-jFrame := jFramePeer instVarNamed:'target'.
-(jFrame notNil
-and:[(pDataIdx := jFrame class instVarOffsetOf:'pData') notNil])
-ifTrue:[
-	((frame := jFrame instVarAt:pDataIdx) notNil
-	and:[frame ~~ 0]) ifTrue:[
-	    WindowCreationTrace == true ifTrue:[
-		'JAVA: targetFrame view already created: ' infoPrintCR.
-	    ].
-	    "/ sigh; pData was renamed to pNativeWidget in jdk1.2 ...
-	    pDataIdx := jFramePeer class instVarOffsetOf:'pNativeWidget'.
-	    pDataIdx isNil ifTrue:[
-		"/ ok, we are < 1.2
-		pDataIdx := jFramePeer class instVarOffsetOf:'pData'.
-	    ].
-	    jFramePeer instVarAt:pDataIdx put:frame.
-	]
-] ifFalse:[
-	frame := jFramePeer instVarNamed:'pData'
-].
-(frame notNil and:[frame ~~ 0]) ifTrue:[
-	WindowCreationTrace == true ifTrue:[
-	    'JAVA: frame view already created: ' infoPrint.
-	    jFramePeer class name infoPrintCR.
-	].
-] ifFalse:[
-"/ OLD
-"/        frame := StandardSystemView new.
-"/        self createdWindowsView:frame for:jFramePeer.
-"/        JavaWindowGroup addTopView:frame.
-	frame := JavaTopView new.
-	frame delegate:self.
-	frame javaPeer:jFramePeer.
-	self createdWindowsView:frame for:jFramePeer.
-	JavaWindowGroup addTopView:frame.
-"/        top := StandardSystemView new.
-"/        frame := JavaView origin:0.0@0.0 corner:1.0@1.0 in:top.
-"/        frame delegate:self.
-"/        frame javaPeer:jFramePeer.
-"/        self createdWindowsView:frame for:jFramePeer.
-"/        JavaWindowGroup addTopView:top.
-].
-WindowCreationTrace == true ifTrue:[
-	'JAVA: WFramePeer_create: ' print. jFramePeer displayString print.
-	' frame: ' print. frame printNL.
-].
-"Created: / 4.1.1998 / 17:56:39 / cg"
-"Modified: / 3.12.1998 / 00:10:21 / cg"
-!
-_WFramePeer_setMenuBar0:nativeContext
-|frame jMenuBarPeer menuPanel|
-frame := self viewForWPeer:nativeContext.
-jMenuBarPeer := nativeContext argAt:1.
-jMenuBarPeer isNil ifTrue:[
-	"/ mhmh - JAVA wants to remove the frames menuPanel.
-	"/ but I have no handle on it (for destroy).
-	"/ search it in subViews of the frame.
-	frame subViews copy do:[:v |
-	    (v isKindOf:MenuPanel) ifTrue:[
-		v destroy
-	    ]
-	]
-] ifFalse:[
-	menuPanel := jMenuBarPeer instVarNamed:'pData'.
-	menuPanel origin:0.0@0.0 corner:1.0@(menuPanel preferredExtent y).
-	frame addSubView:menuPanel.
-].
-^ nil
-"Created: / 7.1.1998 / 21:41:35 / cg"
-"Modified: / 8.1.1998 / 17:35:04 / cg"
-!
-_WFramePeer_setResizable:nativeContext
-|view onOff|
-view := self viewForWPeer:nativeContext.
-onOff := (nativeContext argAt:1) == 1.
-view isTopView ifTrue:[
-	onOff ifTrue:[
-	    view minExtent:10@10.
-	    view maxExtent:(Screen current extent).
-	] ifFalse:[
-	    view minExtent:view extent.
-	    view maxExtent:view extent.
-	]
-] ifFalse:[
-	(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
-	    self halt.
-	]
-].
-"/ 'JAVA: WWindowPeer_setResizable: ' print. view print. ' yes/no: ' print. onOff printNL.
-^ nil
-"Modified: / 16.1.1998 / 18:08:00 / cg"
-"Created: / 16.10.1998 / 02:21:34 / cg"
-!
-_WFramePeer_setTitle:nativeContext
-|view jString string|
-view := self viewForWPeer:nativeContext.
-jString := nativeContext argAt:1.
-string := Java as_ST_String:jString.
-"/ 'JAVA: WFramePeer_pSetTitle: ' print. string print. ' ' print. view printNL.
-view label:string.
-^ nil
-"Modified: / 8.1.1998 / 17:37:41 / cg"
-"Created: / 27.1.1998 / 21:42:57 / cg"
-!
-_WGraphics__dispose:nativeContext
-"/ void _dispose()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:17:51 / cg"
-!
-_WGraphics_changeClip:nativeContext
-|gc x y w h r bool|
-gc := self gcForWGraphics:nativeContext.
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-bool := (nativeContext argAt:5) ~~ 0.
-r := Rectangle left:x top:y width:w height:h.
-"/ 'WGraphics_changeClip: ' infoPrint. r infoPrintCR.
-gc clippingRectangle:r.
-"Created: / 6.1.1998 / 20:57:21 / cg"
-"Modified: / 20.10.1998 / 19:40:10 / cg"
-!
-_WGraphics_clearRect:nativeContext
-|gc x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[
-	'JAVA: drawing on unrealized gc - ignored' infoPrintCR.
-	^ self
-].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-"/ self halt.
-"/ self internalError:'breakPoint'.
-gc clearRectangleX:x y:y width:w height:h.
-"Created: / 8.1.1998 / 00:16:00 / cg"
-"Modified: / 8.1.1998 / 00:21:09 / cg"
-!
-_WGraphics_close:nativeContext
-"/ void close (sun.awt.windows.WPrintJob)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:19:40 / 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|
-jGraphics := nativeContext receiver.
-jWin := nativeContext argAt:1.
-view := KnownWindows at:jWin ifAbsent:nil.
-view isNil ifTrue:[
-	self halt.
-	^ self
-].
-view clippingRectangle:nil.
-"/    "/ just a consistency check ...
-"/    (jWin instVarNamed:'xid') ~~ view ifTrue:[
-"/        self halt:'consistency check'
-"/    ].
-jGraphics instVarNamed:'pData' put:view.
-"Created: / 6.1.1998 / 20:55:18 / cg"
-"Modified: / 20.10.1998 / 19:38:18 / cg"
-!
-_WGraphics_createFromGraphics:nativeContext
-|jGraphics graphics gc|
-jGraphics := nativeContext receiver.
-graphics := nativeContext argAt:1.
-gc := graphics instVarNamed:'pData'.
-jGraphics instVarNamed:'pData' put:gc.
-gc clippingRectangle:nil.
-"Created: / 8.1.1998 / 00:47:39 / cg"
-"Modified: / 20.10.1998 / 19:37:58 / cg"
-!
-_WGraphics_createFromHDC:nativeContext
-"/ void createFromHDC (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:17:32 / cg"
-!
-_WGraphics_createFromPrintJob:nativeContext
-"/ void createFromPrintJob (sun.awt.windows.WPrintJob)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:17:20 / cg"
-!
-_WGraphics_dispose:nativeContext
-|gc|
-gc := self gcForWGraphics:nativeContext.
-gc isNil ifTrue:[^ self].
-gc clippingRectangle:nil.
-"Created: / 6.1.1998 / 20:58:38 / cg"
-"Modified: / 20.10.1998 / 19:35:05 / cg"
-!
-_WGraphics_drawArc:nativeContext
-|gc x y w h startAngle endAngle|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-startAngle := nativeContext argAt:5.
-endAngle := nativeContext argAt:6.
-DrawOPTrace ifTrue:[
-	'drawArc x/y= ' print. x print. '@' print. y print.
-	       ' w/h= ' print. w print. '@' print. h print.
-	       ' startAngle= ' print. startAngle print. ' endAngle= ' print. endAngle printCR.
-].
-gc
-	displayArcX:x y:y
-	width:w height:h
-	from:startAngle angle:(endAngle - startAngle).
-"Created: / 6.1.1998 / 21:00:15 / cg"
-"Modified: / 28.1.1999 / 17:38:45 / cg"
-!
-_WGraphics_drawBytes:nativeContext
-"/ void drawBytes (byte[] int int int int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:18:56 / cg"
-!
-_WGraphics_drawLine:nativeContext
-|gc x y x2 y2|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-x2 := nativeContext argAt:3.
-y2 := nativeContext argAt:4.
-DrawOPTrace ifTrue:[
-	'drawLine x/y= ' print. x print. '@' print. y print. ' x2/y2= ' print. x2 print. '@' print. y2 printCR.
-].
-gc displayLineFromX:x y:y toX:x2 y:y2
-"Created: / 6.1.1998 / 20:59:27 / cg"
-"Modified: / 8.1.1998 / 00:34:23 / cg"
-!
-_WGraphics_drawMFCharsConvertedSegment:nativeContext
-"/ int drawMFCharsConvertedSegment (java.awt.Font sun.awt.FontDescriptor byte[] int int int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:18:44 / cg"
-!
-_WGraphics_drawMFCharsSegment:nativeContext
-|jFont jFontDescr s gc x y offs len|
-gc := self gcForWGraphics:nativeContext.
-gc realized ifFalse:[^ self].
-jFont := nativeContext argAt:1.
-jFontDescr := nativeContext argAt:2.
-s := nativeContext argAt:3.
-offs := nativeContext argAt:4.
-len := nativeContext argAt:5.
-x := nativeContext argAt:6.
-y := nativeContext argAt:7.
-DrawOPTrace ifTrue:[
-	'drawMFCharsSegment x/y= ' print. x print. '@' print. y print. ' s= ' print. s printCR.
-].
-gc displayString:s from:offs+1 to:offs+len x:x y:y.
-^ (gc font onDevice:(gc graphicsDevice)) widthOf:s.
-"Created: / 6.1.1998 / 21:01:07 / cg"
-"Modified: / 25.1.1998 / 20:45:55 / cg"
-!
-_WGraphics_drawOval:nativeContext
-|gc x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-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: / 9.4.1998 / 22:10:23 / cg"
-!
-_WGraphics_drawPolygon:nativeContext
-|gc xVector yVector count points|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-xVector := nativeContext argAt:1.
-yVector := nativeContext argAt:2.
-count := nativeContext argAt:3.
-DrawOPTrace ifTrue:[
-	'drawPolgon' printCR.
-].
-points := (1 to:count) collect:[:i | (xVector at:i) @ (yVector at:i)].
-gc displayPolygon:points
-"Created: / 8.1.1998 / 00:57:28 / cg"
-"Modified: / 8.1.1998 / 00:57:49 / cg"
-!
-_WGraphics_drawPolyline:nativeContext
-"/ void drawPolyline (int[] int[] int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:19:07 / cg"
-!
-_WGraphics_drawRect:nativeContext
-|gc x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-"/ self halt.
-"/ self internalError:'breakPoint'.
-gc displayRectangleX:x y:y width:w height:h.
-"Modified: / 8.1.1998 / 00:34:33 / cg"
-"Created: / 8.1.1998 / 00:59:05 / cg"
-!
-_WGraphics_drawRoundRect:nativeContext
-|gc x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-"/ self halt.
-"/ self internalError:'breakPoint'.
-gc displayRectangleX:x y:y width:w height:h.
-"Modified: / 8.1.1998 / 00:34:33 / cg"
-"Created: / 8.1.1998 / 00:59:26 / cg"
-!
-_WGraphics_drawSFChars:nativeContext
-"/ 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
-|gc x y w h startAngle endAngle|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-startAngle := nativeContext argAt:5.
-endAngle := nativeContext argAt:6.
-DrawOPTrace ifTrue:[
-	'fillArc x/y= ' print. x print. '@' print. y print.
-	       ' w/h= ' print. w print. '@' print. h print.
-	       ' startAngle= ' print. startAngle print. ' endAngle= ' print. endAngle printCR.
-].
-gc fillArcX:x y:y width:w height:h from:startAngle angle:(endAngle - startAngle)
-"Created: / 6.1.1998 / 21:11:31 / cg"
-"Modified: / 8.1.1998 / 00:33:59 / cg"
-!
-_WGraphics_fillOval:nativeContext
-|gc x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-DrawOPTrace ifTrue:[
-	'drawOval x/y= ' print. x print. '@' print. y print.
-		' w/h= ' print. w print. '@' print. h printCR.
-].
-gc fillArcX:x y:y width:w height:h from:0 angle:360
-"Created: / 8.1.1998 / 00:46:00 / cg"
-"Modified: / 8.1.1998 / 00:46:20 / cg"
-!
-_WGraphics_fillPolygon:nativeContext
-|gc xVector yVector count points|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-xVector := nativeContext argAt:1.
-yVector := nativeContext argAt:2.
-count := nativeContext argAt:3.
-DrawOPTrace ifTrue:[
-	'fillPolgon' printCR.
-].
-points := (1 to:count) collect:[:i | (xVector at:i) @ (yVector at:i)].
-gc fillPolygon:points
-"Created: / 8.1.1998 / 00:58:09 / cg"
-"Modified: / 25.1.1998 / 11:03:19 / cg"
-!
-_WGraphics_fillRect:nativeContext
-|gc x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-"/ self halt.
-"/ self internalError:'breakPoint'.
-gc fillRectangleX:x y:y width:w height:h.
-"Created: / 15.8.1997 / 15:43:10 / cg"
-"Modified: / 8.1.1998 / 00:34:33 / cg"
-!
-_WGraphics_fillRoundRect:nativeContext
-|gc x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ self].
-gc realized ifFalse:[^ self].
-x := nativeContext argAt:1.
-y := nativeContext argAt:2.
-w := nativeContext argAt:3.
-h := nativeContext argAt:4.
-"/ self halt.
-"/ self internalError:'breakPoint'.
-gc displayRectangleX:x y:y width:w height:h.
-"Modified: / 8.1.1998 / 00:34:33 / cg"
-"Created: / 8.1.1998 / 00:59:36 / cg"
-!
-_WGraphics_getClipBounds:nativeContext
-|gc rect r x y w h|
-gc := self gcForWGraphics:nativeContext.
-"/    gc isNil ifTrue:[^ nil].
-rect := (Java classForName:'java.awt.Rectangle') basicNew.
-(gc isMemberOf:JavaView) ifTrue:[
-	"/ r := gc clippingRectangleOrNil.
-	r := gc getNextUpdateRectangle.
-].
-r isNil ifTrue:[
-	r := gc clippingRectangleOrNil.
-].
-r isNil ifTrue:[
-	x := y := 0.
-	w := (gc width).
-	h := (gc height).
-] ifFalse:[
-	x := (r left).
-	y := (r top).
-	w := (r width).
-	h := (r height).
-].
-rect instVarNamed:'x' put:x.
-rect instVarNamed:'y' put:y.
-rect instVarNamed:'width' put:w.
-rect instVarNamed:'height' put:h.
-"/ 'WGraphics__getClipBounds ' infoPrint. (x@y extent:w@h) infoPrintCR.
-^ rect
-"Created: / 6.1.1998 / 20:58:07 / cg"
-"Modified: / 23.12.1998 / 20:14:09 / cg"
-!
-_WGraphics_imageCreate:nativeContext
-|jGraphics imgRep|
-jGraphics := nativeContext receiver.
-imgRep := nativeContext argAt:1.
-jGraphics instVarNamed:'pData' put:(imgRep instVarNamed:'pData').
-"/ self halt.
-"Created: / 11.1.1998 / 16:34:30 / cg"
-"Modified: / 17.1.1998 / 12:37:18 / cg"
-!
-_WGraphics_pSetFont:nativeContext
-|gc jFont stFont|
-gc := self gcForWGraphics:nativeContext.
-jFont := nativeContext argAt:1.
-stFont := jFont instVarNamed:'pData'.
-(stFont isNil or:[stFont == 0]) ifTrue:[
-"/ self halt.
-] ifFalse:[
-	gc font:stFont
-].
-"Created: / 6.1.1998 / 20:56:47 / cg"
-"Modified: / 15.1.1998 / 12:31:20 / cg"
-!
-_WGraphics_pSetForeground:nativeContext
-|gc rgb clr|
-gc := self gcForWGraphics:nativeContext.
-rgb := nativeContext argAt:1.
-rgb isInteger ifFalse:[
-"/ its a java.awt.Color
-rgb := rgb instVarNamed:'value'.
-].
-clr := Color rgbValue:rgb.
-gc paint:(clr nearestOn:gc device).
-"/ self halt.
-"/ self internalError:'breakPoint'.
-"Created: / 6.1.1998 / 20:56:14 / cg"
-"Modified: / 23.12.1998 / 20:10:49 / cg"
-!
-_WGraphics_print:nativeContext
-"/ void print (sun.awt.windows.WComponentPeer)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:19:25 / cg"
-!
-_WGraphics_removeClip:nativeContext
-"/ void removeClip ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:18:05 / cg"
-!
-_WGraphics_setPaintMode:nativeContext
-|gc|
-gc := self gcForWGraphics:nativeContext.
-gc function:#copy.
-true "DrawOPTrace" ifTrue:[
-	'copyMode' infoPrintCR.
-].
-"Created: / 8.1.1998 / 00:33:44 / cg"
-"Modified: / 28.1.1998 / 23:25:56 / cg"
-!
-_WGraphics_setXORMode:nativeContext
-|gc jColor rgb invColor device|
-gc := self gcForWGraphics:nativeContext.
-jColor := nativeContext argAt:1.
-device := gc graphicsDevice.
-"/    "/ on trueColor systems, use the provided
-"/    "/ rgb value for inverting.
-"/    "/ on palette systems, use white ^ black
-"/
-"/    device visualType == #TrueColor ifTrue:[
-"/        rgb := jColor instVarNamed:'value'.
-"/        rgb := rgb bitAnd:16rFFFFFF.
-"/        rgb == 0 ifTrue:[
-"/            rgb := 16rFFFFFF.
-"/        ].
-"/        invColor := rgb
-"/    ] ifFalse:[
-"/        invColor := device blackpixel bitXor:device whitepixel.
-"/    ].
-invColor := device blackpixel bitXor:device whitepixel.
-"/    gc foreground:(Color colorId:invColor)
-"/       background:device blackColor.
-device
-	setForeground:invColor background:0
-	in:gc gcId.
-gc function:#xor.
-true "DrawOPTrace" ifTrue:[
-	'xorMode' infoPrintCR.
-].
-"Created: / 8.1.1998 / 00:36:17 / cg"
-"Modified: / 28.1.1998 / 23:45:03 / cg"
-!
-_WLabelPeer_create:nativeContext
-|jLabelPeer jLabel jFrame frame label
-lbl|
-jLabelPeer := nativeContext receiver.
-jLabel := jLabelPeer instVarNamed:'target'.
-lbl := jLabel instVarNamed:'text'.
-lbl notNil ifTrue:[
-	lbl := Java as_ST_String:lbl
-].
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-label := Label in:frame.
-label sizeFixed:true.
-lbl notNil ifTrue:[
-	label label:lbl
-].
-self createdWindowsView:label for:jLabelPeer.
-WindowCreationTrace == true ifTrue:[
-	'WLabelPeer_create: ' print. frame print. ' -> ' print. label printNL.
-].
-"Created: / 7.1.1998 / 21:42:31 / cg"
-"Modified: / 13.1.1998 / 22:10:47 / cg"
-!
-_WLabelPeer_setAlignment:nativeContext
-|label alignNr|
-alignNr := nativeContext argAt:1.
-label := self viewForWPeer:nativeContext.
-label notNil ifTrue:[
-].
-"Created: / 7.1.1998 / 21:43:12 / cg"
-"Modified: / 8.1.1998 / 17:35:29 / cg"
-!
-_WLabelPeer_setText:nativeContext
-|label jString str|
-jString := nativeContext argAt:1.
-label := self viewForWPeer:nativeContext.
-jString notNil ifTrue:[
-	str := Java as_ST_String:jString
-].
-label label:str
-"Created: / 7.1.1998 / 21:43:51 / cg"
-"Modified: / 3.12.1998 / 14:59:18 / cg"
-!
-_WListPeer__addItem:nativeContext
-|jString index1 length selListView m|
-selListView := self viewForWPeer:nativeContext.
-jString := nativeContext argAt:1.
-index1 := nativeContext argAt:2.
-length := nativeContext argAt:3.
-(m := selListView model) notNil ifTrue:[
-	m list addLast:(Java as_ST_String:jString).
-	m changed:#list.
-].
-"Created: / 26.10.1998 / 20:11:30 / cg"
-"Modified: / 14.11.1998 / 01:21:03 / cg"
-!
-_WListPeer_addItem:nativeContext
-|jString index selListView m|
-selListView := self viewForWPeer:nativeContext.
-jString := nativeContext argAt:1.
-index := nativeContext argAt:2.
-m := selListView model.
-m isNil ifTrue:[
-	Transcript showCR:'JAVA: access to listModel of closed view'.
-] ifFalse:[
-	m list addLast:(Java as_ST_String:jString).
-	m changed:#list.
-]
-"Created: / 24.1.1998 / 21:10:05 / cg"
-"Modified: / 2.11.1998 / 17:12:52 / cg"
-!
-_WListPeer_create:nativeContext
-|jListPeer jFrame frame selectionInListView|
-jListPeer := nativeContext receiver.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-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:(List new)).
-selectionInListView useIndex:true.
-self createdWindowsView:selectionInListView for:jListPeer.
-WindowCreationTrace == true ifTrue:[
-	'WTextAreaPeer_create: ' print. frame print. ' -> ' print. selectionInListView printNL.
-].
-"Created: / 24.1.1998 / 19:58:54 / cg"
-"Modified: / 9.4.1998 / 22:19:07 / cg"
-!
-_WListPeer_delItems:nativeContext
-|jString index1 index2 selListView model list|
-selListView := self viewForWPeer:nativeContext.
-index1 := (nativeContext argAt:1) + 1. "/ java indices are 0-based.
-index2 := (nativeContext argAt:2) + 1. "/ st indices are 1-based.
-model := selListView model.
-model isNil ifTrue:[^ self].
-list := model list.
-list size >= index1 ifTrue:[
-	list removeFromIndex:index1 toIndex:(index2 min:list size).
-	model changed:#list.
-].
-"Created: / 9.4.1998 / 22:19:25 / cg"
-"Modified: / 30.12.1998 / 20:00:50 / cg"
-!
-_WListPeer_deselect:nativeContext
-"/ void deselect (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:15:10 / cg"
-!
-_WListPeer_getMaxWidth:nativeContext
-"/ int getMaxWidth ()
-^ 1000 "/ a dummy value
-"/    UnimplementedNativeMethodSignal raise
-"Created: / 14.11.1998 / 10:44:29 / cg"
-!
-_WListPeer_isSelected:nativeContext
-|selectionInListView index model|
-selectionInListView := self viewForWPeer:nativeContext.
-index := nativeContext argAt:1.
-(model := selectionInListView model) notNil ifTrue:[
-	(model selectionIndex == (index + 1))  "/ JAVA indexing starts at 0
-	ifTrue:[
-	    ^ 1
-	]
-].
-^ 0.
-"Created: / 24.1.1998 / 22:42:31 / cg"
-"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|
-selectionInListView := self viewForWPeer:nativeContext.
-index := nativeContext argAt:1.
-(model := selectionInListView model) notNil ifTrue:[
-	model selectionIndex:(index + 1).  "/ JAVA indexing starts at 0
-]
-"Created: / 24.1.1998 / 22:32:35 / cg"
-"Modified: / 25.1.1998 / 01:28:46 / cg"
-!
-_WListPeer_setMultipleSelections:nativeContext
-|selectionInListView onOff|
-selectionInListView := self viewForWPeer:nativeContext.
-onOff := (nativeContext argAt:1) ~~ 0.
-selectionInListView multipleSelectOk:onOff.
-"Modified: / 24.1.1998 / 20:01:06 / cg"
-!
-_WListPeer_updateMaxItemWidth:nativeContext
-|selectionInListView lineNr|
-selectionInListView := self viewForWPeer:nativeContext.
-"Created: / 26.10.1998 / 20:09:46 / cg"
-!
-_WMenuBarPeer_addMenu:nativeContext
-"/ void addMenu (java.awt.Menu)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:14:00 / cg"
-!
-_WMenuBarPeer_create:nativeContext
-|jMenuBarPeer jMenuBar jFrame frame menuBar|
-jMenuBarPeer := nativeContext receiver.
-jMenuBar := jMenuBarPeer instVarNamed:'target'.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-menuBar := MenuPanel in:frame.
-menuBar verticalLayout:false.
-menuBar realize.
-self createdWindowsView:menuBar for:jMenuBarPeer.
-WindowCreationTrace == true ifTrue:[
-	'WMenuBarPeer_create: ' print. frame print. ' -> ' print. menuBar printNL.
-].
-"Created: / 7.1.1998 / 21:38:31 / cg"
-"Modified: / 25.1.1998 / 13:19:03 / cg"
-!
-_WMenuBarPeer_delMenu:nativeContext
-"/ void delMenu (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:14:11 / cg"
-!
-_WMenuItemPeer__dispose:nativeContext
-|jMenuItemPeer item|
-jMenuItemPeer := nativeContext receiver.
-item := jMenuItemPeer instVarNamed:'pData'.
-"/ what should be done here ?
-"Created: / 29.3.1998 / 17:16:05 / cg"
-"Modified: / 29.3.1998 / 17:16:35 / cg"
-!
-_WMenuItemPeer__setLabel:nativeContext
-"/ void _setLabel (java.lang.String)
-|jMenuItemPeer item label|
-jMenuItemPeer := nativeContext receiver.
-item := jMenuItemPeer instVarNamed:'pData'.
-(item isNil or:[item == 0]) ifTrue:[
-	'JAVA [warning]: NULL menu item in setLabel' infoPrintCR.
-	^ self
-].
-label := nativeContext argAt:1.
-label isNil ifTrue:[
-	label := ''
-] ifFalse:[
-	label := Java as_ST_String:label
-].
-item label:label.
-"Modified: / 11.12.1998 / 16:40:18 / cg"
-!
-_WMenuItemPeer_create:nativeContext
-|jMenuItemPeer jMenuItem jMenuPeer menu item lbl|
-jMenuItemPeer := nativeContext receiver.
-jMenuItem := jMenuItemPeer instVarNamed:'target'.
-jMenuPeer := nativeContext argAt:1.
-menu := jMenuPeer instVarNamed:'pData'.
-(menu isNil or:[menu == 0]) ifTrue:[
-	'JAVA: no menu to create item in' infoPrintCR.
-	^ self
-].
-item := menu createAtIndex:nil.
-item value:[
-		jMenuItemPeer perform:#'handleAction(I)V' with:0
-	       ].
-lbl := jMenuItem instVarNamed:'label'.
-lbl notNil ifTrue:[
-	lbl := Java as_ST_String:lbl.
-	item label:lbl
-].
-jMenuItemPeer instVarNamed:'pData' put:item.
-WindowOPTrace == true ifTrue:[
-	'WMenuItem_create: ' print. menu print. ' -> ' print. item printNL.
-].
-"Created: / 7.1.1998 / 21:40:44 / cg"
-"Modified: / 3.12.1998 / 20:43:20 / cg"
-!
-_WMenuItemPeer_enable:nativeContext
-|jMenuItemPeer item state|
-jMenuItemPeer := nativeContext receiver.
-item := jMenuItemPeer instVarNamed:'pData'.
-(item isNil or:[item == 0]) ifTrue:[
-	'JAVA [warning]: NULL menu item in enable' infoPrintCR.
-	^ self
-].
-state := nativeContext argAt:1.
-item enabled:(state ~~ 0)
-"Created: / 7.1.1998 / 22:41:38 / cg"
-"Modified: / 11.12.1998 / 16:40:26 / cg"
-!
-_WMenuPeer_addSeparator:nativeContext
-"/ void addSeparator ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:13:14 / cg"
-!
-_WMenuPeer_createMenu:nativeContext
-|jMenuPeer jMenu jMenuBarPeer menuPanel menu
-lbl item|
-jMenuPeer := nativeContext receiver.
-jMenu := jMenuPeer instVarNamed:'target'.
-jMenuBarPeer := nativeContext argAt:1.
-menuPanel := jMenuBarPeer instVarNamed:'pData'.
-item := menuPanel createAtIndex:nil.
-lbl := jMenu instVarNamed:'label'.
-lbl notNil ifTrue:[
-	lbl := Java as_ST_String:lbl.
-	item label:lbl
-].
-menu := MenuPanel new.
-item submenu:menu.
-jMenuPeer instVarNamed:'pData' put:menu.
-'createMenuPeer: ' print. menuPanel print. ' -> ' print. menu printNL.
-"Created: / 7.1.1998 / 21:39:50 / cg"
-"Modified: / 13.1.1998 / 22:11:09 / cg"
-!
-_WMenuPeer_createSubMenu:nativeContext
-"/ void createSubMenu (sun.awt.windows.WMenuPeer)
-"/    UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:13:43 / cg"
-"Modified: / 3.12.1998 / 21:41:07 / cg"
-!
-_WMenuPeer_delItem:nativeContext
-"/ void delItem (int)
-|jMenuPeer jMenu menuPanel itemIndex|
-jMenuPeer := nativeContext receiver.
-menuPanel := jMenuPeer instVarNamed:'pData'.
-itemIndex := nativeContext argAt:1.
-menuPanel remove:itemIndex.
-"/    UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:13:30 / cg"
-"Modified: / 10.12.1998 / 21:12:29 / cg"
-!
-_WPanelPeer_calculateInsets:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 27.1.1998 / 21:40:00 / cg"
-!
-_WPopupMenuPeer__show:nativeContext
-"/ void _show (java.awt.Event)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:12:53 / cg"
-!
-_WPopupMenuPeer_createMenu:nativeContext
-"/ void createMenu (sun.awt.windows.WComponentPeer)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:12:43 / cg"
-!
-_WPrintJob_end:nativeContext
-"/ void end ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:11:28 / cg"
-!
-_WScrollPanePeer__getHScrollbarHeight:nativeContext
-|scrollPane|
-scrollPane := self viewForWPeer:nativeContext.
-^ HorizontalScrollBar new preferredExtent y.
-"Created: / 9.4.1998 / 17:30:56 / cg"
-"Modified: / 10.4.1998 / 14:59:28 / cg"
-!
-_WScrollPanePeer__getVScrollbarWidth:nativeContext
-|scrollPane|
-scrollPane := self viewForWPeer:nativeContext.
-^ ScrollBar new preferredExtent x.
-"Created: / 9.4.1998 / 17:29:48 / cg"
-"Modified: / 10.4.1998 / 15:00:33 / cg"
-!
-_WScrollPanePeer_create:nativeContext
-|jScrollPanePeer jScrollPane jFrame frame scrollPane
-lbl|
-jScrollPanePeer := nativeContext receiver.
-jScrollPane := jScrollPanePeer instVarNamed:'target'.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-"/ create with a simple view ...
-scrollPane := ScrollableView for:JavaView in:frame.
-self createdWindowsView:scrollPane for:jScrollPanePeer.
-WindowCreationTrace == true ifTrue:[
-	'WScrollPanePeer_create: ' print. frame print. ' -> ' print. scrollPane printNL.
-].
-"Created: / 9.4.1998 / 17:25:08 / cg"
-"Modified: / 9.4.1998 / 22:06:09 / cg"
-!
-_WScrollPanePeer_getOffset:nativeContext
-"/ int getOffset (int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:16:29 / cg"
-!
-_WScrollPanePeer_getScrollChild:nativeContext
-"/ java.awt.Component getScrollChild ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:17:00 / cg"
-!
-_WScrollPanePeer_setInsets:nativeContext
-"Modified: / 9.4.1998 / 17:26:11 / cg"
-"Created: / 9.4.1998 / 17:29:10 / cg"
-!
-_WScrollPanePeer_setScrollPosition:nativeContext
-"/ void setScrollPosition (int int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:16:44 / cg"
-!
-_WScrollPanePeer_setSpans:nativeContext
-"Created: / 9.4.1998 / 17:31:44 / cg"
-!
-_WScrollbarPeer__setValues:nativeContext
-|scrollBar value visibleAmount min max|
-scrollBar := self viewForWPeer:nativeContext.
-value := nativeContext argAt:1.
-visibleAmount := nativeContext argAt:2.
-min := nativeContext argAt:3.
-max := nativeContext argAt:4.
-(min ~~ 0 or:[max ~~ 100]) ifTrue:[
-	scrollBar thumb start:min stop:max.
-].
-scrollBar thumbOrigin:value thumbHeight:visibleAmount.
-"Created: / 13.1.1998 / 22:13:57 / cg"
-"Modified: / 14.10.1998 / 14:53:00 / cg"
-!
-_WScrollbarPeer_create:nativeContext
-|jScrollbarPeer jScrollbar jFrame frame scrollBar
-min max|
-jScrollbarPeer := nativeContext receiver.
-jScrollbar := jScrollbarPeer instVarNamed:'target'.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-(jScrollbar instVarNamed:'orientation') == 0 "HORIZONTAL" ifTrue:[
-	scrollBar := HorizontalScrollBar in:frame.
-] ifFalse:[
-	scrollBar := ScrollBar in:frame.
-].
-min := jScrollbar instVarNamed:'minimum'.
-max := jScrollbar instVarNamed:'maximum'.
-scrollBar scrollDownAction:[
-			scrollBar thumbOrigin:(scrollBar thumbOrigin + ((max-min)/10) min:max).
-			jScrollbarPeer perform:#'dragAbsolute(I)V' with:scrollBar thumbOrigin rounded.
-		     ].
-scrollBar scrollUpAction:[
-			scrollBar thumbOrigin:(scrollBar thumbOrigin - ((max-min)/10) max:min).
-			jScrollbarPeer perform:#'dragAbsolute(I)V' with:scrollBar thumbOrigin rounded.
-		     ].
-scrollBar scrollAction:[:org |
-			jScrollbarPeer perform:#'dragAbsolute(I)V' with:org rounded.
-		     ].
-self createdWindowsView:scrollBar for:jScrollbarPeer.
-WindowCreationTrace == true ifTrue:[
-	'WScrollbarPeer_create: ' print. frame print. ' -> ' print. scrollBar printNL.
-].
-"Created: / 5.1.1998 / 01:53:30 / cg"
-"Modified: / 14.10.1998 / 15:36:19 / cg"
-!
-_WScrollbarPeer_setLineIncrement:nativeContext
-|scrollBar inc|
-Transcript showCR:'JavaVM: WScrollbarPeer_setLineIncrement unimplemented'.
-scrollBar := self viewForWPeer:nativeContext.
-inc := nativeContext argAt:1.
-"/    scrollBar thumb lineIncrement:inc.
-"Created: / 25.1.1998 / 11:52:19 / cg"
-"Modified: / 14.10.1998 / 14:53:56 / cg"
-!
-_WScrollbarPeer_setPageIncrement:nativeContext
-|scrollBar inc|
-Transcript showCR:'JavaVM: WScrollbarPeer_setPageIncrement unimplemented'.
-scrollBar := self viewForWPeer:nativeContext.
-inc := nativeContext argAt:1.
-"/    scrollBar thumb pageIncrement:inc.
-"Created: / 25.1.1998 / 11:52:01 / cg"
-"Modified: / 14.10.1998 / 14:54:04 / cg"
-!
-_WTextAreaPeer_create:nativeContext
-|jTextAreaPeer jFrame frame editTextView|
-jTextAreaPeer := nativeContext receiver.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-editTextView := HVScrollableView for:EditTextView in:frame.
-self createdWindowsView:editTextView for:jTextAreaPeer.
-WindowCreationTrace == true ifTrue:[
-	'WTextAreaPeer_create: ' print. frame print. ' -> ' print. editTextView printNL.
-].
-"Created: / 7.1.1998 / 21:49:49 / cg"
-"Modified: / 15.1.1998 / 12:56:18 / cg"
-!
-_WTextAreaPeer_insertText:nativeContext
-|textView pos string jstring|
-textView := self viewForWPeer:nativeContext.
-(textView isKindOf:ScrollableView) ifTrue:[
-	textView := textView scrolledView
-].
-jstring := nativeContext argAt:1.
-string := Java as_ST_String:jstring.
-pos := nativeContext argAt:2.
-textView insert:string at:pos.
-textView cursorToCharacterPosition:pos + string size.
-textView makeCursorVisible.
-"/ textView invalidateRepairNow:true.
-^ nil
-"Created: / 7.1.1998 / 21:50:23 / cg"
-"Modified: / 5.4.1998 / 17:37:24 / cg"
-!
-_WTextAreaPeer_replaceText:nativeContext
-"/ void replaceText (java.lang.String int int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:11:14 / cg"
-!
-_WTextComponentPeer_enableEditing:nativeContext
-|textView enabled|
-textView := self viewForWPeer:nativeContext.
-enabled := (nativeContext argAt:1) ~~ 0.
-^ textView readOnly:enabled not
-"Created: / 5.1.1998 / 01:29:38 / cg"
-"Modified: / 25.1.1998 / 16:29:56 / cg"
-!
-_WTextComponentPeer_getSelectionEnd:nativeContext
-|textView|
-textView := self viewForWPeer:nativeContext.
-^ textView characterPositionOfSelectionEnd
-"Created: / 8.1.1998 / 17:41:56 / cg"
-"Modified: / 15.1.1998 / 15:47:18 / cg"
-!
-_WTextComponentPeer_getSelectionStart:nativeContext
-|textView|
-textView := self viewForWPeer:nativeContext.
-^ textView characterPositionOfSelection - 1
-"Created: / 15.8.1997 / 15:45:45 / cg"
-"Modified: / 15.1.1998 / 15:46:51 / cg"
-!
-_WTextComponentPeer_getText:nativeContext
-|textView string jString|
-textView := self viewForWPeer:nativeContext.
-string := textView contents asString.
-jString := Java as_String:string.
-^ jString
-"Created: / 6.1.1998 / 21:05:15 / cg"
-"Modified: / 8.1.1998 / 17:36:52 / cg"
-!
-_WTextComponentPeer_select:nativeContext
-|textView selStart selEnd|
-textView := self viewForWPeer:nativeContext.
-selStart := nativeContext argAt:1.
-selEnd := nativeContext argAt:2.
-selStart == selEnd ifTrue:[
-	"/ clear selection
-	textView unselect.
-	"/ and set caret
-	textView cursorToCharacterPosition:selStart + 1
-] ifFalse:[
-	"/ change selection
-	textView selectFromCharacterPosition:selStart+1 to:selEnd
-].
-"Created: / 15.8.1997 / 15:45:58 / cg"
-"Modified: / 15.1.1998 / 21:55:57 / cg"
-!
-_WTextComponentPeer_setText:nativeContext
-|textView string jstring|
-textView := self viewForWPeer:nativeContext.
-jstring := nativeContext argAt:1.
-jstring notNil ifTrue:[
-	string := Java as_ST_String:jstring
-].
-textView contents:string.
-"Created: / 5.1.1998 / 01:28:23 / cg"
-"Modified: / 11.12.1998 / 12:16:46 / cg"
-!
-_WTextFieldPeer_create:nativeContext
-|jTextFieldPeer jFrame frame editField|
-jTextFieldPeer := nativeContext receiver.
-jFrame := nativeContext argAt:1.
-frame := jFrame instVarNamed:'pData'.
-editField := EditField in:frame.
-self createdWindowsView:editField for:jTextFieldPeer.
-editField crAction:[
-			jTextFieldPeer perform:#handleAction.
-		  ].
-WindowCreationTrace == true ifTrue:[
-	'WTextFieldPeer_create: ' print. frame print. ' -> ' print. editField printNL.
-].
-"Created: / 5.1.1998 / 01:27:37 / cg"
-"Modified: / 4.11.1998 / 21:07:30 / cg"
-!
-_WTextFieldPeer_setEchoCharacter:nativeContext
-|editField char|
-editField := self viewForWPeer:nativeContext.
-char := nativeContext argAt:1.
-editField passwordCharacter:(Character value:char).
-"Created: / 25.1.1998 / 16:28:30 / cg"
-!
-_WToolkit_beep:nativeContext
-"/ void beep ()
-Screen current beep
-"Created: / 12.11.1998 / 19:09:23 / cg"
-"Modified: / 11.12.1998 / 12:15:23 / cg"
-!
-_WToolkit_eventLoop:nativeContext
-(JavaEventThread notNil and:[JavaEventThread isDead not]) ifTrue:[
-	'JavaVM [warning]: oops - two threads executing eventLoop' errorPrintCR.
-].
-JavaEventThread := Processor activeProcess.
-[
-	[true] whileTrue:[
-	    AbortSignal handle:[:ex |
-		ex return
-	    ] do:[
-		self doWindowsEventThread.
-	    ]
-	].
-] valueNowOrOnUnwindDo:[
-	JavaEventThread := nil.
-].
-"Created: / 6.1.1998 / 21:01:44 / cg"
-"Modified: / 8.1.1999 / 17:08:00 / cg"
-!
-_WToolkit_getComboHeightOffset:nativeContext
-^ 0
-"Modified: / 20.3.1997 / 13:50:04 / cg"
-"Created: / 22.10.1998 / 00:59:14 / cg"
-!
-_WToolkit_getScreenHeight:nativeContext
-^ Screen current height
-"Modified: / 20.3.1997 / 13:50:04 / cg"
-"Created: / 13.1.1998 / 09:24:45 / cg"
-!
-_WToolkit_getScreenResolution:nativeContext
-^ Screen current resolution x rounded
-"Modified: / 20.3.1997 / 13:50:04 / cg"
-"Created: / 17.1.1998 / 21:54:48 / cg"
-!
-_WToolkit_getScreenWidth:nativeContext
-^ Screen current width
-"Modified: / 20.3.1997 / 13:50:04 / cg"
-"Created: / 13.1.1998 / 09:24:37 / cg"
-!
-_WToolkit_init:nativeContext
-"Created: / 3.1.1998 / 02:30:57 / cg"
-!
-_WToolkit_loadSystemColors:nativeContext
-"/ self halt.
-"Modified: / 18.3.1997 / 18:43:26 / cg"
-"Created: / 5.1.1998 / 02:19:09 / cg"
-!
-_WToolkit_makeColorModel:nativeContext
-"/ java.awt.image.ColorModel makeColorModel ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:08:47 / cg"
-!
-_WToolkit_sync:nativeContext
-"/ void sync ()
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:09:14 / cg"
-!
-_WWindowPeer__setResizable:nativeContext
-|view onOff|
-view := self viewForWPeer:nativeContext.
-onOff := (nativeContext argAt:1) == 1.
-view isTopView ifTrue:[
-	onOff ifTrue:[
-	    view minExtent:10@10.
-	    view maxExtent:(Screen current extent).
-	] ifFalse:[
-	    view minExtent:view extent.
-	    view maxExtent:view extent.
-	]
-] ifFalse:[
-	(view isMemberOf:JavaEmbeddedFrameView) ifFalse:[
-	    self halt.
-	]
-].
-"/ 'JAVA: WWindowPeer_setResizable: ' print. view print. ' yes/no: ' print. onOff printNL.
-^ nil
-"Created: / 5.1.1998 / 00:57:59 / cg"
-"Modified: / 16.1.1998 / 18:08:00 / cg"
-!
-_WWindowPeer__setTitle:nativeContext
-|view jString string|
-view := self viewForWPeer:nativeContext.
-jString := nativeContext argAt:1.
-string := Java as_ST_String:jString.
-"/ 'JAVA: WWindowPeer_pSetTitle: ' print. string print. ' ' print. view printNL.
-view label:string.
-^ nil
-"Created: / 5.1.1998 / 00:57:17 / cg"
-"Modified: / 8.1.1998 / 17:37:41 / cg"
-!
-_WWindowPeer_create:nativeContext
-"/ void create (sun.awt.windows.WComponentPeer)
-|jWindowPeer jWindow top window pDataIdx|
-jWindowPeer := nativeContext receiver.
-jWindow := jWindowPeer instVarNamed:'target'.
-window := jWindowPeer instVarNamed:'pData'.
-(window notNil and:[window ~~ 0]) ifTrue:[
-	WindowCreationTrace == true ifTrue:[
-	    'JAVA: window view already created: ' infoPrint.
-	    jWindowPeer class name infoPrintCR.
-	].
-] ifFalse:[
-"/ OLD
-"/        window := StandardSystemView new.
-"/        self createdWindowsView:window for:jWindowPeer.
-"/        JavaWindowGroup addTopView:window.
-	window := JavaPopUpView new.
-	window borderWidth:0.
-	window level:0.
-	window delegate:self.
-	window javaPeer:jWindowPeer.
-	self createdWindowsView:window for:jWindowPeer.
-	JavaWindowGroup addTopView:window.
-"/        top := StandardSystemView new.
-"/        window := JavaView origin:0.0@0.0 corner:1.0@1.0 in:top.
-"/        window delegate:self.
-"/        window javaPeer:jWindowPeer.
-"/        self createdWindowsView:window for:jWindowPeer.
-"/        JavaWindowGroup addTopView:top.
-].
-WindowCreationTrace == true ifTrue:[
-	'JAVA: WWindowPeer_create: ' print. jWindowPeer displayString print.
-	' window: ' print. window printNL.
-].
-"Created: / 4.1.1998 / 17:56:39 / cg"
-"Modified: / 4.12.1998 / 17:37:59 / cg"
-!
-_WWindowPeer_getContainerElement:nativeContext
-"/ java.awt.Component getContainerElement (java.awt.Container int)
-UnimplementedNativeMethodSignal raise
-"Created: / 12.11.1998 / 19:10:54 / cg"
-!
-_WWindowPeer_toBack:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-view lower.
-"Created: / 7.5.1998 / 00:23:03 / cg"
-!
-_WWindowPeer_toFront:nativeContext
-|view|
-view := self viewForWPeer:nativeContext.
-view raise.
-"Created: / 9.4.1998 / 22:17:28 / cg"
-!
-_WWindowPeer_updateInsets:nativeContext
-"/ self halt.
-"Modified: / 18.3.1997 / 18:43:18 / cg"
-"Created: / 4.1.1998 / 18:09:04 / cg"
-!
-_Win32Process_create:nativeContext
-"really create a win32 process"
-|env cmd jProcess p inPipe outPipe errorPipe|
-jProcess := nativeContext receiver.
-cmd := nativeContext argAt:1.
-cmd := Java as_ST_String:cmd.
-env := nativeContext argAt:2.
-env notNil ifTrue:[
-	self halt
-].
-self halt.
-p := Win32Process new.
-p command:cmd.
-p environment:env.
-p inStream:inPipe.
-p outStream:outPipe.
-p errorStream:errorPipe.
-p directory:nil.
-p startProcess.
-self halt.
-jProcess instVarNamed:'handle' put:p.
-"Created: / 10.11.1998 / 19:50:31 / cg"
-"Modified: / 10.11.1998 / 21:34:18 / cg"
-!
-_WinNTFileSystem_canonicalize0:aJavaContext
-|  path |
-path := Java as_ST_String: (aJavaContext argAt: 1).
-^(Java as_String: path asFilename asAbsoluteFilename pathName)
-"Created: / 01-04-2011 / 23:00:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_WinNTFileSystem_getBooleanAttributes:aJavaContext
-^ self _UnixFileSystem_getBooleanAttributes0:aJavaContext
-"Created: / 01-04-2011 / 18:10:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_X11FontMetrics_getMFCharSegmentWidth:nativeContext
-"get multi-font string-segment width.
-Not yet supported - use standard strings width"
-|jMetrics jFont jFontDescr stFont w
-bool1 cp offs lenght bp int1|
-jMetrics := nativeContext receiver.
-jFont := nativeContext argAt:1.
-jFontDescr := nativeContext argAt:2.
-cp := nativeContext argAt:3.
-lenght := nativeContext argAt:4.
-stFont := jFont instVarNamed:'pData'.
-(stFont isNil or:[stFont == 0]) ifTrue:[
-self halt
-].
-stFont device isNil ifTrue:[
-stFont := stFont on:Display.
-jFont instVarNamed:'pData' put:stFont.
-].
-w := stFont widthOf:cp from:1 to:lenght.
-^ w.
-!
-_X11FontMetrics_init:nativeContext
-^ self _WFontMetrics_init:nativeContext
-!
-_X11GraphicsDevice_getConfigType:nativeContext
-"/ new with jdk1.2 ...
-|configNr cls|
-"/ for now, only one config.
-configNr := nativeContext argAt:1.
-cls := Java classNamed:'java.awt.GraphicsDevice'.
-^ cls instVarNamed:'TYPE_RASTER_SCREEN'.
-"Created: / 28.1.1998 / 22:19:05 / cg"
-!
-_X11GraphicsDevice_getNumConfigs:nativeContext
-"/ new with jdk1.2 ...
-^ 1
-"Created: / 28.1.1998 / 22:13:26 / cg"
-"Modified: / 28.1.1998 / 22:14:33 / cg"
-!
-_X11GraphicsEnvironment_getNumScreens:nativeContext
-"/ new with jdk1.2 ...
-"/ could return the actual number of screens ...
-^ 1
-"Created: / 28.1.1998 / 01:50:22 / cg"
-"Modified: / 28.1.1998 / 22:12:32 / cg"
-!
-_X11GraphicsEnvironment_initDisplay:nativeContext
-"/ new with jdk1.2 ...
-"Created: / 28.1.1998 / 01:50:22 / cg"
-!
-_X11Graphics_changeClip:nativeContext
-^ self _WGraphics_changeClip:nativeContext
-!
-_X11Graphics_createFromComponent:nativeContext
-^ self _WGraphics_createFromComponent:nativeContext
-!
-_X11Graphics_disposeImpl:nativeContext
-^ self _WGraphics_dispose:nativeContext
-!
-_X11Graphics_drawMFCharsSegment:nativeContext
-^ self _WGraphics_drawMFCharsSegment:nativeContext
-!
-_X11Graphics_drawRect:nativeContext
-^ self _WGraphics_drawRect:nativeContext
-!
-_X11Graphics_fillOval:nativeContext
-^ self _WGraphics_fillOval:nativeContext
-!
-_X11Graphics_fillRect:nativeContext
-^ self _WGraphics_fillRect:nativeContext
-!
-_X11Graphics_pSetFont:nativeContext
-^ self _WGraphics_pSetFont:nativeContext
-!
-_X11Graphics_pSetForeground:nativeContext
-^ self _WGraphics_pSetForeground:nativeContext
-! !
-!JavaVM class methodsFor:'native - old-style (converted)'!
-_AccessController_doPrivileged:aJavaContext
-"Don't care about permissions :-)"
-^(aJavaContext argAt:1) perform: #'run()Ljava/lang/Object;'
-"Created: / 20-10-2010 / 12:31:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_AccessController_getStackAccessControlContext:nativeContext
-"/ introduced with jdk1.2
-"/ supposed to do more here ...
-^ nil
-"Created: / 27.1.1998 / 18:22:15 / cg"
-!
-_Array_newArray:aJavaContext
-|componentClass size|
-componentClass := self reflection
-classForJavaClassObject:(aJavaContext argAt:1).
-size := aJavaContext argAt:2.
-^ componentClass arrayClass new:size
-"Created: / 17-12-2010 / 14:49:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 19-12-2010 / 17:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:18:50 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_ClassLoader_NativeLibrary_load:nativeContext
-"/ introduced with jdk1.2 ... (sigh)
-|nativeLoader jLibName libName libHandle index|
-nativeLoader := nativeContext receiver.
-jLibName := nativeContext argAt:1.
-libName := (Java as_ST_String:jLibName) asFilename baseName.
-(index := SimulatedNativeLibs indexOf:libName) ~~ 0 ifTrue:[
-"/        ('JAVA: builtIn nativeLibLoad simulated: ' , libName) printNL.
-nativeLoader instVarNamed:'handle' put:index.
-^ self "/ void
-].
-(LoadedNativeLibs notNil
-and:[LoadedNativeLibs includesKey:libName]) ifTrue:[
-"/        ('JAVA: native library already loaded: ' , libName) printNL.
-nativeLoader instVarNamed:'handle' put:(LoadedNativeLibs at:libName).
-^ self "/ void
-].
-(self confirm:'permission to load native library: ' , libName , ' ?') ifFalse:[
-^ self
-].
-self halt.
-libName asFilename exists ifFalse:[
-('JAVA: no file to load nativeLib: ' , libName) printNL.
-^ self "/ void
-].
-libHandle := ObjectFileLoader loadLibrary:libName.
-libHandle isNil ifTrue:[
-('JAVA: failed to load nativeLib: ' , libName) printNL.
-^ self "/ void
-].
-LoadedNativeLibs isNil ifTrue:[
-LoadedNativeLibs := Dictionary new.
-].
-LoadedNativeLibs at:libName put:libHandle.
-nativeLoader instVarNamed:'handle' put:(LoadedNativeLibs at:libName).
-^ self "/ void
-"Modified: / 06-02-1998 / 03:12:17 / cg"
-"Created: / 10-12-2010 / 15:11:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_ClassLoader_registerNatives:aJavaContext
-"Nothing to do"
-"Created: / 09-11-2010 / 20:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_desiredAssertionStatus0:aJavaContext
-^AssertionsEnabled == true
-"Created: / 24-11-2010 / 08:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_forName0:aJavaContext
-| name initialize loader class |
-name := Java as_ST_String: (aJavaContext argAt: 1).
-initialize := aJavaContext argAt: 2.
-loader := aJavaContext argAt: 3.
-JavaClassReader classLoaderQuerySignal answer: loader do:
-[class := Java classForName: name].
-class isNil ifTrue:
-[^self throwClassNotFoundException: name].
-initialize ifTrue:
-[[class classInit] on: Error do:[self throwExceptionInInitializerError:name]].
-^JavaVM javaClassObjectForClass: class.
-"Created: / 24-11-2010 / 09:03:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getClassLoader0:aJavaContext
-"get a classes loader"
-|jClass cls loader|
-jClass := aJavaContext receiver.
-cls := self reflection classForJavaClassObject:jClass.
-loader := cls classLoader.
-cls isNil ifTrue:[
-loader := (Java classForName:'java/lang/ClassLoader')
-perform:#'getSystemClassLoader()Ljava/lang/ClassLoader;'.
-"/    ('JAVA: getClassLoader - ' , loader printString) infoPrintCR.
-].
-^ loader
-"Created: / 25-10-2010 / 22:49:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 09-11-2010 / 23:37:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:18:54 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_Class_getComponentType:nativeContext
-|cls|
-cls := self reflection classForJavaClassObject:(nativeContext receiver).
-cls isJavaPrimitiveType ifTrue:[
-self breakPoint:#jv.
-^ nil
-].
-^ self javaClassObjectForClass:cls javaComponentClass
-"Created: / 12-11-1998 / 18:54:46 / cg"
-"Modified: / 20-12-2010 / 22:56:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:18:59 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_Class_getConstantPool:aJavaContext
-| class |
-class := self reflection classForJavaClassObject:aJavaContext receiver.
-^ self reflection javaConstantPoolObjectFor:class constantPool.
-"Created: / 21-12-2010 / 20:00:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-02-2011 / 18:05:13 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_Class_getDeclaredConstructors0:aJavaContext
-|class publicOnly constructors|
-class := self reflection classForJavaClassObject:(aJavaContext receiver).
-publicOnly := (aJavaContext argAt:1) == 1.
-constructors := OrderedCollection new.
-class
-selectorsAndMethodsDo:[:selector :method |
-(method isJavaMethod
-and:[
-(selector at:1) == $<
-and:[
-(selector startsWith:'<init>(') and:[publicOnly not or:[method isPublic]]
-]
-])
-ifTrue:[constructors add:(self reflection javaConstructorObjectForMethod:method)]
-].
-^ (self classForName: 'java.lang.reflect.Constructor')
-arrayClass withAll: constructors
-"Created: / 24-11-2010 / 09:25:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 09-02-2011 / 01:24:03 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 11-02-2011 / 08:55:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getDeclaredFields0:aJavaContext
-|javaClassObject class fields publicOnly|
-class := self reflection classForJavaClassObject:(javaClassObject := aJavaContext argAt:0).
-publicOnly := (aJavaContext argAt:1) == 1.
-fields := class fields.
-publicOnly ifTrue:
-[fields := fields select:[:f|f isPublic]].
-fields := fields collect:[:f | self javaFieldObjectForField:f in:javaClassObject].
-^ (self classForName: 'java.lang.reflect.Field') arrayClass
-withAll:fields
-"Created: / 10-11-2010 / 16:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:19:06 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 16-03-2011 / 15:43:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getDeclaredMethods0:aJavaContext
-|class publicOnly methods|
-class := self reflection classForJavaClassObject:(aJavaContext receiver).
-publicOnly := (aJavaContext argAt:1) == 1.
-methods := OrderedCollection new.
-class
-selectorsAndMethodsDo:[:selector :method |
-(method isJavaMethod
-and:[
-(selector at:1) ~~ $<
-and:[
-(selector startsWith:'<init>(') not
-and:[publicOnly not or:[method isPublic]]
-]
-])
-ifTrue:[methods add:(self javaMethodObjectForMethod:method)]
-].
-^ (self classForName: 'java.lang.reflect.Method')
-arrayClass withAll: methods asArray
-"Created: / 21-12-2010 / 22:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:19:09 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 11-02-2011 / 08:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getInterfaces:nativeContext
-|jClass cls interfaces jInterfaces|
-jClass := nativeContext receiver.
-cls := self reflection classForJavaClassObject:jClass.
-cls isJavaPrimitiveType ifTrue:[
-^ (self classForName:'java.lang.Class') arrayClass new
-].
-interfaces := cls interfaces.
-interfaces ifNil:[^ (self classForName:'java.lang.Class') arrayClass new].
-jInterfaces := (self classForName:'java.lang.Class') arrayClass new:interfaces size.
-interfaces withIndexDo:
-[:iface :idx | jInterfaces at:idx put:(self javaClassObjectForClass:iface)].
-^ jInterfaces
-"Modified: / 28-01-2011 / 15:19:11 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 04-02-2011 / 09:43:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getModifiers:aJavaContext
-^ (self reflection classForJavaClassObject:aJavaContext receiver) accessFlags
-"Created: / 12-11-1998 / 18:54:53 / cg"
-"Modified: / 26-11-2010 / 10:25:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:19:14 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_Class_getName0:aJavaContext
-|class|
-class := aJavaContext receiver.
-class := self reflection classForJavaClassObject:aJavaContext receiver.
-^ self reflection
-javaStringObjectForString:class javaName
-interned:true.
-"Created: / 22-11-2010 / 17:50:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 09-02-2011 / 01:06:53 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 25-02-2011 / 19:00:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getPrimitiveClass:nativeContext
-"get a primitive class by name"
-|jClassName className|
-jClassName := nativeContext argAt:1.
-className := Java as_ST_String:jClassName.
-(JavaDescriptor baseTypesByTypeName keys includes: className)
-ifFalse:[self throwClassNotFoundException:className].
-^self reflection javaClassObjectForClassNamed: className
-"Created: / 04-01-1998 / 00:46:03 / cg"
-"Modified: / 28-01-2011 / 15:30:45 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 03-02-2011 / 21:43:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getRawAnnotations:aJavaContext
-|class |
-class := self reflection classForJavaClassObject:aJavaContext receiver.
-^ class runtimeVisibleAnnotationsAsBytesOrNil
-"Created: / 21-12-2010 / 19:35:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:19:20 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 25-02-2011 / 16:48:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_getSuperclass:nativeContext
-"return a classes superclass"
-|jClass cls superCls|
-jClass := nativeContext receiver.
-cls := self reflection classForJavaClassObject:jClass.
-superCls := cls superclass.
-superCls == JavaObject ifTrue:[
-^ nil.
-].
-^ self javaClassObjectForClass:superCls
-"Created: / 12-01-1998 / 12:38:36 / cg"
-"Modified: / 04-02-1998 / 14:51:22 / cg"
-"Modified: / 28-01-2011 / 14:12:47 / Marcel Hlopko <hlopik@gmail.com>"
-"Modified: / 03-02-2011 / 22:53:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-_Class_isArray:nativeContext
-^ (self reflection classForJavaClassObject:nativeContext receiver) isJavaArrayClass
-ifTrue:[1]
-ifFalse:[0]
-"Created: / 12-11-1998 / 18:54:24 / cg"
-"Modified: / 20-12-2010 / 23:20:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-"Modified: / 28-01-2011 / 15:19:24 / Marcel Hlopko <hlopik@gmail.com>"
-!
-_Class_isAssignableFrom:nativeContext
-"
-/**
-* Determines if the class or interface represented by this
-* {@code Class} object is either the same as, or is a superclass or
-* superinterface of, the class or interface represented by the specified
-* {@code Class} parameter. It returns {@code true} if so;
-* otherwise it returns {@code false}. If this {@code Class}
-* object represents a primitive type, this method returns
-* {@code true} if the specified {@code Class} parameter is
-* exactly this {@code Class} object; otherwise it returns
-* {@code false}.
-*
-* <p> Specifically, this method tests whether the type represented by the
-* specified {@code Class} parameter can be converted to the type
-* represented by this {@code Class} object via an identity conversion
-* or via a widening reference conversion. See <em>The Java Language
-* Specification</em>, sections 5.1.1 and 5.1.4 , for details.
-*
-* @param cls the {@code Class} object to be checked
-* @return the {@code boolean} value indicating whether objects of the
-* type {@code cls} can be assigned to objects of this class
-* @exception NullPointerException if the specified Class parameter is
-*            null.
-* @since JDK1.1
-*/
-"
-| clsObj me other |
-clsObj := nativeContext argAt: 1.
-clsObj ifNil:[^self throwNullPointerException].
-me := self reflection classForJavaClassObject: nativeContext receiver.
-other := self reflection classForJavaClassObject: clsObj.
-"/    Determines if the class or interface represented by this
-"/    @code Class} object is either the same as, or is a superclass or
-"/    superinterface of, the class or interface represented by the specified
-"/    {@code Class} parameter.
-^(other includesBehavior: me)
-ifTrue:[1]
-ifFalse:[0]
-"Created: / 12-11-1998 / 18:54:16 / cg"
-"Modified: / 05-02-2011 / 23:38:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _Class_isInterface:nativeContext
 "return true, if this class is an interface"
 self halt:'Not yet implemented'.
 "Created: / 10-11-2010 / 14:48:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
+_Double_longBitsToDouble:nativeContext
+|i aFloat|
+i := nativeContext argAt:1.
+aFloat := Float new.
+UninterpretedBytes isBigEndian ifTrue:[
+	aFloat basicAt:1 put:((i bitShift:-56) bitAnd:16rFF).
+	aFloat basicAt:2 put:((i bitShift:-48) bitAnd:16rFF).
+	aFloat basicAt:3 put:((i bitShift:-40) bitAnd:16rFF).
+	aFloat basicAt:4 put:((i bitShift:-32) bitAnd:16rFF).
+	aFloat basicAt:5 put:((i bitShift:-24) bitAnd:16rFF).
+	aFloat basicAt:6 put:((i bitShift:-16) bitAnd:16rFF).
+	aFloat basicAt:7 put:((i bitShift:-8) bitAnd:16rFF).
+	aFloat basicAt:8 put:(i bitAnd:16rFF).
+] ifFalse:[
+	aFloat basicAt:1 put:(i bitAnd:16rFF).
+	aFloat basicAt:2 put:((i bitShift:-8) bitAnd:16rFF).
+	aFloat basicAt:3 put:((i bitShift:-16) bitAnd:16rFF).
+	aFloat basicAt:4 put:((i bitShift:-24) bitAnd:16rFF).
+	aFloat basicAt:5 put:((i bitShift:-32) bitAnd:16rFF).
+	aFloat basicAt:6 put:((i bitShift:-40) bitAnd:16rFF).
+	aFloat basicAt:7 put:((i bitShift:-48) bitAnd:16rFF).
+	aFloat basicAt:8 put:((i bitShift:-56) bitAnd:16rFF).
+].
+^ aFloat.
+"Created: / 4.1.1998 / 01:45:00 / cg"
+!
 _FileDescriptor_initIDs:nativeContext
 "/ introduced with jdk1.2 ... (sigh)
 "Created: / 27.1.1998 / 18:16:29 / cg"
 !
 "/ introduced with jdk1.2 ... (sigh)
 "Created: / 27.1.1998 / 18:15:51 / cg"
 !
+_FileInputStream_open:nativeContext
+|fs fd fn name stream fileNo|
+fs := nativeContext receiver.
+fd := fs instVarNamed:'fd'.
+(fileNo := fd instVarNamed:'fd') ~~ 0 ifTrue:[
+	fileNo ~~ -1 ifTrue:[
+	    self halt:'file already open'.
+	    self internalError:'file already open'.
+	    ^ self.
+	]
+].
+name := nativeContext argAt:1.
+name := Java as_ST_String:name.
+name := self fixFilename:name.
+FileOpenTrace ifTrue:[
+	('JAVA: opening ' , name) infoPrintCR.
+].
+stream := self fileStreamForReading:name.
+stream isNil ifTrue:[
+	FileOpenTrace ifTrue:[
+	    ('JAVA: failed to open ''' , name , ''' for reading.') infoPrintCR.
+	].
+	self throwIOExceptionWithMessage:('cannot open ' , name , ' for reading').
+	^ self.
+].
+stream buffered:false.
+"/    FileOpenConfirmation ifTrue:[
+"/        (self confirm:('JAVA Security check\\Opening ''' , name , ''' for reading.\Grant permission ?') withCRs)
+"/        ifFalse:[
+"/            self throwIOExceptionWithMessage:('no permission to open ' , name , ' for reading').
+"/            ^ self
+"/        ]
+"/    ].
+fileNo := self addOpenFile:stream.
+FileOpenTrace ifTrue:[
+	('JAVA: opened ' , name , ' as FD ' , fileNo printString) infoPrintCR.
+].
+fd instVarNamed:'fd' put:fileNo.
+"Created: / 4.1.1998 / 16:47:12 / cg"
+"Modified: / 28.1.1999 / 17:24:07 / cg"
+!
 _FileOutputStream_initIDs:nativeContext
 "/ introduced with jdk1.2 ... (sigh)
 "Created: / 27.1.1998 / 18:16:40 / cg"
+!
+_FileOutputStream_open:nativeContext
+^ self commonOpen:nativeContext forAppend:false
+"Modified: / 7.4.1998 / 19:14:31 / cg"
 !
 _FileOutputStream_writeBytes:nativeContext
 ^ self anyStream_writeBytes:nativeContext
 ^ rslt
 "Created: / 4.1.1998 / 19:40:26 / cg"
 !
+_Object_notify:nativeContext
+"wakeup"
+self wakeup:(nativeContext receiver).
+"Created: / 6.1.1998 / 21:09:26 / cg"
+!
+_Object_notifyAll:nativeContext
+self wakeupAll:(nativeContext receiver).
+"Created: / 3.1.1998 / 03:06:56 / cg"
+!
 _Object_registerNatives:aJavaContext
 "Nothing to do, native method are bound lazily"
 "Created: / 19-10-2010 / 12:42:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ThreadTrace ifTrue:[
 	'====> thread continues ...' printCR.
 ]
 "Modified: / 30.12.1998 / 19:20:43 / cg"
+!
+_Proxy_defineClass0:nativeContext
+"
+private static native Class defineClass0(ClassLoader loader, String name,
+byte[] b, int off, int len);
+"
+| loader name b off len  bs cls |
+loader := nativeContext argAt: 1.
+name := nativeContext argAt: 2.
+b := nativeContext argAt: 3.
+off := nativeContext argAt: 4.
+len := nativeContext argAt: 5.
+bs := (off = 0 and: [len = b size])
+ifTrue:[b readStream]
+ifFalse:[(b copyFrom: off + 1 to: off + len) readStream].
+cls := JavaClassReader readStream: bs.
+cls classLoader: loader.
+^self reflection javaClassObjectForClass: cls.
+"Created: / 06-02-2011 / 16:55:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _Reflection_getCallerClass:aJavaContext
 | framesToSkip framesSkipped frame |
 "Created: / 26-11-2010 / 10:20:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 28-01-2011 / 15:19:28 / Marcel Hlopko <hlopik@gmail.com>"
 !
+_Runtime_gc:nativeContext
+"Runs the garbage collector.
+Ignored, since the ST-gc runs all the time."
+^ self
+"Modified: / 12.1.1998 / 12:58:32 / cg"
+!
 _Signal_findSignal:aJavaContext
 | input signame |
 input := Java as_ST_String: (aJavaContext argAt: 1).
 signame := 'SIG', (input asUppercase).
 "
 "Modified: / 23.12.1998 / 21:54:50 / cg"
 !
+_System_identityHashCode:nativeContext
+|obj|
+obj := nativeContext argAt:1.
+^ obj identityHash
+"Modified: / 12.11.1998 / 18:52:07 / cg"
+"Created: / 12.11.1998 / 18:54:00 / cg"
+!
 _System_initProperties:nativeContext
 |props stProps|
 props := nativeContext argAt:1.
 stProps := self systemProperties.
 ].
 ^ nil
 "Created: / 2.1.1998 / 19:05:55 / cg"
 "Modified: / 6.2.1998 / 02:28:18 / cg"
+!
+_Thread_sleep:nativeContext
+"sleep for some milliseconds "
+|millis|
+millis := nativeContext argAt:1.
+self waitFor:nil state:nil timeOut:(millis max:50)
+"Modified: / 8.1.1999 / 16:42:52 / cg"
 !
 _Thread_start0:nativeContext
 ^self threadStart: nativeContext
 self breakPoint: #libjava
 "Created: / 10-12-2010 / 14:47:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 10-12-2010 / 20:58:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+_Unsafe_allocateInstance:nativeContext
+"
+/** Allocate an instance but do not run any constructor.
+Initializes the class if it has not yet been. */
+public native Object allocateInstance(Class cls)
+throws InstantiationException;
+"
+| cls |
+cls := self reflection classForJavaClassObject: (nativeContext argAt:1).
+cls classInit.
+^cls newCleared
+"Created: / 05-02-2011 / 23:10:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _Unsafe_allocateMemory:aJavaContext
 | size |
 "Created: / 22-11-2010 / 18:40:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 06-02-2011 / 12:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
+_Unsafe_defineClass: nativeContext
+"
+/**
+* Tell the VM to define a class, without security checks.  By default, the
+* class loader and protection domain come from the caller's class.
+*/
+public native Class defineClass(String name, byte[] b, int off, int len,
+ClassLoader loader,
+ProtectionDomain protectionDomain);
+"
+| name b off len loader protectionDomain bs cls |
+name := nativeContext argAt: 1.
+b := nativeContext argAt: 2.
+off := nativeContext argAt: 3.
+len := nativeContext argAt: 4.
+loader := nativeContext argAt: 5.
+protectionDomain := nativeContext argAt: 6.
+bs := (off = 0 and: [len = b size])
+ifTrue:[b readStream]
+ifFalse:[(b copyFrom: off + 1 to: off + len) readStream].
+cls := JavaClassReader readStream: bs.
+cls classLoader: loader.
+^self reflection javaClassObjectForClass: cls.
+"Created: / 05-02-2011 / 22:57:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
 _Unsafe_ensureClassInitialized:aJavaContext
 |class|
 class := self reflection classForJavaClassObject:(aJavaContext argAt:1).
 "Sometimes there is a nil. I don't know why, so I did quickfix"
 self breakPoint: #libjava.
 ^ 0.
 "Created: / 11-12-2010 / 16:33:38 / Jan Kurs <kurs.jan@post.cz>"
+!
+_sun_misc_Unsafe_allocateInstance: nativeContext
+<javanative: 'sun/misc/Unsafe' name: 'allocateInstance'>
+"
+/** Allocate an instance but do not run any constructor.
+Initializes the class if it has not yet been. */
+public native Object allocateInstance(Class cls)
+throws InstantiationException;
+"
+| cls |
+cls := self reflection classForJavaClassObject: (nativeContext argAt:1).
+cls classInit.
+^cls newCleared
+"Created: / 05-02-2011 / 23:10:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _sun_misc_Unsafe_allocateMemory: aJavaContext
 <javanative: 'sun/misc/Unsafe' name: 'allocateMemory'>
 "Created: / 22-11-2010 / 18:40:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 06-02-2011 / 12:10:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
+_sun_misc_Unsafe_compareAndSwapObject: nativeContext
+<javanative: 'sun/misc/Unsafe' name: 'compareAndSwapObject'>
+^ UnimplementedNativeMethodSignal raise
+!
+_sun_misc_Unsafe_defineClass: nativeContext
+<javanative: 'sun/misc/Unsafe' name: 'defineClass'>
+"
+/**
+* Tell the VM to define a class, without security checks.  By default, the
+* class loader and protection domain come from the caller's class.
+*/
+public native Class defineClass(String name, byte[] b, int off, int len,
+ClassLoader loader,
+ProtectionDomain protectionDomain);
+"
+| name b off len loader protectionDomain bs cls |
+name := nativeContext argAt: 1.
+b := nativeContext argAt: 2.
+off := nativeContext argAt: 3.
+len := nativeContext argAt: 4.
+loader := nativeContext argAt: 5.
+protectionDomain := nativeContext argAt: 6.
+bs := (off = 0 and: [len = b size])
+ifTrue:[b readStream]
+ifFalse:[(b copyFrom: off + 1 to: off + len) readStream].
+cls := JavaClassReader readStream: bs.
+cls classLoader: loader.
+^self reflection javaClassObjectForClass: cls.
+"Created: / 05-02-2011 / 22:57:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
 _sun_misc_Unsafe_ensureClassInitialized: aJavaContext
 <javanative: 'sun/misc/Unsafe' name: 'ensureClassInitialized'>
 |class|
 "Modified: / 25-04-2011 / 20:21:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _ARRAYLENGTH:arr
 arr isNil ifTrue:[
-	self halt:'should not happen'.
+"/self halt:'should not happen'.
-	self throwNullPointerException.
+self throwNullPointerException.
 ].
 ^ arr size
-"Created: / 8.1.1999 / 14:38:27 / cg"
+"Created: / 08-01-1999 / 14:38:27 / cg"
+"Modified: / 31-05-2011 / 10:09:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 _ATHROW:aJavaException
 <resource: #skipInDebuggersWalkBack>

branch	jk_new_structure
changeset 824	26e719a7e88c
parent 804	c125b8449315
child 826	db53b9c842d7