checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 25 Mar 1999 15:33:52 +0100
changeset 1820 4069e1ed5d3f
parent 1819 963883688bc7
child 1821 b57cc9dc2c08
checkin from browser
ObjView.st
ObjectView.st
--- a/ObjView.st	Wed Mar 24 21:12:12 1999 +0100
+++ b/ObjView.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/Attic/ObjView.st,v 1.64 1999-02-20 17:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.65 1999-03-25 14:33:52 cg Exp $'
 ! !
--- 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 $'
 ! !