--- a/OptionBox.st	Thu Mar 07 13:24:44 1996 +0100
+++ b/OptionBox.st	Thu Mar 07 13:38:02 1996 +0100
@@ -252,18 +252,22 @@
 keyPress:aKey x:x y:y
     "return-key dublicates ok-function if acceptReturnAsOK is true"
 
+    <resource: #keyboard (#Return)>
+
     |action|
 
     defaultButtonIndex notNil ifTrue:[
-	(aKey == #Return) ifTrue:[
-	    self hide.
-	    action := actions at:defaultButtonIndex.
-	    action notNil ifTrue:[
-		action value
-	    ]
-	]
+        (aKey == #Return) ifTrue:[
+            self hide.
+            action := actions at:defaultButtonIndex.
+            action notNil ifTrue:[
+                action value
+            ]
+        ]
     ].
     super keyPress:aKey x:x y:y
+
+    "Modified: 7.3.1996 / 13:17:36 / cg"
 ! !
 
 !OptionBox methodsFor:'initializing'!
@@ -383,5 +387,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.27 1996-02-21 00:03:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.28 1996-03-07 12:37:19 cg Exp $'
 ! !