KeyboardProcessor.st
changeset 1131 8100dff9a13c
parent 1128 7810bca304e3
child 1133 48fe25214e65
--- a/KeyboardProcessor.st	Wed Mar 10 01:48:49 1999 +0100
+++ b/KeyboardProcessor.st	Wed Mar 10 01:49:35 1999 +0100
@@ -134,6 +134,7 @@
 
         topView isModal ifTrue:[
             (returnIsOKInDialog and:[key == #Return]) ifTrue:[
+                self requestGlobalAutoAccept ifFalse:[^ true].
                 app doAccept.
                 ^ true
             ].
@@ -194,5 +195,5 @@
 !KeyboardProcessor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.2 1999-03-10 00:00:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.3 1999-03-10 00:49:35 cg Exp $'
 ! !