checkin from browser
authorcg
Fri, 29 Jan 1999 15:30:31 +0000
changeset 545 6a841644c5e9
parent 544 18535acdec91
child 546 56e1665483d2
checkin from browser
JavaAppletComponentSpec.st
JavaEmbeddedFrameView.st
JavaPopUpView.st
JavaTopView.st
JavaView.st
SmalltalkAppletContext.st
SmalltalkAppletStub.st
--- a/JavaAppletComponentSpec.st	Sat Jan 23 15:28:24 1999 +0000
+++ b/JavaAppletComponentSpec.st	Fri Jan 29 15:30:31 1999 +0000
@@ -1,3 +1,16 @@
+"
+ 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.
+"
+
+
 NamedSpec subclass:#JavaAppletComponentSpec
 	instanceVariableNames:'codeURL codeBaseURL documentURL archiveURL parameterDictionary
 		level'
@@ -6,6 +19,30 @@
 	category:'Java-Views-Support'
 !
 
+!JavaAppletComponentSpec 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
+"
+    [Author:]
+        Claus Gittinger
+"
+
+! !
 
 !JavaAppletComponentSpec class methodsFor:'interface specs'!
 
@@ -729,5 +766,5 @@
 !JavaAppletComponentSpec class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaAppletComponentSpec.st,v 1.10 1998/02/13 13:24:53 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaAppletComponentSpec.st,v 1.11 1999/01/29 15:30:23 cg Exp $'
 ! !
--- 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 $'
 ! !
--- a/JavaPopUpView.st	Sat Jan 23 15:28:24 1999 +0000
+++ b/JavaPopUpView.st	Fri Jan 29 15:30:31 1999 +0000
@@ -1,3 +1,16 @@
+"
+ COPYRIGHT (c) 1999 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.
+"
+
+
 PopUpView subclass:#JavaPopUpView
 	instanceVariableNames:'eventReceiver updateRegions javaPeer'
 	classVariableNames:''
@@ -5,6 +18,31 @@
 	category:'Java-Views-Support'
 !
 
+!JavaPopUpView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1999 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
+"
+    [Author:]
+        Claus Gittinger
+"
+
+
+! !
 
 !JavaPopUpView methodsFor:'accessing'!
 
@@ -100,5 +138,5 @@
 !JavaPopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaPopUpView.st,v 1.1 1998/12/04 14:32:09 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaPopUpView.st,v 1.2 1999/01/29 15:30:26 cg Exp $'
 ! !
--- a/JavaTopView.st	Sat Jan 23 15:28:24 1999 +0000
+++ b/JavaTopView.st	Fri Jan 29 15:30:31 1999 +0000
@@ -1,3 +1,17 @@
+"
+ COPYRIGHT (c) 1999 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.
+"
+
+
+
 StandardSystemView subclass:#JavaTopView
 	instanceVariableNames:'eventReceiver updateRegions javaPeer'
 	classVariableNames:''
@@ -5,6 +19,32 @@
 	category:'Java-Views-Support'
 !
 
+!JavaTopView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1999 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
+"
+    [Author:]
+        Claus Gittinger
+"
+
+
+! !
 
 !JavaTopView methodsFor:'accessing'!
 
@@ -91,5 +131,5 @@
 !JavaTopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaTopView.st,v 1.4 1998/12/04 14:34:32 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaTopView.st,v 1.5 1999/01/29 15:30:27 cg Exp $'
 ! !
--- a/JavaView.st	Sat Jan 23 15:28:24 1999 +0000
+++ b/JavaView.st	Fri Jan 29 15:30:31 1999 +0000
@@ -1,3 +1,17 @@
+"
+ 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.
+"
+
+
+
 View subclass:#JavaView
 	instanceVariableNames:'eventReceiver updateRegions javaPeer'
 	classVariableNames:''
@@ -5,6 +19,32 @@
 	category:'Java-Views-Support'
 !
 
+!JavaView 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
+"
+    [Author:]
+        Claus Gittinger
+"
+
+
+! !
 
 !JavaView methodsFor:'accessing'!
 
@@ -190,5 +230,5 @@
 !JavaView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.17 1998/12/10 18:37:21 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.18 1999/01/29 15:30:29 cg Exp $'
 ! !
--- a/SmalltalkAppletContext.st	Sat Jan 23 15:28:24 1999 +0000
+++ b/SmalltalkAppletContext.st	Fri Jan 29 15:30:31 1999 +0000
@@ -1,3 +1,18 @@
+"
+ 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.
+"
+
+
+
+
 Object subclass:#SmalltalkAppletContext
 	instanceVariableNames:'statusHolder'
 	classVariableNames:''
@@ -5,6 +20,33 @@
 	category:'Java-Views-Support'
 !
 
+!SmalltalkAppletContext 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
+"
+    [Author:]
+        Claus Gittinger
+"
+
+
+! !
 
 !SmalltalkAppletContext methodsFor:'accessing'!
 
@@ -68,5 +110,5 @@
 !SmalltalkAppletContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletContext.st,v 1.7 1998/11/04 20:58:15 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletContext.st,v 1.8 1999/01/29 15:30:31 cg Exp $'
 ! !
--- a/SmalltalkAppletStub.st	Sat Jan 23 15:28:24 1999 +0000
+++ b/SmalltalkAppletStub.st	Fri Jan 29 15:30:31 1999 +0000
@@ -1,3 +1,18 @@
+"
+ 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.
+"
+
+
+
+
 Object subclass:#SmalltalkAppletStub
 	instanceVariableNames:'parameter documentBase codeBase appletContext'
 	classVariableNames:''
@@ -5,6 +20,33 @@
 	category:'Java-Views-Support'
 !
 
+!SmalltalkAppletStub 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
+"
+    [Author:]
+        Claus Gittinger
+"
+
+
+! !
 
 !SmalltalkAppletStub methodsFor:'accessing'!
 
@@ -142,5 +184,5 @@
 !SmalltalkAppletStub class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletStub.st,v 1.7 1998/01/12 22:57:46 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletStub.st,v 1.8 1999/01/29 15:30:21 cg Exp $'
 ! !