Java.st
changeset 301 2945ec2eee92
parent 285 10bf4fdcd02f
child 305 872463871468
--- 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!