--- a/Java.st Sun Feb 01 17:03:05 1998 +0000
+++ b/Java.st Sun Feb 01 17:05:29 1998 +0000
@@ -321,18 +321,31 @@
!
startupJavaSystem
- (JavaEventThread notNil and:[JavaEventThread isDead not]) ifTrue:[
- ^ self
- ].
+ |haveEventThread haveScreenUpdater|
"/
"/ check if already running
"/
- self threads do:[:aJavaThread |
- aJavaThread name = 'JAVA-Screen Updater' ifTrue:[
- "/ already running
- ^ self
- ]
+
+ haveEventThread := true.
+ (JavaEventThread isNil or:[JavaEventThread isDead]) ifTrue:[
+ haveEventThread := false
+ ].
+
+ haveScreenUpdater := false.
+ haveEventThread ifTrue:[
+ self threads do:[:aJavaThread |
+ aJavaThread name = 'JAVA-Screen Updater' ifTrue:[
+ aJavaThread isDead ifFalse:[
+ "/ already running
+ haveScreenUpdater := true
+ ]
+ ]
+ ].
+ ].
+
+ (haveEventThread and:[haveScreenUpdater]) ifTrue:[
+ ^ self
].
'JAVA [info]: (re)initializing JAVA environment completely ...' infoPrintCR.
@@ -345,7 +358,7 @@
Java startupJavaSystem
"
- "Modified: / 28.1.1998 / 23:12:18 / cg"
+ "Modified: / 1.2.1998 / 18:02:00 / cg"
!
terminateAllThreads
@@ -1003,6 +1016,6 @@
!Java class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.57 1998/01/28 22:46:34 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.58 1998/02/01 17:05:29 cg Exp $'
! !
Java initialize!