--- a/WGroup.st	Wed May 26 13:18:34 1999 +0200
+++ b/WGroup.st	Wed May 26 14:41:24 1999 +0200
@@ -1830,6 +1830,12 @@
 	index := 0.
     ].
     ^ index
+!
+
+pointerView
+    "return the view which currently has the pointer"
+
+    ^ pointerView
 ! !
 
 !WindowGroup methodsFor:'initialization'!
@@ -2074,6 +2080,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.175 1999-05-23 12:48:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.176 1999-05-26 12:41:24 cg Exp $'
 ! !
 WindowGroup initialize!

--- a/WindowGroup.st	Wed May 26 13:18:34 1999 +0200
+++ b/WindowGroup.st	Wed May 26 14:41:24 1999 +0200
@@ -1830,6 +1830,12 @@
 	index := 0.
     ].
     ^ index
+!
+
+pointerView
+    "return the view which currently has the pointer"
+
+    ^ pointerView
 ! !
 
 !WindowGroup methodsFor:'initialization'!
@@ -2074,6 +2080,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.175 1999-05-23 12:48:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.176 1999-05-26 12:41:24 cg Exp $'
 ! !
 WindowGroup initialize!