# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1061315810 -7200
# Node ID 81e71050bce2d4909be57f8e73daee9d87896af0
# Parent  eba6da749414e3015c2f7541254b28d52b4a6da7
extra hooks for ok/cancel via keyboard

diff -r eba6da749414 -r 81e71050bce2 KeyboardProcessor.st
--- 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 $'
 ! !