--- a/ExternalTopView.st	Fri Jan 22 11:31:52 1999 +0100
+++ b/ExternalTopView.st	Fri Jan 22 17:59:44 1999 +0100
@@ -58,6 +58,17 @@
     ^ self new setWindowID:anAlienWindowID
 ! !
 
+!ExternalTopView methodsFor:'private'!
+
+checkWindowStillAlive
+    "/ check for a destroyed topView (since we do not get any events from X)
+
+    Transcript showCR:'check ...'.
+    Processor 
+        addTimedBlock:[self sensor pushUserEvent:#checkWindowStillAlive for:self]
+        afterMilliseconds:2000
+! !
+
 !ExternalTopView methodsFor:'private accessing'!
 
 setWindowID:aWindowID
@@ -75,6 +86,11 @@
     drawableId := nil.
 !
 
+open
+    super open.
+    self checkWindowStillAlive
+!
+
 unmap
     "never unmapped by ST/X - instead, the view is under
      control of the host application ..."
@@ -85,5 +101,5 @@
 !ExternalTopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.2 1999-01-22 10:31:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.3 1999-01-22 16:59:44 cg Exp $'
 ! !