oops - for old-style DialogBoxes (wo. AppModel), the keyboardProcessor has
no one to inform about RETURN/ESCAPE. So the procesing here is still needed.
--- a/DialogBox.st Thu Dec 18 11:45:07 2008 +0100
+++ b/DialogBox.st Fri Dec 19 20:37:09 2008 +0100
@@ -8679,25 +8679,25 @@
|b|
-"/ done by keyboardProcessor...
-"/ (aKey == #Return) ifTrue:[
-"/ (okButton notNil and:[okButton isReturnButton]) ifTrue:[
-"/ ^ self okPressed
-"/ ].
-"/ (abortButton notNil and:[abortButton isReturnButton]) ifTrue:[
-"/ ^ self abortPressed
-"/ ].
-"/ (buttonPanel notNil and:[(b := buttonPanel subViews detect:[:b | b isReturnButton] ifNone:nil) notNil]) ifTrue:[
-"/ b turnOnWithAction. b turnOffWithAction.
-"/ ^ self.
-"/ ]
-"/ ].
-
-"/ (aKey == #Escape) ifTrue:[
-"/ (abortButton notNil) ifTrue:[
-"/ ^ self abortPressed
-"/ ].
-"/ ].
+ (aKey == #Return) ifTrue:[
+ (okButton notNil and:[okButton isReturnButton]) ifTrue:[
+ ^ self okPressed
+ ].
+ (abortButton notNil and:[abortButton isReturnButton]) ifTrue:[
+ ^ self abortPressed
+ ].
+ (buttonPanel notNil and:[(b := buttonPanel subViews detect:[:b | b isReturnButton] ifNone:nil) notNil]) ifTrue:[
+ b turnOnWithAction. b turnOffWithAction.
+ ^ self.
+ ]
+ ].
+
+ (aKey == #Escape) ifTrue:[
+ (abortButton notNil) ifTrue:[
+ ^ self abortPressed
+ ].
+ ].
+
super keyPress:aKey x:x y:y
"Modified: 7.3.1996 / 13:15:09 / cg"
@@ -8749,7 +8749,7 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.277 2008-12-17 18:59:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.278 2008-12-19 19:37:09 cg Exp $'
! !
DialogBox initialize!