hg/stx-libjava: JavaEmbeddedFrameView.st@69ecd5609bb3 (annotated)

545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	1	"
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG
69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	3	All Rights Reserved
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	4
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	5	This software is furnished under a license and may be used
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	6	only in accordance with the terms of that license and with the
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	7	inclusion of the above copyright notice. This software may not
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	8	be provided or otherwise made available to, or used by, any
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	9	other person. No title to or ownership of the software is
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	10	hereby transferred.
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	11	"
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	12
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	13
681 c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	14	"{ Package: 'stx:libjava' }"
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	15
233 fc91b8aba669 intitial checkin cg parents: diff changeset	16	JavaView subclass:#JavaEmbeddedFrameView
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	17	instanceVariableNames:'codeURL codeBaseURL documentURL archiveURL parameterDictionary
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	18	embeddedAppletFrame applet appletID appletThread
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	19	infoDisplayReceiver autoSetupApplet autoStartApplet
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	20	autoDestroyApplet isNS40 attributeHashTable'
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	21	classVariableNames:'NextSequentialAppletID'
233 fc91b8aba669 intitial checkin cg parents: diff changeset	22	poolDictionaries:''
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	23	category:'Java-Views-Support'
233 fc91b8aba669 intitial checkin cg parents: diff changeset	24	!
fc91b8aba669 intitial checkin cg parents: diff changeset	25
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	26	!JavaEmbeddedFrameView class methodsFor:'documentation'!
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	27
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	28	copyright
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	29	"
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	30	COPYRIGHT (c) 1997 by eXept Software AG
69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	31	All Rights Reserved
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	32
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	33	This software is furnished under a license and may be used
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	34	only in accordance with the terms of that license and with the
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	35	inclusion of the above copyright notice. This software may not
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	36	be provided or otherwise made available to, or used by, any
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	37	other person. No title to or ownership of the software is
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	38	hereby transferred.
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	39	"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: 748 diff changeset	40
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	41	!
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	42
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	43	documentation
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	44	"
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	45	a wrapper view, which allows for Java Applets to be embedded
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	46	in a smalltalk view.
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	47	This requires a netscape to be installed on the system.
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	48
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	49	[Author:]
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	50	Claus Gittinger
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	51	"
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	52	! !
233 fc91b8aba669 intitial checkin cg parents: diff changeset	53
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	54	!JavaEmbeddedFrameView class methodsFor:'support'!
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	55
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	56	newAppletContext
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	57	\|jMozillaAppletContextClass\|
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	58
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	59	"/ this makes it a modzilla applet context ...
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	60	jMozillaAppletContextClass := Java classForName:'netscape.applet.MozillaAppletContext'.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	61	jMozillaAppletContextClass isNil ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	62	self warn:'no netscape.applet.MozillaAppletContext class'.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	63	^ nil
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	64	].
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	65	jMozillaAppletContextClass instVarNamed:'debug' put:1.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	66
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	67	^ jMozillaAppletContextClass new.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	68
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	69	"Created: / 20.10.1998 / 15:40:08 / cg"
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	70	"Modified: / 20.10.1998 / 15:43:47 / cg"
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	71	! !
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	72
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	73	!JavaEmbeddedFrameView methodsFor:'accessing'!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	74
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	75	applet
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	76	^ applet
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	77
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	78	"Created: / 26.1.1999 / 13:51:10 / cg"
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	79	!
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	80
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	81	appletID
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	82	"return the value of the instance variable 'appletID' (automatically generated)"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	83
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	84	^ appletID
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	85
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	86	"Created: / 28.1.1998 / 21:08:54 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	87	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	88
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	89	appletID:something
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	90	"set the value of the instance variable 'appletID' (automatically generated)"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	91
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	92	appletID := something.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	93
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	94	"Created: / 28.1.1998 / 21:08:54 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	95	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	96
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	97	appletThread
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	98	^ appletThread
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	99
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	100	"Created: / 28.1.1998 / 21:39:42 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	101	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	102
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	103	archiveURL:anArchiveURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	104	archiveURL := anArchiveURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	105
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	106	"Created: / 28.1.1998 / 21:00:38 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	107	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	108
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	109	codeBaseURL:aCodeBaseURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	110	codeBaseURL := aCodeBaseURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	111
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	112	"Created: / 28.1.1998 / 20:59:34 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	113	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	114
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	115	codeURL:aCodeURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	116	codeURL := aCodeURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	117
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	118	"Created: / 28.1.1998 / 21:10:11 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	119	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	120
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	121	documentURL:aDocumentURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	122	documentURL := aDocumentURLString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	123
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	124	"Created: / 28.1.1998 / 21:00:03 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	125	"Modified: / 28.1.1998 / 21:00:28 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	126	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	127
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	128	embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	129	^ embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	130
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	131	"Created: / 28.1.1998 / 21:39:35 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	132	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	133
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	134	infoDisplayReceiver
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	135	"return the value of the instance variable 'infoDisplayReceiver' (automatically generated)"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	136
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	137	^ infoDisplayReceiver
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	138
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	139	"Created: / 28.1.1998 / 21:43:54 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	140	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	141
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	142	infoDisplayReceiver:something
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	143	"set the value of the instance variable 'infoDisplayReceiver' (automatically generated)"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	144
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	145	infoDisplayReceiver := something.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	146
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	147	"Created: / 28.1.1998 / 21:43:54 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	148	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	149
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	150	parameterAt:key put:valueString
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	151	parameterDictionary isNil ifTrue:[
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	152	parameterDictionary := IdentityDictionary new.
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	153	].
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	154	parameterDictionary at:key put:valueString.
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	155	attributeHashTable
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	156	perform:#'put(Ljava/lang/Object;Ljava/lang/Object;)Ljava/lang/Object;'
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	157	with:(Java as_String:key)
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	158	with:(Java as_String:valueString)
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	159
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	160	"Created: / 26.1.1999 / 13:46:01 / cg"
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	161	"Modified: / 28.1.1999 / 17:59:36 / cg"
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	162	!
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	163
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	164	parameterDictionary:aParameterDictionary
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	165	parameterDictionary := aParameterDictionary
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	166
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	167	"Created: / 28.1.1998 / 21:01:20 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	168	! !
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	169
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	170	!JavaEmbeddedFrameView methodsFor:'applet control'!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	171
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	172	appletDESTROY
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	173	\|ev\|
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	174
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	175	isNS40 ifTrue:[
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	176	"/ ev = netscape.applet.AppletEvent(APPLET_DESTROY);
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	177	ev := (Java classForName:'netscape.applet.AppletEvent')
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	178	newWith_int:(embeddedAppletFrame class instVarNamed:'APPLET_DESTROY').
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	179	embeddedAppletFrame
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	180	perform:#'sendEvent(Lnetscape/applet/NEvent;)V'
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	181	with:ev.
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	182	^ self
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	183	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	184	embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	185	perform:#'sendEvent(I)V'
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	186	with:(embeddedAppletFrame class instVarNamed:'APPLET_DESTROY').
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	187
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	188	"Created: / 28.1.1998 / 21:41:45 / cg"
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	189	"Modified: / 13.11.1998 / 14:19:49 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	190	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	191
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	192	appletDISPOSE
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	193	\|ev\|
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	194
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	195	isNS40 ifTrue:[
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	196	"/ ev = netscape.applet.AppletEvent(APPLET_DISPOSE);
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	197	ev := (Java classForName:'netscape.applet.AppletEvent')
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	198	newWith_int:(embeddedAppletFrame class instVarNamed:'APPLET_DISPOSE').
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	199	embeddedAppletFrame
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	200	perform:#'sendEvent(Lnetscape/applet/NEvent;)V'
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	201	with:ev.
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	202	^ self
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	203	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	204	embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	205	perform:#'sendEvent(I)V'
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	206	with:(embeddedAppletFrame class instVarNamed:'APPLET_DISPOSE').
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	207
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	208	"Created: / 28.1.1998 / 21:41:57 / cg"
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	209	"Modified: / 13.11.1998 / 14:19:43 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	210	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	211
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	212	appletINIT
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	213	\|ev\|
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	214
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	215	isNS40 ifTrue:[
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	216	"/ ev = netscape.applet.AppletEvent(APPLET_INIT);
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	217	ev := (Java classForName:'netscape.applet.AppletEvent')
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	218	newWith_int:(embeddedAppletFrame class instVarNamed:'APPLET_INIT').
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	219	embeddedAppletFrame
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	220	perform:#'sendEvent(Lnetscape/applet/NEvent;)V'
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	221	with:ev.
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	222	^ self
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	223	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	224	embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	225	perform:#'sendEvent(I)V'
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	226	with:(embeddedAppletFrame class instVarNamed:'APPLET_INIT').
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	227
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	228	"Created: / 28.1.1998 / 21:17:51 / cg"
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	229	"Modified: / 13.11.1998 / 14:19:35 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	230	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	231
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	232	appletLOAD
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	233	\|ev\|
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	234
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	235	isNS40 ifTrue:[
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	236	"/ ev = netscape.applet.AppletEvent(APPLET_LOAD);
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	237	ev := (Java classForName:'netscape.applet.AppletEvent')
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	238	newWith_int:(embeddedAppletFrame class instVarNamed:'APPLET_LOAD').
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	239	embeddedAppletFrame
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	240	perform:#'sendEvent(Lnetscape/applet/NEvent;)V'
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	241	with:ev.
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	242	^ self
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	243	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	244	embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	245	perform:#'sendEvent(I)V'
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	246	with:(embeddedAppletFrame class instVarNamed:'APPLET_LOAD').
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	247
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	248	"Created: / 28.1.1998 / 21:17:37 / cg"
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	249	"Modified: / 13.11.1998 / 14:19:31 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	250	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	251
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	252	appletSTART
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	253	\|ev\|
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	254
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	255	isNS40 ifTrue:[
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	256	"/ ev = netscape.applet.AppletEvent(APPLET_START);
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	257	ev := (Java classForName:'netscape.applet.AppletEvent')
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	258	newWith_int:(embeddedAppletFrame class instVarNamed:'APPLET_START').
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	259	embeddedAppletFrame
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	260	perform:#'sendEvent(Lnetscape/applet/NEvent;)V'
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	261	with:ev.
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	262	^ self
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	263	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	264	embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	265	perform:#'sendEvent(I)V'
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	266	with:(embeddedAppletFrame class instVarNamed:'APPLET_START').
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	267
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	268	"Created: / 28.1.1998 / 21:18:01 / cg"
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	269	"Modified: / 13.11.1998 / 14:19:21 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	270	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	271
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	272	appletSTOP
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	273	\|ev\|
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	274
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	275	isNS40 ifTrue:[
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	276	"/ ev = netscape.applet.AppletEvent(APPLET_STOP);
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	277	ev := (Java classForName:'netscape.applet.AppletEvent')
50d24dc93f8b checkin from browser cg parents: 429 diff changeset	278	newWith_int:(embeddedAppletFrame class instVarNamed:'APPLET_STOP').
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	279	embeddedAppletFrame
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	280	perform:#'sendEvent(Lnetscape/applet/NEvent;)V'
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	281	with:ev.
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	282	^ self
9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	283	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	284	embeddedAppletFrame
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	285	perform:#'sendEvent(I)V'
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	286	with:(embeddedAppletFrame class instVarNamed:'APPLET_STOP').
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	287
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	288	"Created: / 28.1.1998 / 21:41:33 / cg"
451 50d24dc93f8b checkin from browser cg parents: 429 diff changeset	289	"Modified: / 13.11.1998 / 14:19:14 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	290	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	291
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	292	autoDestroyApplet:aBoolean
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	293	"set/clear the autoDestroy flag.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	294	If set, the applet will be shutDown whenever the I get destroyed.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	295	if clear, the applet is not automatically shutDown and must be
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	296	terminated by someone else.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	297	The default is false."
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	298
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	299	autoDestroyApplet := aBoolean.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	300
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	301	"Created: / 29.1.1998 / 15:18:50 / cg"
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	302	"Modified: / 29.1.1998 / 15:21:01 / cg"
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	303	!
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	304
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	305	autoSetupApplet:aBoolean
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	306	"set/clear the autoSetup flag.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	307	If set, the appletFrame will be setup whenever the I get realized
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	308	for the first time.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	309	If clear, the frame is not automatically setup and must be
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	310	setup by someone else.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	311	The default is true."
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	312
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	313
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	314	autoSetupApplet := aBoolean.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	315
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	316	"Created: / 29.1.1998 / 15:18:41 / cg"
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	317	"Modified: / 29.1.1998 / 20:45:37 / cg"
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	318	!
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	319
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	320	autoStartApplet:aBoolean
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	321	"set/clear the autoStart flag.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	322	If set, the applet will be loaded & started whenever the I get realized
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	323	for the first time.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	324	If clear, the applet is not automatically started and must be
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	325	started by someone else.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	326	The default is false."
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	327
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	328
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	329	autoStartApplet := aBoolean.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	330
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	331	"Created: / 29.1.1998 / 15:18:41 / cg"
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	332	"Modified: / 29.1.1998 / 15:20:54 / cg"
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	333	!
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	334
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	335	startApplet
681 c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	336	"/ ensure its initialized when the first event comes;
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	337	"/ therefore, raise my prio above the event dispatchers prio for a while.
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	338
681 c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	339	Processor activeProcess withPriority:(Processor activePriority + 1)
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	340	do:[
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	341	self startAppletThread.
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	342
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	343	self appletLOAD.
681 c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	344	self appletINIT.
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	345	].
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	346
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	347	self appletSTART
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	348
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	349	"Modified: / 28.1.1998 / 21:30:24 / cg"
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	350	!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	351
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	352	startAppletThread
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	353	\|appletName\|
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	354
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	355	appletThread := JavaProcess
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	356	for:[
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	357	"/ passnotifications to the documentFrame ...
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	358	Object informationSignal handle:[:ex \|
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	359	JavaVM javaConsoleStream showCR:ex errorString.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	360	ex proceed.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	361	] do:[
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	362	Object activityNotificationSignal handle:[:ex \|
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	363	infoDisplayReceiver notNil ifTrue:[
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	364	infoDisplayReceiver infoDisplay:ex errorString.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	365	] ifFalse:[
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	366	Transcript showCR:ex errorString
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	367	].
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	368	ex proceed.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	369	] do:[
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	370	[
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	371	"/ Transcript showCR:(AbsoluteTime now printString , ' start embeddedAppletFrame').
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	372	embeddedAppletFrame perform:#'run()V'.
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	373	] valueNowOrOnUnwindDo:[
690 c9faa0d724d6 * empty log message * cg parents: 683 diff changeset	374	appletThread notNil ifTrue:[
c9faa0d724d6 * empty log message * cg parents: 683 diff changeset	375	appletThread terminateAllSubprocesses.
c9faa0d724d6 * empty log message * cg parents: 683 diff changeset	376	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	377	Transcript showCR:'JAVA applet startup finished'.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	378	]
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	379	]
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	380	]
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	381	]
681 c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	382	priority:(Processor activePriority "- 1").
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	383
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	384	appletName := codeURL asFilename withoutSuffix baseName.
417 d60d5b5da5f9 applet thread name changed. cg parents: 397 diff changeset	385	appletThread name:('JAVA-' , appletName , '-applet' , ' [startup]').
653 a98a3634389a make processes restartable (for snapshot restart of java threads) cg parents: 644 diff changeset	386	appletThread restartable:true.
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	387	appletThread resume.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	388	^ appletThread.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	389
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	390	"Created: / 28.1.1998 / 21:30:32 / cg"
653 a98a3634389a make processes restartable (for snapshot restart of java threads) cg parents: 644 diff changeset	391	"Modified: / 24.12.1999 / 02:58:50 / cg"
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	392	!
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	393
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	394	stopApplet
311 b23c5e132b8c hardterminate javaThread, if it did not terminate after 10 tries. cg parents: 303 diff changeset	395	\|n n2\|
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	396
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	397	(appletThread notNil
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	398	and:[appletThread isDead not])ifTrue:[
318 8720093188f7 debugPrints cg parents: 311 diff changeset	399	"/ 'EmbeddedAppletFrame [info]: send APPLET_STOP ...' infoPrintCR.
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	400	self appletSTOP.
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	401
318 8720093188f7 debugPrints cg parents: 311 diff changeset	402	"/ 'EmbeddedAppletFrame [info]: send APPLET_DESTROY ...' infoPrintCR.
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	403	self appletDESTROY.
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	404
318 8720093188f7 debugPrints cg parents: 311 diff changeset	405	"/ 'EmbeddedAppletFrame [info]: send APPLET_DISPOSE ...' infoPrintCR.
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	406	self appletDISPOSE.
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	407
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	408	"/
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	409	"/ give it a chance to stop ...
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	410	"/
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	411	Processor yield.
311 b23c5e132b8c hardterminate javaThread, if it did not terminate after 10 tries. cg parents: 303 diff changeset	412	n2 := 0.
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	413	[appletThread isDead] whileFalse:[
455 36fffdce84f7 checkin from browser cg parents: 451 diff changeset	414	"/ give it a second to shut down ...
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	415	n := 0.
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	416	[n < 10 and:[appletThread isDead not]] whileTrue:[
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	417	Delay waitForSeconds:0.1.
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	418	n := n + 1.
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	419	].
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	420	appletThread isDead ifFalse:[
455 36fffdce84f7 checkin from browser cg parents: 451 diff changeset	421	"/ after 3 seconds, kill it.
311 b23c5e132b8c hardterminate javaThread, if it did not terminate after 10 tries. cg parents: 303 diff changeset	422	Transcript showCR:'EmbeddedAppletFrame [info]: JAVA thread did not stop - soft terminate ...'.
527 7eb6f6291fea * empty log message * cg parents: 455 diff changeset	423	appletThread == JavaVM javaScreenUpdaterThread ifTrue:[self halt].
653 a98a3634389a make processes restartable (for snapshot restart of java threads) cg parents: 644 diff changeset	424	appletThread == JavaVM javaEventQueueThread ifTrue:[self halt].
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	425	appletThread terminate.
311 b23c5e132b8c hardterminate javaThread, if it did not terminate after 10 tries. cg parents: 303 diff changeset	426	n2 := n2 + 1.
455 36fffdce84f7 checkin from browser cg parents: 451 diff changeset	427	n2 > 3 ifTrue:[
311 b23c5e132b8c hardterminate javaThread, if it did not terminate after 10 tries. cg parents: 303 diff changeset	428	Transcript showCR:'EmbeddedAppletFrame [info]: JAVA thread did not stop - shooting down ...'.
b23c5e132b8c hardterminate javaThread, if it did not terminate after 10 tries. cg parents: 303 diff changeset	429	appletThread terminateNoSignal
b23c5e132b8c hardterminate javaThread, if it did not terminate after 10 tries. cg parents: 303 diff changeset	430	]
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	431	].
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	432	].
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	433	].
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	434	appletThread := nil
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	435
653 a98a3634389a make processes restartable (for snapshot restart of java threads) cg parents: 644 diff changeset	436	"Modified: / 24.12.1999 / 02:35:25 / cg"
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	437	! !
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	438
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	439	!JavaEmbeddedFrameView methodsFor:'initialize / release'!
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	440
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	441	destroy
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	442	autoDestroyApplet == true ifTrue:[
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	443	self stopApplet
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	444	].
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	445	super destroy.
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	446
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	447	"Created: / 29.1.1998 / 15:21:45 / cg"
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	448	"Modified: / 29.1.1998 / 15:28:26 / cg"
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	449	!
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	450
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	451	initialize
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	452	super initialize.
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	453	viewBackground := Color black.
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	454
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	455	"Modified: / 28.1.1999 / 17:44:11 / cg"
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	456	!
6a841644c5e9 checkin from browser cg parents: 527 diff changeset	457
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	458	realize
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	459	autoSetupApplet ~~ false ifTrue:[
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	460	self setupAppletFrameIn:nil initializeJava:true
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	461	].
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	462	autoStartApplet == true ifTrue:[
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	463	embeddedAppletFrame notNil ifTrue:[
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	464	self startApplet
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	465	]
681 c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	466	].
c41ba2e76c65 start applet with higher prio, cg parents: 653 diff changeset	467	super realize.
286 da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	468
da220fe69de3 applet startup & shutDown now all done here; cg parents: 282 diff changeset	469	"Created: / 29.1.1998 / 15:21:30 / cg"
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	470	"Modified: / 20.10.1998 / 15:46:32 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	471	! !
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	472
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	473	!JavaEmbeddedFrameView methodsFor:'private'!
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	474
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	475	setupAppletFrameIn:anAppletContextOrNil
644 0294a6ed677e checkin from browser cg parents: 545 diff changeset	476	^ self setupAppletFrameIn:anAppletContextOrNil initializeJava:true.
0294a6ed677e checkin from browser cg parents: 545 diff changeset	477	!
0294a6ed677e checkin from browser cg parents: 545 diff changeset	478
0294a6ed677e checkin from browser cg parents: 545 diff changeset	479	setupAppletFrameIn:anAppletContextOrNil initializeJava:initializeJava
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	480	\|appletContext
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	481	jEmbeddedAppletFrameClass jDerivedAppletFrameClass
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	482	toolkit peer attribs id
644 0294a6ed677e checkin from browser cg parents: 545 diff changeset	483	jCodeBaseURL jDocumentURL jArchiveURL u fn\|
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	484
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	485	embeddedAppletFrame notNil ifTrue:[
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	486	"/ already setup
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	487	^ self
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	488	].
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	489
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	490	codeBaseURL isNil ifTrue:[
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	491	^ self
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	492	].
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	493
644 0294a6ed677e checkin from browser cg parents: 545 diff changeset	494	initializeJava ifTrue:[
0294a6ed677e checkin from browser cg parents: 545 diff changeset	495	Java startupJavaSystem.
653 a98a3634389a make processes restartable (for snapshot restart of java threads) cg parents: 644 diff changeset	496	] ifFalse:[
a98a3634389a make processes restartable (for snapshot restart of java threads) cg parents: 644 diff changeset	497	JavaVM initializeVMIfNoEventThreadRunning
644 0294a6ed677e checkin from browser cg parents: 545 diff changeset	498	].
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	499
644 0294a6ed677e checkin from browser cg parents: 545 diff changeset	500	"/ if its a relative file-URL, make it relative under
0294a6ed677e checkin from browser cg parents: 545 diff changeset	501	"/ java...
0294a6ed677e checkin from browser cg parents: 545 diff changeset	502	u := URL fromString:codeBaseURL.
0294a6ed677e checkin from browser cg parents: 545 diff changeset	503	u method = 'file' ifTrue:[
0294a6ed677e checkin from browser cg parents: 545 diff changeset	504	fn := Smalltalk getSystemFileName:u file.
0294a6ed677e checkin from browser cg parents: 545 diff changeset	505	fn isNil ifTrue:[
0294a6ed677e checkin from browser cg parents: 545 diff changeset	506	fn := Smalltalk getPackageFileName:('stx/libjava/' , u file).
0294a6ed677e checkin from browser cg parents: 545 diff changeset	507	]
0294a6ed677e checkin from browser cg parents: 545 diff changeset	508	].
0294a6ed677e checkin from browser cg parents: 545 diff changeset	509	fn notNil ifTrue:[
0294a6ed677e checkin from browser cg parents: 545 diff changeset	510	fn := 'file:' , fn asFilename pathName
0294a6ed677e checkin from browser cg parents: 545 diff changeset	511	] ifFalse:[
0294a6ed677e checkin from browser cg parents: 545 diff changeset	512	fn := codeBaseURL
0294a6ed677e checkin from browser cg parents: 545 diff changeset	513	].
0294a6ed677e checkin from browser cg parents: 545 diff changeset	514	jCodeBaseURL := Java as_URL:fn.
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	515	documentURL notNil ifTrue:[
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	516	jDocumentURL := Java as_URL:documentURL.
644 0294a6ed677e checkin from browser cg parents: 545 diff changeset	517	] ifFalse:[
0294a6ed677e checkin from browser cg parents: 545 diff changeset	518	jDocumentURL := Java as_URL:fn
288 d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	519	].
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	520	archiveURL notNil ifTrue:[
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	521	jArchiveURL := Java as_URL:archiveURL.
d71bacb73ff7 checkin from browser cg parents: 286 diff changeset	522	].
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	523
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	524	id := appletID.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	525	id isNil ifTrue:[
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	526	NextSequentialAppletID isNil ifTrue:[
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	527	NextSequentialAppletID := 1.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	528	].
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	529	id := NextSequentialAppletID.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	530	NextSequentialAppletID := NextSequentialAppletID + 1
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	531	].
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	532
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	533	attribs := Dictionary new.
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	534	width notNil ifTrue:[attribs at:'width' put:width printString].
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	535	height notNil ifTrue:[attribs at:'height' put:height printString].
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	536
644 0294a6ed677e checkin from browser cg parents: 545 diff changeset	537	codeURL notNil ifTrue:[
0294a6ed677e checkin from browser cg parents: 545 diff changeset	538	attribs at:'code' put:codeURL
384 9c0f24e91237 started some support for NS4.0 cg parents: 318 diff changeset	539	].
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	540	parameterDictionary notNil ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	541	attribs declareAllFrom:parameterDictionary
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	542	].
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	543	attributeHashTable := Java as_Hashtable:attribs.
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	544
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	545	anAppletContextOrNil notNil ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	546	appletContext := anAppletContextOrNil
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	547	] ifFalse:[
420 7d5ce7e030d4 checkin from browser cg parents: 419 diff changeset	548	appletContext := self class newAppletContext.
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	549	appletContext isNil ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	550	self warn:'no netscape.applet.MozillaAppletContext class'.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	551	^ false
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	552	].
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	553	].
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	554
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	555	jEmbeddedAppletFrameClass := Java classForName:'netscape.applet.EmbeddedAppletFrame'.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	556	jEmbeddedAppletFrameClass isNil ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	557	self warn:'no netscape.applet.EmbeddedAppletFrame class'.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	558	^ false
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	559	].
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	560	jDerivedAppletFrameClass := Java classForName:'netscape.applet.DerivedAppletFrame'.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	561	jDerivedAppletFrameClass notNil ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	562	"/ ns4.0
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	563	embeddedAppletFrame := jDerivedAppletFrameClass new.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	564	isNS40 := true.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	565	] ifFalse:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	566	"/ ns3.x
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	567	embeddedAppletFrame := jEmbeddedAppletFrameClass new.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	568	isNS40 := false.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	569	].
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	570	embeddedAppletFrame instVarNamed:'pData' put:self.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	571
429 99990a8a3509 * empty log message * cg parents: 420 diff changeset	572	toolkit := (Java classForName:'java.awt.Toolkit') perform:#'getDefaultToolkit'.
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	573	peer := toolkit
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	574	perform:#'createFrame(Ljava/awt/Frame;)Ljava/awt/peer/FramePeer;'
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	575	with:embeddedAppletFrame.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	576
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	577	(embeddedAppletFrame respondsTo:#'<init>(Ljava/net/URL;Ljava/net/URL;Ljava/net/URL;Ljava/util/Hashtable;Lnetscape/applet/MozillaAppletContext;Ljava/lang/Integer;Z)V')
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	578	ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	579	"/ 4.0 netscape
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	580	embeddedAppletFrame
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	581	perform:#'<init>(Ljava/net/URL;Ljava/net/URL;Ljava/net/URL;Ljava/util/Hashtable;Lnetscape/applet/MozillaAppletContext;Ljava/lang/Integer;Z)V'
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	582	withArguments:
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	583	(Array
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	584	with:jDocumentURL
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	585	with:jCodeBaseURL
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	586	with:jArchiveURL
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	587	with:attributeHashTable
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	588	with:appletContext
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	589	with:(Java as_Integer:id)
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	590	with:0 "/ reloadClasses-boolean
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	591	).
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	592	] ifFalse:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	593	(embeddedAppletFrame respondsTo:#'<init>(Ljava/net/URL;Ljava/net/URL;Ljava/net/URL;Ljava/util/Hashtable;Lnetscape/applet/MozillaAppletContext;Ljava/lang/Integer;)V')
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	594	ifTrue:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	595	"/ 3.01 netscape
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	596	embeddedAppletFrame
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	597	perform:#'<init>(Ljava/net/URL;Ljava/net/URL;Ljava/net/URL;Ljava/util/Hashtable;Lnetscape/applet/MozillaAppletContext;Ljava/lang/Integer;)V'
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	598	with:jDocumentURL
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	599	with:jCodeBaseURL
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	600	with:jArchiveURL
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	601	with:attributeHashTable
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	602	with:appletContext
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	603	with:(Java as_Integer:id).
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	604	] ifFalse:[
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	605	"/ oldStyle netscape
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	606	embeddedAppletFrame
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	607	perform:#'<init>(Ljava/net/URL;Ljava/net/URL;Ljava/util/Hashtable;Lnetscape/applet/MozillaAppletContext;I)V'
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	608	with:jDocumentURL
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	609	with:jCodeBaseURL
545 6a841644c5e9 checkin from browser cg parents: 527 diff changeset	610	with:attributeHashTable
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	611	with:appletContext
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	612	with:id.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	613	].
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	614	].
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	615
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	616	embeddedAppletFrame instVarNamed:'peer' put:peer.
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	617
ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	618	self javaPeer:peer.
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	619
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	620	^ true
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	621
397 ff55215c1eac fixes to allow multiple java applets in one frame; cg parents: 384 diff changeset	622	"Created: / 20.10.1998 / 15:47:04 / cg"
653 a98a3634389a make processes restartable (for snapshot restart of java threads) cg parents: 644 diff changeset	623	"Modified: / 24.12.1999 / 01:38:17 / cg"
282 80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	624	! !
80e840e0139f now holds all applet setup code cg parents: 233 diff changeset	625
303 0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	626	!JavaEmbeddedFrameView methodsFor:'resizing'!
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	627
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	628	sizeChanged:how
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	629	super sizeChanged:how.
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	630	^ self.
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	631	embeddedAppletFrame notNil ifTrue:[
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	632	(embeddedAppletFrame perform:#'isResizable()Z') ~~ 0 ifTrue:[
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	633	self windowGroup sensor
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	634	pushDamageEvent:(WindowEvent
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	635	for:self
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	636	type:#configureX:y:width:height:
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	637	arguments:(Array with:left with:top with:width with:height)).
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	638	"/ embeddedAppletFrame
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	639	"/ perform:#'appletResize(II)V'
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	640	"/ with:self width
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	641	"/ with:self height.
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	642	]
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	643	]
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	644
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	645	"Modified: / 1.2.1998 / 19:15:07 / cg"
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	646	! !
0b95d5f40bf2 checkin from browser cg parents: 288 diff changeset	647
233 fc91b8aba669 intitial checkin cg parents: diff changeset	648	!JavaEmbeddedFrameView class methodsFor:'documentation'!
fc91b8aba669 intitial checkin cg parents: diff changeset	649
fc91b8aba669 intitial checkin cg parents: diff changeset	650	version
2084 69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	651	^ '$Header: /cvs/stx/stx/libjava/JavaEmbeddedFrameView.st,v 1.22 2000-09-06 18:33:50 cg Exp $'
69ecd5609bb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	652	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 06 Sep 2000 20:33:50 +0200
changeset 2084	69ecd5609bb3
parent 749	e898eaeff091
child 2087	2e1a2d10b891
permissions	-rw-r--r--