# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 927722484 -7200
# Node ID f8ca00c8e6d4e82515d68710c3232839ed11deba
# Parent  6e79e8f5ae7ecef7f07c33dd080f753f46e062d9
*** empty log message ***

diff -r 6e79e8f5ae7e -r f8ca00c8e6d4 WGroup.st
--- 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!
diff -r 6e79e8f5ae7e -r f8ca00c8e6d4 WindowGroup.st
--- 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!