equal
deleted
inserted
replaced
1969 fileName := baseName , '.cls'. |
1969 fileName := baseName , '.cls'. |
1970 |
1970 |
1971 Project notNil ifTrue:[ |
1971 Project notNil ifTrue:[ |
1972 dirName := Project currentProjectDirectory |
1972 dirName := Project currentProjectDirectory |
1973 ] ifFalse:[ |
1973 ] ifFalse:[ |
1974 dirName := '' |
1974 dirName := '.' |
1975 ]. |
1975 ]. |
1976 fileName := dirName , fileName. |
1976 fileName := dirName asFilename constructString:fileName. |
1977 |
1977 |
1978 aStream := FileStream newFileNamed:fileName. |
1978 aStream := FileStream newFileNamed:fileName. |
1979 aStream isNil ifTrue:[ |
1979 aStream isNil ifTrue:[ |
1980 ^ FileOutErrorSignal |
1980 ^ FileOutErrorSignal |
1981 raiseRequestWith:fileName |
1981 raiseRequestWith:fileName |
1984 |
1984 |
1985 aStream binary. |
1985 aStream binary. |
1986 self binaryFileOutOn:aStream sourceMode:sourceMode. |
1986 self binaryFileOutOn:aStream sourceMode:sourceMode. |
1987 aStream close. |
1987 aStream close. |
1988 |
1988 |
1989 "Modified: 5.1.1997 / 15:39:30 / cg" |
1989 "Modified: 7.10.1997 / 13:40:00 / cg" |
1990 ! |
1990 ! |
1991 |
1991 |
1992 fileOut |
1992 fileOut |
1993 "create a file 'class.st' consisting of all methods in myself in |
1993 "create a file 'class.st' consisting of all methods in myself in |
1994 sourceForm, from which the class can be reconstructed (by filing in). |
1994 sourceForm, from which the class can be reconstructed (by filing in). |
3834 ! ! |
3834 ! ! |
3835 |
3835 |
3836 !Class class methodsFor:'documentation'! |
3836 !Class class methodsFor:'documentation'! |
3837 |
3837 |
3838 version |
3838 version |
3839 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.294 1997-09-20 21:13:50 cg Exp $' |
3839 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.295 1997-10-07 12:42:28 cg Exp $' |
3840 ! ! |
3840 ! ! |