EnterBox2.st
changeset 1760 631f902aaabe
parent 953 050fba15277a
child 1764 45ca6b617934
--- 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.
 
     "