equal
deleted
inserted
replaced
19 |
19 |
20 FileSaveBox comment:' |
20 FileSaveBox comment:' |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.4 1995-05-03 00:29:24 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.5 1995-08-29 16:43:47 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !FileSaveBox class methodsFor:'documentation'! |
27 !FileSaveBox class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.4 1995-05-03 00:29:24 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/FileSaveBox.st,v 1.5 1995-08-29 16:43:47 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
69 !FileSaveBox methodsFor:'initialization'! |
69 !FileSaveBox methodsFor:'initialization'! |
70 |
70 |
71 initialize |
71 initialize |
72 super initialize. |
72 super initialize. |
73 |
73 |
74 label := 'Save file dialog'. |
74 label := resources string:'Save file dialog'. |
75 |
75 |
76 okButton label:(resources string:'save'). |
76 okButton label:(resources string:'save'). |
77 |
77 |
78 " |
78 " |
79 insert an append-button between abort- and save-buttons |
79 insert an append-button between abort- and save-buttons |