--- a/KeyboardProcessor.st	Wed Jan 17 13:14:28 2001 +0100
+++ b/KeyboardProcessor.st	Thu Jan 18 16:39:12 2001 +0100
@@ -271,8 +271,9 @@
         ].
         ^ true
     ].
-    ^ false
-
+    "/ if no input field (or comparable widget) is present ...
+"/    ^ false     <- wrong.
+    ^ true.
 ! !
 
 !KeyboardProcessor methodsFor:'setup'!
@@ -292,5 +293,5 @@
 !KeyboardProcessor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.20 2001-01-17 12:14:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.21 2001-01-18 15:39:12 cg Exp $'
 ! !