*** empty log message ***
authorcg
Wed, 13 Aug 1997 13:11:14 +0000
changeset 217 bf3acbe1248b
parent 216 abe4c0313d97
child 218 7fd29ab73152
*** empty log message ***
SmalltalkAppletStub.st
--- 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 $'
 ! !