XWorkstation.st
changeset 1610 8cbd780d9784
parent 1583 ca6e6732dc29
child 1627 e7ba6be03b14
--- a/XWorkstation.st	Thu Apr 17 01:21:57 1997 +0200
+++ b/XWorkstation.st	Fri Apr 18 10:51:25 1997 +0200
@@ -3978,6 +3978,11 @@
 	if (__isExternalAddress(t)) {
 	    if (_WindowVal(t) == ae->window) {
 		theView = __INST(lastView);
+		if (__isNonNilObject(theView)) {
+		    if (__qClass(theView) == nil) {
+			theView = nil;
+		    }
+		}
 	    }
 	}
     }
@@ -9294,6 +9299,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.238 1997-04-11 10:49:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.239 1997-04-18 08:51:25 cg Exp $'
 ! !
 XWorkstation initialize!