comments
authorClaus Gittinger <cg@exept.de>
Mon, 15 Feb 1999 18:46:53 +0100
changeset 1098 bcd7b099bac8
parent 1097 b3ba1a593ce7
child 1099 7e51aa0a78f3
comments
ExternalTopView.st
--- a/ExternalTopView.st	Mon Feb 15 18:43:27 1999 +0100
+++ b/ExternalTopView.st	Mon Feb 15 18:46:53 1999 +0100
@@ -81,10 +81,8 @@
 !ExternalTopView methodsFor:'queries'!
 
 isExternalTopView
-    ^ true
-!
+    "return true, if this is an external topView - always true here"
 
-isExternalWindow
     ^ true
 ! !
 
@@ -99,12 +97,18 @@
 !
 
 open
+    "redefined to start a watch timeout for closed windows;
+     this is required, since we wont get any closeRequest event for
+     external windows (as all of its events are handled by the alien
+     application)"
+
     super open.
     self checkWindowStillAlive
 !
 
 unmap
-    "never unmapped by ST/X - instead, the view is under
+    "redefined as a noop;
+     ExternalTopViews are never unmapped by ST/X - instead, the view is under
      control of the host application ..."
 
 
@@ -113,5 +117,5 @@
 !ExternalTopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.5 1999-02-15 17:43:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.6 1999-02-15 17:46:53 cg Exp $'
 ! !