--- a/KeyboardProcessor.st	Thu Oct 12 16:33:19 2006 +0200
+++ b/KeyboardProcessor.st	Fri Oct 13 13:03:39 2006 +0200
@@ -9,11 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
-
-
 "{ Package: 'stx:libview2' }"
 
 Object subclass:#KeyboardProcessor
@@ -310,14 +305,13 @@
       did."
 
     autoAcceptListeners notNil ifTrue:[
-        autoAcceptListeners do:[:aListener |
-            (aListener requestAutoAccept) ifFalse:[^ false].
-        ].
-        ^ true
+        ^ autoAcceptListeners conform:[:aListener | (aListener requestAutoAccept)]
     ].
     "/ if no input field (or comparable widget) is present ...
 "/    ^ false     <- wrong.
     ^ true.
+
+    "Modified: / 13-10-2006 / 12:56:02 / cg"
 ! !
 
 !KeyboardProcessor methodsFor:'setup'!
@@ -337,5 +331,5 @@
 !KeyboardProcessor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.36 2004-08-19 10:10:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.37 2006-10-13 11:03:39 cg Exp $'
 ! !