equal
deleted
inserted
replaced
7970 outFile := selectedFiles first directory construct:outFileName. |
7970 outFile := selectedFiles first directory construct:outFileName. |
7971 |
7971 |
7972 outStream := outFile writeStream. |
7972 outStream := outFile writeStream. |
7973 |
7973 |
7974 selectedFiles do:[:fileName | |
7974 selectedFiles do:[:fileName | |
7975 |inStream| |
|
7976 |
|
7977 self notify:('Adding:', fileName baseName). |
7975 self notify:('Adding:', fileName baseName). |
7978 inStream := fileName readStream. |
7976 fileName readingFileDo:[:inStream | |
7979 inStream copyToEndInto:outStream. |
7977 inStream copyToEndInto:outStream. |
7980 inStream close. |
7978 ]. |
7981 ]. |
7979 ]. |
7982 outStream close. |
7980 outStream close. |
7983 self notify:nil. |
7981 self notify:nil. |
7984 |
7982 |
7985 "Modified: / 04-12-2006 / 13:15:10 / cg" |
7983 "Modified: / 04-12-2006 / 13:15:10 / cg" |