--- a/SmalltalkAppletStub.st Wed Aug 13 13:11:04 1997 +0000
+++ b/SmalltalkAppletStub.st Wed Aug 13 13:11:14 1997 +0000
@@ -72,6 +72,14 @@
"Created: 1.8.1997 / 15:56:20 / cg"
! !
+!SmalltalkAppletStub methodsFor:'applet actions'!
+
+appletResize:newWidth _:newHeight
+ self halt.
+
+ "Created: 13.8.1997 / 00:18:41 / cg"
+! !
+
!SmalltalkAppletStub methodsFor:'java accessing'!
getAppletContext
@@ -93,18 +101,22 @@
!
getParameter:arg
+ |s|
+
(parameter includesKey:arg) ifFalse:[
- self halt:'no parameter for: ' , arg displayString.
- ^ nil
+"/ self halt:'no parameter for: ' , arg displayString.
+"/ ^ nil
+ s := Dialog request:('applet wants parameter for ' , (Java as_ST_String:arg)).
+ ^ Java as_String:s.
].
^ parameter at:arg ifAbsent:nil
"Created: 1.8.1997 / 15:56:51 / cg"
- "Modified: 7.8.1997 / 14:32:49 / cg"
+ "Modified: 13.8.1997 / 00:10:47 / cg"
! !
!SmalltalkAppletStub class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletStub.st,v 1.2 1997/08/07 13:19:30 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletStub.st,v 1.3 1997/08/13 13:11:14 cg Exp $'
! !