--- a/DeviceWorkstation.st	Thu Jul 18 13:39:11 1996 +0200
+++ b/DeviceWorkstation.st	Thu Jul 18 17:00:58 1996 +0200
@@ -2514,7 +2514,11 @@
     ].
 
     knownViews notNil ifTrue:[
-        (knownViews findFirst:[:slot | slot notNil and:[slot isRootView not and:[slot shown]]]) == 0 ifTrue:[
+        (knownViews findFirst:[:slot | 
+                slot notNil 
+                and:[slot isRootView not 
+                and:[slot superView isNil
+                and:[slot shown]]]]) == 0 ifTrue:[
             "/ my last view was closed
             dispatching := false.
             'DEVWORKST: finished dispatch (last view closed)' infoPrintCR.
@@ -2522,7 +2526,7 @@
     ].
 
     "Modified: 19.9.1995 / 11:31:54 / claus"
-    "Modified: 5.7.1996 / 13:49:32 / cg"
+    "Modified: 18.7.1996 / 16:59:57 / cg"
 !
 
 dispatchEvent
@@ -4440,6 +4444,6 @@
 !DeviceWorkstation  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.115 1996-07-11 16:36:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.116 1996-07-18 15:00:58 cg Exp $'
 ! !
 DeviceWorkstation initialize!