--- 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!