--- a/SimpleView.st	Wed May 03 02:38:14 1995 +0200
+++ b/SimpleView.st	Wed May 03 17:43:56 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.2 1995-05-03 00:38:14 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.3 1995-05-03 15:43:19 claus Exp $
 '!
 
 !SimpleView class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.2 1995-05-03 00:38:14 claus Exp $
+$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.3 1995-05-03 15:43:19 claus Exp $
 "
 !
 
@@ -4049,10 +4049,21 @@
     ^ true
 !
 
+canHandle:aKey from:aView
+    "return true, if I like to handle the key (from a keyPress event)
+     in aView.
+     OBSOLETE: do not use & depend on this method, it is a historic
+     leftOver and will be removed. Use the delegation mechanism for this."
+
+    ^ self canHandle:aKey
+!
+
 canHandle:aKey
-    "return true, if I like to handle the key (keyPress event)"
-
-    ^ true
+    "return true, if I like to handle the key (from a keyPress event).
+     OBSOLETE: do not use & depend on this method, it is a historic
+     leftOver and will be removed. Use the delegation mechanism for this."
+
+    ^ false
 !
 
 buttonMotionEventPending