equal
deleted
inserted
replaced
19 |
19 |
20 ClassDescription comment:' |
20 ClassDescription comment:' |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.12 1995-02-15 10:21:33 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.13 1995-03-06 19:15:25 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !ClassDescription class methodsFor:'documentation'! |
27 !ClassDescription 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/ClassDescription.st,v 1.12 1995-02-15 10:21:33 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.13 1995-03-06 19:15:25 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
239 ! ! |
239 ! ! |
240 |
240 |
241 !ClassDescription methodsFor:'renaming'! |
241 !ClassDescription methodsFor:'renaming'! |
242 |
242 |
243 renameTo:newName |
243 renameTo:newName |
244 "change the name of the class - this writes a change record" |
244 "change the name of the class" |
245 |
245 |
246 |oldName oldSym| |
246 |oldSym| |
247 |
247 |
248 oldName := name. |
|
249 oldSym := name asSymbol. |
248 oldSym := name asSymbol. |
250 self setName:newName. |
249 self setName:newName. |
251 |
250 |
252 Smalltalk at:oldSym put:nil. |
251 Smalltalk at:oldSym put:nil. |
253 Smalltalk removeKey:oldSym. "26.jun 93" |
252 Smalltalk removeKey:oldSym. "26.jun 93" |
255 ! ! |
254 ! ! |
256 |
255 |
257 !ClassDescription methodsFor:'printing & storing'! |
256 !ClassDescription methodsFor:'printing & storing'! |
258 |
257 |
259 displayString |
258 displayString |
260 "return a string for display in inspoectors" |
259 "return a string for display in inspectors" |
|
260 |
|
261 |nm more| |
261 |
262 |
262 category == #obsolete ifTrue:[ |
263 category == #obsolete ifTrue:[ |
263 "add obsolete - to make life easier ..." |
264 "add obsolete - to make life easier ..." |
264 ^ self name "super displayString" , ' (obsolete)' |
265 more := ' (obsolete)' |
265 ]. |
266 ]. |
266 category == #removed ifTrue:[ |
267 category == #removed ifTrue:[ |
267 "add removed - to make life easier ..." |
268 "add removed - to make life easier ..." |
268 ^ self name "super displayString" , ' (removed)' |
269 more := ' (removed)' |
269 ]. |
270 ]. |
270 ^ self name "super displayString" |
271 |
|
272 nm := self name. |
|
273 more isNil ifTrue:[^ nm]. |
|
274 ^ nm , more |
271 ! ! |
275 ! ! |
272 |
276 |
273 !ClassDescription methodsFor:'private'! |
277 !ClassDescription methodsFor:'private'! |
274 |
278 |
275 addAllInstVarNamesTo:aCollection |
279 addAllInstVarNamesTo:aCollection |