--- 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 $'
! !
+