ObjectView.st
changeset 1820 4069e1ed5d3f
parent 1752 f1e400f163ad
child 1824 03630b3be319
--- a/ObjectView.st	Wed Mar 24 21:12:12 1999 +0100
+++ b/ObjectView.st	Thu Mar 25 15:33:52 1999 +0100
@@ -1322,6 +1322,16 @@
     "Modified: 30.5.1996 / 17:57:54 / cg"
 !
 
+pointerEnter:state x:x y:y
+    "mouse pointer entered - request the keyboard focus"
+
+    self requestFocus.
+    super pointerEnter:state x:x y:y
+
+
+
+!
+
 redrawX:x y:y width:w height:h
     |redrawFrame |
 
@@ -3069,5 +3079,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.64 1999-02-20 17:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.65 1999-03-25 14:33:52 cg Exp $'
 ! !