equal
deleted
inserted
replaced
19 |
19 |
20 Class comment:' |
20 Class comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.38 1995-03-25 01:21:46 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.39 1995-04-11 14:48:39 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Class class methodsFor:'documentation'! |
27 !Class 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/libbasic/Class.st,v 1.38 1995-03-25 01:21:46 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Class.st,v 1.39 1995-04-11 14:48:39 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
96 (for example) during fileIn or when changes are applied, it is set to false |
96 (for example) during fileIn or when changes are applied, it is set to false |
97 to avoid putting too much junk into the changes-file." |
97 to avoid putting too much junk into the changes-file." |
98 |
98 |
99 UpdatingChanges := true. |
99 UpdatingChanges := true. |
100 FileOutErrorSignal isNil ifTrue:[ |
100 FileOutErrorSignal isNil ifTrue:[ |
101 Object initialize. |
|
102 |
|
103 FileOutErrorSignal := Object errorSignal newSignalMayProceed:false. |
101 FileOutErrorSignal := Object errorSignal newSignalMayProceed:false. |
104 FileOutErrorSignal nameClass:self message:#fileOutErrorSignal. |
102 FileOutErrorSignal nameClass:self message:#fileOutErrorSignal. |
105 FileOutErrorSignal notifierString:'error during fileOut'. |
103 FileOutErrorSignal notifierString:'error during fileOut'. |
106 ] |
104 ] |
107 ! ! |
105 ! ! |
994 "append a methodCategory-change-record to aStream" |
992 "append a methodCategory-change-record to aStream" |
995 |
993 |
996 |selector| |
994 |selector| |
997 |
995 |
998 selector := aMethod selector. |
996 selector := aMethod selector. |
999 |
997 selector notNil ifTrue:[ |
1000 aStream nextPutAll:'('. |
998 aStream nextPutAll:'('. |
1001 self printClassNameOn:aStream. |
999 self printClassNameOn:aStream. |
1002 aStream nextPutAll:(' compiledMethodAt:' , selector storeString). |
1000 aStream nextPutAll:(' compiledMethodAt:' , selector storeString). |
1003 aStream nextPutAll:(') category:' , newCategory storeString). |
1001 aStream nextPutAll:(') category:' , newCategory storeString). |
1004 aStream nextPut:(aStream class chunkSeparator). |
1002 aStream nextPut:(aStream class chunkSeparator). |
|
1003 ] |
1005 ! |
1004 ! |
1006 |
1005 |
1007 addChangeRecordForClass:aClass to:aStream |
1006 addChangeRecordForClass:aClass to:aStream |
1008 "append a class-definition-record to aStream" |
1007 "append a class-definition-record to aStream" |
1009 |
1008 |