--- a/JavaVM.st	Mon Dec 18 22:12:09 2000 +0000
+++ b/JavaVM.st	Sun Dec 31 12:27:50 2000 +0000
@@ -1681,6 +1681,7 @@
     "/ otherwise, class-inits would not be called
     "/ by resolver ... (sigh)
 
+    JavaNativeMethod flushAllCachedNativeMethods.
     JavaMethod allSubInstancesDo:[:m |
         m checked:false.
         m code:nil.
@@ -2544,6 +2545,26 @@
     "Modified: / 5.12.1998 / 13:47:52 / cg"
 !
 
+replacementFontFor:name style:styleNr size:size
+    |font family style|
+
+    style := 'roman'.
+    styleNr = 0 ifTrue:[
+        style := 'roman'
+    ].
+
+    font := Font family:name style:style size:size.
+    font notNil ifTrue:[^ font].
+
+    name = 'Dialog' ifTrue:[
+        family := 'helvetica'
+    ] ifFalse:[
+        family := 'courier'
+    ].
+
+    ^ Font family:name style:style size:size.
+!
+
 topViewsMenu:view
     |idx|
 
@@ -8391,17 +8412,21 @@
 !
 
 _MComponentPeer_pSetFont:nativeContext
-    |view jFont stFont |
+    |view jFont stFont name style size|
 
     view := self viewForWPeer:nativeContext.
     jFont := nativeContext argAt:1.
 
     stFont := jFont instVarNamed:'pData'.
     (stFont isNil or:[stFont == 0]) ifTrue:[
-self halt.
-    ] ifFalse:[
-        view font:stFont
-    ].
+        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
 !
@@ -12822,6 +12847,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.179 2000/12/18 22:11:53 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.180 2000/12/31 12:27:50 cg Exp $'
 ! !
 JavaVM initialize!