--- 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!