--- a/EnterBox2.st	Fri May 31 22:16:08 1996 +0200
+++ b/EnterBox2.st	Fri May 31 22:18:55 1996 +0200
@@ -77,7 +77,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.16 1996-04-25 17:20:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.17 1996-05-31 20:17:38 cg Exp $'
 ! !
 
 !EnterBox2 methodsFor:'accessing'!
@@ -109,17 +109,14 @@
 
 !EnterBox2 methodsFor:'initialization'!
 
-focusSequence
-    ^ Array with:enterField with:abortButton with:okButton with:okButton2 
-!
-
 initialize
     super initialize.
 
     "
-     add a second ok-button
+     add a second ok-button (a return button)
     "
-    okButton2 := Button okButtonIn:buttonPanel.
+
+    okButton2 := self addButton:(Button okButton).
     okButton2 model:self; change:#ok2Pressed.
 
     "
@@ -128,6 +125,8 @@
     okButton isReturnButton:false.
 
     enterField leaveAction:[:key | self ok2Pressed]
+
+    "Modified: 31.5.1996 / 21:55:57 / cg"
 ! !
 
 !EnterBox2 methodsFor:'realization'!