equal
deleted
inserted
replaced
62 ! ! |
62 ! ! |
63 |
63 |
64 !FileSaveBox methodsFor:'initialization'! |
64 !FileSaveBox methodsFor:'initialization'! |
65 |
65 |
66 initialize |
66 initialize |
|
67 <resource: #style (#'dialogBox.okAtLeft')> |
|
68 |
67 super initialize. |
69 super initialize. |
68 |
70 |
69 label := resources string:'Save file dialog'. |
71 label := resources string:'Save file dialog'. |
70 |
72 |
71 okButton label:(resources string:'save'). |
73 okButton label:(resources string:'save'). |
75 " |
77 " |
76 appendButton := Button okButton. |
78 appendButton := Button okButton. |
77 appendButton isReturnButton:false. |
79 appendButton isReturnButton:false. |
78 appendButton label:(resources string:'append'). |
80 appendButton label:(resources string:'append'). |
79 appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed]. |
81 appendButton action:[appendButton turnOffWithoutRedraw. self appendPressed]. |
80 (styleSheet at:'dialogBox.okAtLeft') ifTrue:[ |
82 (styleSheet at:'dialogBox.okAtLeft' default:false) ifTrue:[ |
81 self addButton:appendButton after:okButton. |
83 self addButton:appendButton after:okButton. |
82 ] ifFalse:[ |
84 ] ifFalse:[ |
83 self addButton:appendButton before:okButton. |
85 self addButton:appendButton before:okButton. |
84 ]. |
86 ]. |
85 ! ! |
87 ! ! |
99 ! ! |
101 ! ! |
100 |
102 |
101 !FileSaveBox class methodsFor:'documentation'! |
103 !FileSaveBox class methodsFor:'documentation'! |
102 |
104 |
103 version |
105 version |
104 ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.13 1999-03-06 02:08:19 cg Exp $' |
106 ^ '$Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.14 1999-03-06 03:03:50 cg Exp $' |
105 ! ! |
107 ! ! |