class: FileSaveBox
authorClaus Gittinger <cg@exept.de>
Thu, 29 Aug 2013 12:28:12 +0200
changeset 4689 a5cb9ae9641f
parent 4688 eec25585c34b
child 4690 8d29570eaa36
class: FileSaveBox changed: #initialize no need to care for ok-button position in panel here (panel does it already)
FileSaveBox.st
--- a/FileSaveBox.st	Thu Aug 29 12:28:00 2013 +0200
+++ b/FileSaveBox.st	Thu Aug 29 12:28:12 2013 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 FileSelectionBox subclass:#FileSaveBox
@@ -79,11 +78,9 @@
     appendButton isReturnButton:false.
     appendButton label:(resources string:'Append').
     appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed].
-    (Dialog defaultOKButtonAtLeft) ifTrue:[
-        self addButton:appendButton after:okButton.
-    ] ifFalse:[
-        self addButton:appendButton before:okButton.
-    ].
+    self addButton:appendButton after:okButton.
+
+    "Modified: / 29-08-2013 / 12:19:54 / cg"
 ! !
 
 !FileSaveBox methodsFor:'user interaction'!
@@ -103,5 +100,6 @@
 !FileSaveBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.16 2003-02-25 14:58:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.17 2013-08-29 10:28:12 cg Exp $'
 ! !
+