diff -r 5816aa12fec8 -r 08e8adfb783c OptionBox.st --- 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" + + |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 $' ! !