--- a/DisplayRootView.st	Sun Oct 11 08:27:36 2015 +0100
+++ b/DisplayRootView.st	Sun Oct 11 10:26:49 2015 +0100
@@ -86,10 +86,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libview/DisplayRootView.st,v 1.45 2015-02-10 13:18:23 cg Exp $'
-! !
-
 !DisplayRootView class methodsFor:'instance creation'!
 
 onDevice:aDisplay
@@ -266,6 +262,12 @@
     "Modified: 5.7.1996 / 14:57:44 / cg"
 !
 
+isSameOrComponentOf:aView
+    "return true, if I am aView or a (direct or indirect) component of aView"
+
+    ^ self == aView
+!
+
 isWindowManagerRunning
     "answer true, if a window manager is currently running.
      This is done by performing an action (enabling button events of
@@ -289,3 +291,9 @@
     "
 ! !
 
+!DisplayRootView class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !
+