EnterBox2.st
changeset 4688 eec25585c34b
parent 3840 0d7d1b7bd6ec
child 5892 a8ff6abd62ab
--- a/EnterBox2.st	Thu Aug 29 11:34:08 2013 +0200
+++ b/EnterBox2.st	Thu Aug 29 12:28:00 2013 +0200
@@ -114,11 +114,7 @@
     "
     okButton2 := Button okButton.
     okButton2 name: 'okButton2'.
-    Dialog defaultOKButtonAtLeft ifTrue:[
-        buttonPanel addSubView:okButton2 before:okButton.
-    ] ifFalse:[
-        buttonPanel addSubView:okButton2 after:okButton.
-    ].
+    buttonPanel addSubView:okButton2 before:okButton.
     okButton2 model:self; change:#ok2Pressed.
 
     "
@@ -128,7 +124,7 @@
 
     enterField leaveAction:[:key | self ok2Pressed]
 
-    "Modified: 31.5.1996 / 21:55:57 / cg"
+    "Modified: / 29-08-2013 / 12:20:15 / cg"
 ! !
 
 !EnterBox2 methodsFor:'user interaction'!
@@ -156,5 +152,6 @@
 !EnterBox2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.26 2009-02-23 15:00:07 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox2.st,v 1.27 2013-08-29 10:28:00 cg Exp $'
 ! !
+