equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1991 by Claus Gittinger |
2 COPYRIGHT (c) 1991 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
4384 |nm f s| |
4382 |nm f s| |
4385 |
4383 |
4386 nm := currentDirectory baseName. |
4384 nm := currentDirectory baseName. |
4387 f := (currentDirectory construct:nm) withSuffix:'prj'. |
4385 f := (currentDirectory construct:nm) withSuffix:'prj'. |
4388 f exists ifTrue:[ |
4386 f exists ifTrue:[ |
4389 self warn:'A file named ' , f baseName , ' alredy exists.'. |
4387 self warn:'A file named ' , f baseName , ' already exists.'. |
4390 ^ self. |
4388 ^ self. |
4391 ]. |
4389 ]. |
4392 s := f writeStream. |
4390 s := f writeStream. |
4393 s nextPutAll:' |
4391 s nextPutAll:' |
4394 name ''' , nm , ''' |
4392 name ''' , nm , ''' |