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