--- a/OptionBox.st Wed Jul 31 17:33:09 2019 +0200
+++ b/OptionBox.st Wed Jul 31 17:37:41 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
@@ -610,28 +608,6 @@
actions grow:nOptions
! !
-!OptionBox methodsFor:'events'!
-
-keyPress:aKey x:x y:y
- "return-key duplicates ok-function if acceptReturnAsOK is true"
-
-"/ <resource: #keyboard (#Return)>
-
-"/ now done by keyboard processor
-"/ |action|
-"/
-"/ defaultButtonIndex notNil ifTrue:[
-"/ (aKey == #Return) ifTrue:[
-"/ self hide.
-"/ action := actions at:defaultButtonIndex.
-"/ action value
-"/ ]
-"/ ].
- super keyPress:aKey x:x y:y
-
- "Modified: 7.3.1996 / 13:17:36 / cg"
-! !
-
!OptionBox methodsFor:'initialization'!
initFormBitmap