#REFACTORING by exept
authorClaus Gittinger <cg@exept.de>
Wed, 31 Jul 2019 17:37:41 +0200
changeset 6655 671f677d50d0
parent 6654 18c4d3d8b1ab
child 6656 635b11260556
#REFACTORING by exept class: OptionBox removed: #keyPress:x:y: just sent super
OptionBox.st
--- 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