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