FSaveBox.st
changeset 1764 45ca6b617934
parent 1762 848075aa087c
--- a/FSaveBox.st	Sat Mar 06 03:14:43 1999 +0100
+++ b/FSaveBox.st	Sat Mar 06 04:04:04 1999 +0100
@@ -64,6 +64,8 @@
 !FileSaveBox methodsFor:'initialization'!
 
 initialize
+    <resource: #style (#'dialogBox.okAtLeft')>
+
     super initialize.
 
     label := resources string:'Save file dialog'.
@@ -77,7 +79,7 @@
     appendButton isReturnButton:false.
     appendButton label:(resources string:'append').
     appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed].
-    (styleSheet at:'dialogBox.okAtLeft') ifTrue:[
+    (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[
         self addButton:appendButton after:okButton.
     ] ifFalse:[
         self addButton:appendButton before:okButton.
@@ -101,5 +103,5 @@
 !FileSaveBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSaveBox.st,v 1.13 1999-03-06 02:08:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSaveBox.st,v 1.14 1999-03-06 03:03:50 cg Exp $'
 ! !