equal
deleted
inserted
replaced
3351 [ |
3351 [ |
3352 "let the temp filename start with a ~ to make it invisible" |
3352 "let the temp filename start with a ~ to make it invisible" |
3353 tempStream := FileStream newTemporaryIn:newName directory nameTemplate:'~%1_%2'. |
3353 tempStream := FileStream newTemporaryIn:newName directory nameTemplate:'~%1_%2'. |
3354 [ |
3354 [ |
3355 "would be nice to keep the access rights of the original test suite" |
3355 "would be nice to keep the access rights of the original test suite" |
3356 tempStream accessRights:accessRights. |
3356 tempStream fileName accessRights:accessRights. |
3357 ] on:OperatingSystem accessDeniedErrorSignal do:[:ex| |
3357 ] on:OperatingSystem accessDeniedErrorSignal do:[:ex| |
3358 "ignore the error - may occure when copying to a network drive" |
3358 "ignore the error - may occure when copying to a network drive" |
3359 ]. |
3359 ]. |
3360 |
3360 |
3361 inStream binary. |
3361 inStream binary. |
6064 ! ! |
6064 ! ! |
6065 |
6065 |
6066 !Filename class methodsFor:'documentation'! |
6066 !Filename class methodsFor:'documentation'! |
6067 |
6067 |
6068 version |
6068 version |
6069 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.406 2013-11-21 15:04:00 stefan Exp $' |
6069 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.407 2013-11-21 15:58:10 ca Exp $' |
6070 ! |
6070 ! |
6071 |
6071 |
6072 version_CVS |
6072 version_CVS |
6073 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.406 2013-11-21 15:04:00 stefan Exp $' |
6073 ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.407 2013-11-21 15:58:10 ca Exp $' |
6074 ! ! |
6074 ! ! |
6075 |
6075 |
6076 |
6076 |
6077 Filename initialize! |
6077 Filename initialize! |