--- a/ExternalTopView.st	Thu Jan 21 21:35:23 1999 +0100
+++ b/ExternalTopView.st	Fri Jan 22 11:31:52 1999 +0100
@@ -62,11 +62,28 @@
 
 setWindowID:aWindowID
     drawableId := aWindowID.
-    realized := true.
+    realized := shown := true.
+! !
+
+!ExternalTopView methodsFor:'redefined'!
+
+destroyView
+    "never destroyed by ST/X - instead, the view is under
+     control of the host application ..."
+
+    realized := false.
+    drawableId := nil.
+!
+
+unmap
+    "never unmapped by ST/X - instead, the view is under
+     control of the host application ..."
+
+
 ! !
 
 !ExternalTopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.1 1999-01-21 20:35:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.2 1999-01-22 10:31:52 cg Exp $'
 ! !