equal
deleted
inserted
replaced
471 |
471 |
472 "Created: 15.4.1996 / 17:17:13 / cg" |
472 "Created: 15.4.1996 / 17:17:13 / cg" |
473 "Modified: 23.4.1996 / 15:56:58 / cg" |
473 "Modified: 23.4.1996 / 15:56:58 / cg" |
474 ! ! |
474 ! ! |
475 |
475 |
476 |
|
477 |
|
478 !Class methodsFor:'Compatibility-Dolphin'! |
476 !Class methodsFor:'Compatibility-Dolphin'! |
479 |
477 |
480 defaultCategoryForDolphinClasses |
478 defaultCategoryForDolphinClasses |
481 ^ DefaultCategoryForDolphin ? 'Dolphin classes'. |
479 ^ DefaultCategoryForDolphin ? 'Dolphin classes'. |
482 ! |
480 ! |
640 ^ Smalltalk renameClass:self to:newName. |
638 ^ Smalltalk renameClass:self to:newName. |
641 "/ ^ self renameTo:newName |
639 "/ ^ self renameTo:newName |
642 |
640 |
643 "Created: / 18.6.1998 / 22:08:45 / cg" |
641 "Created: / 18.6.1998 / 22:08:45 / cg" |
644 ! ! |
642 ! ! |
645 |
|
646 |
643 |
647 !Class methodsFor:'accessing'! |
644 !Class methodsFor:'accessing'! |
648 |
645 |
649 addChangeRecordForClass:aClass andNotifyChangeOf:aspect |
646 addChangeRecordForClass:aClass andNotifyChangeOf:aspect |
650 "writes a change record and notifies dependents." |
647 "writes a change record and notifies dependents." |
1838 " |
1835 " |
1839 |
1836 |
1840 "Modified: 7.6.1996 / 09:15:05 / stefan" |
1837 "Modified: 7.6.1996 / 09:15:05 / stefan" |
1841 "Modified: 4.6.1997 / 14:48:02 / cg" |
1838 "Modified: 4.6.1997 / 14:48:02 / cg" |
1842 ! ! |
1839 ! ! |
1843 |
|
1844 |
1840 |
1845 !Class methodsFor:'changes management'! |
1841 !Class methodsFor:'changes management'! |
1846 |
1842 |
1847 addChangeRecordForChangeCategory |
1843 addChangeRecordForChangeCategory |
1848 "{ Pragma: +optSpace }" |
1844 "{ Pragma: +optSpace }" |
4200 "/ before falling back to the default version method. |
4196 "/ before falling back to the default version method. |
4201 versionMethodsToTry := OrderedCollection new. |
4197 versionMethodsToTry := OrderedCollection new. |
4202 aSourceCodemanagerOrNil notNil ifTrue:[ |
4198 aSourceCodemanagerOrNil notNil ifTrue:[ |
4203 versionMethodsToTry add:aSourceCodemanagerOrNil nameOfVersionMethodInClasses. |
4199 versionMethodsToTry add:aSourceCodemanagerOrNil nameOfVersionMethodInClasses. |
4204 ]. |
4200 ]. |
4205 versionMethodsToTry add:self nameOfVersionMethod. "/ fallback |
4201 versionMethodsToTry add:self nameOfOldVersionMethod. "/ fallback |
4206 |
4202 |
4207 versionMethodsToTry do:[:versionMethodsName | |
4203 versionMethodsToTry do:[:versionMethodsName | |
4208 |aVersionMethod val| |
4204 |aVersionMethod val| |
4209 |
4205 |
4210 aVersionMethod := meta compiledMethodAt:versionMethodsName. |
4206 aVersionMethod := meta compiledMethodAt:versionMethodsName. |
4344 ^ nil |
4340 ^ nil |
4345 |
4341 |
4346 "Modified: / 18.7.1998 / 22:53:19 / cg" |
4342 "Modified: / 18.7.1998 / 22:53:19 / cg" |
4347 ! |
4343 ! |
4348 |
4344 |
|
4345 nameOfOldVersionMethod |
|
4346 "this is now more or less obsolete, as multiple sourceCodeManagers might use |
|
4347 different version_XXX methods. Currently, we keep this for backward compatibility. |
|
4348 As classes are checked in, using the new source code manager, these methods will |
|
4349 be removed and replaced by version_XXX methods (one per manager)." |
|
4350 |
|
4351 ^ #version |
|
4352 |
|
4353 "Modified: / 19-04-2011 / 13:42:18 / cg" |
|
4354 ! |
|
4355 |
4349 nameOfVersionMethod |
4356 nameOfVersionMethod |
4350 "this is now more ore less obsolete, as multiple sourceCodeManagers might use |
4357 "this is now more or less obsolete, as multiple sourceCodeManagers might use |
4351 different version_XXX methods. Keep this for backward compatibility." |
4358 different version_XXX methods. Keep this for backward compatibility. |
4352 |
4359 As classes are checked in using the new source code manager, these methods will |
4353 ^ #version |
4360 be removed and replaced by version_XXX methods (one per manager)." |
|
4361 |
|
4362 self obsoleteMethodWarning. |
|
4363 ^ self nameOfOldVersionMethod |
4354 |
4364 |
4355 "Modified: / 19-04-2011 / 13:42:18 / cg" |
4365 "Modified: / 19-04-2011 / 13:42:18 / cg" |
4356 ! |
4366 ! |
4357 |
4367 |
4358 packageSourceCodeInfo |
4368 packageSourceCodeInfo |
5254 ! ! |
5264 ! ! |
5255 |
5265 |
5256 !Class class methodsFor:'documentation'! |
5266 !Class class methodsFor:'documentation'! |
5257 |
5267 |
5258 version_CVS |
5268 version_CVS |
5259 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.583 2011-06-28 13:16:04 vrany Exp $' |
5269 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.584 2011-06-29 14:12:28 cg Exp $' |
5260 ! |
5270 ! |
5261 |
5271 |
5262 version_SVN |
5272 version_SVN |
5263 ^ ' Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 ' |
5273 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5264 ! ! |
5274 ! ! |