equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 'From Smalltalk/X, Version:3.1.5 on 3-apr-1997 at 19:19:00' ! |
|
14 |
12 |
15 Behavior subclass:#ClassDescription |
13 Behavior subclass:#ClassDescription |
16 instanceVariableNames:'instvars' |
14 instanceVariableNames:'instvars' |
17 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal |
15 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal |
18 CatchMethodRedefinitions MethodRedefinitionSignal |
16 CatchMethodRedefinitions MethodRedefinitionSignal |
340 organization |
338 organization |
341 "for ST80 compatibility; |
339 "for ST80 compatibility; |
342 read the documentation in ClassOrganizer for more info." |
340 read the documentation in ClassOrganizer for more info." |
343 |
341 |
344 ^ ClassOrganizer for:self |
342 ^ ClassOrganizer for:self |
|
343 ! |
|
344 |
|
345 renameCategory:oldCategory to:newCategory |
|
346 "{ Pragma: +optSpace }" |
|
347 |
|
348 "rename a category (changes category of those methods). |
|
349 Appends a change record and notifies dependents." |
|
350 |
|
351 |any| |
|
352 |
|
353 any := false. |
|
354 self methodDictionary do:[:aMethod | |
|
355 aMethod category = oldCategory ifTrue:[ |
|
356 aMethod category:newCategory. |
|
357 any := true. |
|
358 ] |
|
359 ]. |
|
360 any ifTrue:[ |
|
361 self addChangeRecordForRenameCategory:oldCategory to:newCategory. |
|
362 self changed:#methodCategory. |
|
363 ] |
|
364 |
|
365 "Modified: 12.6.1996 / 11:49:08 / stefan" |
|
366 "Created: 3.6.1997 / 11:55:05 / cg" |
345 ! ! |
367 ! ! |
346 |
368 |
347 !ClassDescription methodsFor:'adding/removing'! |
369 !ClassDescription methodsFor:'adding/removing'! |
348 |
370 |
349 basicAddSelector:newSelector withMethod:newMethod |
371 basicAddSelector:newSelector withMethod:newMethod |
2382 ! ! |
2404 ! ! |
2383 |
2405 |
2384 !ClassDescription class methodsFor:'documentation'! |
2406 !ClassDescription class methodsFor:'documentation'! |
2385 |
2407 |
2386 version |
2408 version |
2387 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.45 1997-05-27 08:35:58 stefan Exp $' |
2409 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.46 1997-06-03 09:55:41 cg Exp $' |
2388 ! ! |
2410 ! ! |
2389 ClassDescription initialize! |
2411 ClassDescription initialize! |