--- a/KeyboardProcessor.st Tue Aug 19 19:55:33 2003 +0200
+++ b/KeyboardProcessor.st Tue Aug 19 19:56:50 2003 +0200
@@ -233,7 +233,7 @@
"/ only care for RETURN and ESC if the window is the
"/ apps topView (not if its a popup or dialog of it)
(app notNil and:[app window == topView]) ifTrue:[
- app doAccept.
+ app doAcceptByReturnKey.
] ifFalse:[
"/ oldStyle modalBox - for now, let Box handle it itself
^ false
@@ -245,7 +245,7 @@
"/ only care for RETURN and ESC if the window is the
"/ apps topView (not if its a popup or dialog of it)
(app notNil and:[app window == topView]) ifTrue:[
- app doCancel.
+ app doCancelByEscapeKey.
] ifFalse:[
"/ oldStyle modalBox - for now, let Box handle it itself
^ false
@@ -317,5 +317,5 @@
!KeyboardProcessor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.31 2003-05-07 14:30:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.32 2003-08-19 17:56:50 cg Exp $'
! !