--- a/EnterBox2.st Sat Mar 06 02:28:50 1999 +0100
+++ b/EnterBox2.st Sat Mar 06 02:59:15 1999 +0100
@@ -77,7 +77,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.18 1997-01-16 21:01:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.19 1999-03-06 01:59:15 cg Exp $'
! !
!EnterBox2 methodsFor:'accessing'!
@@ -115,8 +115,12 @@
"
add a second ok-button (a return button)
"
-
- okButton2 := self addButton:(Button okButton).
+ okButton2 := Button okButton.
+ (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+ buttonPanel addSubView:okButton2 before:okButton.
+ ] ifFalse:[
+ buttonPanel addSubView:okButton2 after:okButton.
+ ].
okButton2 model:self; change:#ok2Pressed.
"