Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 16 May 1998 17:35:31 +0200
changeset 2116 b389262e58b1
parent 2115 aa706aa0298c
child 2117 58ca18b9ff4f
checkin from browser
WGroup.st file | annotate | diff | comparison | revisions
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WGroup.st	Tue May 12 19:14:58 1998 +0200
+++ b/WGroup.st	Sat May 16 17:35:31 1998 +0200
@@ -986,6 +986,10 @@
 
                 "/ now, wait for an event to arrive
                 thisProcess setStateTo:#eventWait if:#active.
+                waitSema isNil ifTrue:[
+                    "/ oops - how can this happen ....
+                    ^ self.
+                ].
                 gotSema := waitSema wait.
                 LastActiveGroup := self.
                 LastActiveProcess := thisProcess.
@@ -1029,8 +1033,8 @@
         cleanupActions notNil ifTrue:[cleanupActions value]
     ]
 
-    "Modified: 14.12.1995 / 11:12:24 / stefan"
-    "Modified: 20.8.1997 / 19:10:23 / cg"
+    "Modified: / 14.12.1995 / 11:12:24 / stefan"
+    "Modified: / 16.5.1998 / 17:26:28 / cg"
 !
 
 leaveEventLoop
@@ -1740,6 +1744,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.133 1998-04-22 12:55:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.134 1998-05-16 15:35:31 cg Exp $'
 ! !
 WindowGroup initialize!
--- a/WindowGroup.st	Tue May 12 19:14:58 1998 +0200
+++ b/WindowGroup.st	Sat May 16 17:35:31 1998 +0200
@@ -986,6 +986,10 @@
 
                 "/ now, wait for an event to arrive
                 thisProcess setStateTo:#eventWait if:#active.
+                waitSema isNil ifTrue:[
+                    "/ oops - how can this happen ....
+                    ^ self.
+                ].
                 gotSema := waitSema wait.
                 LastActiveGroup := self.
                 LastActiveProcess := thisProcess.
@@ -1029,8 +1033,8 @@
         cleanupActions notNil ifTrue:[cleanupActions value]
     ]
 
-    "Modified: 14.12.1995 / 11:12:24 / stefan"
-    "Modified: 20.8.1997 / 19:10:23 / cg"
+    "Modified: / 14.12.1995 / 11:12:24 / stefan"
+    "Modified: / 16.5.1998 / 17:26:28 / cg"
 !
 
 leaveEventLoop
@@ -1740,6 +1744,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.133 1998-04-22 12:55:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.134 1998-05-16 15:35:31 cg Exp $'
 ! !
 WindowGroup initialize!
hg/stx-libview