JavaEmbeddedFrameView.st
changeset 545 6a841644c5e9
parent 527 7eb6f6291fea
child 644 0294a6ed677e
--- a/JavaEmbeddedFrameView.st	Sat Jan 23 15:28:24 1999 +0000
+++ b/JavaEmbeddedFrameView.st	Fri Jan 29 15:30:31 1999 +0000
@@ -1,13 +1,53 @@
+"
+ COPYRIGHT (c) 1997 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
 JavaView subclass:#JavaEmbeddedFrameView
 	instanceVariableNames:'codeURL codeBaseURL documentURL archiveURL parameterDictionary
 		embeddedAppletFrame applet appletID appletThread
 		infoDisplayReceiver autoSetupApplet autoStartApplet
-		autoDestroyApplet isNS40'
+		autoDestroyApplet isNS40 attributeHashTable'
 	classVariableNames:'NextSequentialAppletID'
 	poolDictionaries:''
 	category:'Java-Views-Support'
 !
 
+!JavaEmbeddedFrameView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
+documentation
+"
+    a wrapper view, which allows for Java Applets to be embedded
+    in a smalltalk view.
+    This requires a netscape to be installed on the system.
+
+    [Author:]
+        Claus Gittinger
+"
+! !
 
 !JavaEmbeddedFrameView class methodsFor:'support'!
 
@@ -30,6 +70,12 @@
 
 !JavaEmbeddedFrameView methodsFor:'accessing'!
 
+applet
+    ^ applet
+
+    "Created: / 26.1.1999 / 13:51:10 / cg"
+!
+
 appletID
     "return the value of the instance variable 'appletID' (automatically generated)"
 
@@ -99,6 +145,20 @@
     "Created: / 28.1.1998 / 21:43:54 / cg"
 !
 
+parameterAt:key put:valueString
+    parameterDictionary isNil ifTrue:[
+        parameterDictionary := IdentityDictionary new.
+    ].
+    parameterDictionary at:key put:valueString.
+    attributeHashTable 
+        perform:#'put(Ljava/lang/Object;Ljava/lang/Object;)Ljava/lang/Object;'
+        with:(Java as_String:key)
+        with:(Java as_String:valueString)
+
+    "Created: / 26.1.1999 / 13:46:01 / cg"
+    "Modified: / 28.1.1999 / 17:59:36 / cg"
+!
+
 parameterDictionary:aParameterDictionary
     parameterDictionary := aParameterDictionary
 
@@ -317,7 +377,7 @@
     ^ appletThread.
 
     "Created: / 28.1.1998 / 21:30:32 / cg"
-    "Modified: / 4.11.1998 / 17:37:14 / cg"
+    "Modified: / 29.1.1999 / 16:18:14 / cg"
 !
 
 stopApplet
@@ -376,6 +436,13 @@
     "Modified: / 29.1.1998 / 15:28:26 / cg"
 !
 
+initialize           
+    super initialize.
+    viewBackground := Color black.
+
+    "Modified: / 28.1.1999 / 17:44:11 / cg"
+!
+
 realize
     super realize.
  
@@ -541,6 +608,8 @@
     jCodeBaseURL := Java as_URL:codeBaseURL.
     documentURL notNil ifTrue:[
         jDocumentURL := Java as_URL:documentURL.
+    ] ifFalse:[
+        jDocumentURL := Java as_URL:codeBaseURL
     ].
     archiveURL notNil ifTrue:[
         jArchiveURL := Java as_URL:archiveURL.
@@ -562,7 +631,7 @@
     parameterDictionary notNil ifTrue:[
         attribs declareAllFrom:parameterDictionary
     ].
-    attribs := Java as_Hashtable:attribs.
+    attributeHashTable := Java as_Hashtable:attribs.
 
     anAppletContextOrNil notNil ifTrue:[
         appletContext := anAppletContextOrNil
@@ -606,7 +675,7 @@
                     with:jDocumentURL
                     with:jCodeBaseURL
                     with:jArchiveURL
-                    with:attribs
+                    with:attributeHashTable
                     with:appletContext
                     with:(Java as_Integer:id)
                     with:0 "/ reloadClasses-boolean
@@ -620,7 +689,7 @@
                 with:jDocumentURL
                 with:jCodeBaseURL
                 with:jArchiveURL
-                with:attribs
+                with:attributeHashTable
                 with:appletContext
                 with:(Java as_Integer:id).
         ] ifFalse:[
@@ -629,7 +698,7 @@
                 perform:#'<init>(Ljava/net/URL;Ljava/net/URL;Ljava/util/Hashtable;Lnetscape/applet/MozillaAppletContext;I)V'
                 with:jDocumentURL
                 with:jCodeBaseURL
-                with:attribs
+                with:attributeHashTable
                 with:appletContext
                 with:id.
         ].
@@ -642,7 +711,7 @@
     ^ true
 
     "Created: / 20.10.1998 / 15:47:04 / cg"
-    "Modified: / 10.11.1998 / 12:36:09 / cg"
+    "Modified: / 28.1.1999 / 14:27:17 / cg"
 ! !
 
 !JavaEmbeddedFrameView methodsFor:'resizing'!
@@ -670,5 +739,5 @@
 !JavaEmbeddedFrameView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaEmbeddedFrameView.st,v 1.16 1999/01/08 16:51:15 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaEmbeddedFrameView.st,v 1.17 1999/01/29 15:30:24 cg Exp $'
 ! !