--- a/JavaVM.st	Mon Mar 30 15:26:47 1998 +0000
+++ b/JavaVM.st	Mon Mar 30 15:27:23 1998 +0000
@@ -4379,6 +4379,20 @@
     "Modified: / 6.2.1998 / 02:13:09 / cg"
 !
 
+_MozillaAppletContext_pShowDocument:nativeContext
+    |s js|
+
+    js := nativeContext argAt:1.
+    s := Java as_ST_String:js.
+
+    "/ somehow pass it to the html browser ....
+"/ Transcript showCR:s.
+    ^ nil
+
+    "Modified: / 8.1.1998 / 17:06:13 / cg"
+    "Created: / 29.3.1998 / 15:53:17 / cg"
+!
+
 _MozillaAppletContext_pShowStatus:nativeContext
     |s js|
 
@@ -6416,6 +6430,18 @@
     "Modified: / 25.1.1998 / 13:19:03 / 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_create:nativeContext
     |jMenuItemPeer jMenuItem jMenuPeer menu item lbl|
 
@@ -6426,22 +6452,24 @@
     menu := jMenuPeer instVarNamed:'pData'.
 
     item := menu createAtIndex:nil.
-    item value:[jMenuItemPeer perform:#'handleAction(I)V' with:0].
+    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
+        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.
+        'WMenuItem_create: ' print. menu print. ' -> ' print. item printNL.
     ].
 
     "Created: / 7.1.1998 / 21:40:44 / cg"
-    "Modified: / 14.1.1998 / 17:55:01 / cg"
+    "Modified: / 29.3.1998 / 15:44:13 / cg"
 !
 
 _WMenuItemPeer_enable:nativeContext
@@ -7475,6 +7503,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.24 1998/02/13 14:57:13 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.25 1998/03/30 15:27:23 cg Exp $'
 ! !
 JavaVM initialize!