equal
deleted
inserted
replaced
266 comment:nil |
266 comment:nil |
267 changed:false |
267 changed:false |
268 classInstanceVariableNames:nil |
268 classInstanceVariableNames:nil |
269 |
269 |
270 "Modified: 16.6.1997 / 11:53:58 / cg" |
270 "Modified: 16.6.1997 / 11:53:58 / cg" |
|
271 ! |
|
272 |
|
273 undeclared: name |
|
274 |
|
275 " |
|
276 Creates an 'undeclared' class, a placeholder for |
|
277 superclass when loading/filing-in a class whose |
|
278 superclass does not exists. |
|
279 " |
|
280 Transcript showCR:'Smalltalk [info]: Declaring undeclared class: ', name. |
|
281 ^Object subclass: name asSymbol |
|
282 instanceVariableNames:'' |
|
283 classVariableNames:'' |
|
284 poolDictionaries:'' |
|
285 category:'* undeclared classes!! *' |
|
286 |
|
287 "Created: / 08-11-2010 / 16:08:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
271 ! ! |
288 ! ! |
272 |
289 |
273 !Class class methodsFor:'helpers'! |
290 !Class class methodsFor:'helpers'! |
274 |
291 |
275 nameWithoutPrefix:name |
292 nameWithoutPrefix:name |
335 lines := aMethodSourceString asCollectionOfLines. |
352 lines := aMethodSourceString asCollectionOfLines. |
336 lines do:[:l | |
353 lines do:[:l | |
337 |i| |
354 |i| |
338 |
355 |
339 i := l indexOfSubCollection:'$Header: '. |
356 i := l indexOfSubCollection:'$Header: '. |
|
357 "JV @ 2009-12-13: Also search for '$Id: ' (because of SVN-only classes)" |
|
358 i == 0 ifTrue:[ |
|
359 i := l indexOfSubCollection:'$Id: ']. |
340 i ~~ 0 ifTrue:[ |
360 i ~~ 0 ifTrue:[ |
341 line := l copyFrom:i. |
361 line := l copyFrom:i. |
342 i := line lastIndexOf:$$. |
362 i := line lastIndexOf:$$. |
343 i > 1 ifTrue:[ |
363 i > 1 ifTrue:[ |
344 line := line copyTo:i. |
364 line := line copyTo:i. |
451 |
471 |
452 "Created: 15.4.1996 / 17:17:13 / cg" |
472 "Created: 15.4.1996 / 17:17:13 / cg" |
453 "Modified: 23.4.1996 / 15:56:58 / cg" |
473 "Modified: 23.4.1996 / 15:56:58 / cg" |
454 ! ! |
474 ! ! |
455 |
475 |
|
476 |
|
477 |
456 !Class methodsFor:'Compatibility-Dolphin'! |
478 !Class methodsFor:'Compatibility-Dolphin'! |
457 |
479 |
458 defaultCategoryForDolphinClasses |
480 defaultCategoryForDolphinClasses |
459 ^ DefaultCategoryForDolphin ? 'Dolphin classes'. |
481 ^ DefaultCategoryForDolphin ? 'Dolphin classes'. |
460 ! |
482 ! |
618 ^ Smalltalk renameClass:self to:newName. |
640 ^ Smalltalk renameClass:self to:newName. |
619 "/ ^ self renameTo:newName |
641 "/ ^ self renameTo:newName |
620 |
642 |
621 "Created: / 18.6.1998 / 22:08:45 / cg" |
643 "Created: / 18.6.1998 / 22:08:45 / cg" |
622 ! ! |
644 ! ! |
|
645 |
623 |
646 |
624 !Class methodsFor:'accessing'! |
647 !Class methodsFor:'accessing'! |
625 |
648 |
626 addChangeRecordForClass:aClass andNotifyChangeOf:aspect |
649 addChangeRecordForClass:aClass andNotifyChangeOf:aspect |
627 "writes a change record and notifies dependents." |
650 "writes a change record and notifies dependents." |
5230 "Created: / 4.2.2000 / 00:27:20 / cg" |
5253 "Created: / 4.2.2000 / 00:27:20 / cg" |
5231 ! ! |
5254 ! ! |
5232 |
5255 |
5233 !Class class methodsFor:'documentation'! |
5256 !Class class methodsFor:'documentation'! |
5234 |
5257 |
5235 version |
|
5236 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.582 2011-05-23 15:33:52 cg Exp $' |
|
5237 ! |
|
5238 |
|
5239 version_CVS |
5258 version_CVS |
5240 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.582 2011-05-23 15:33:52 cg Exp $' |
5259 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.583 2011-06-28 13:16:04 vrany Exp $' |
|
5260 ! |
|
5261 |
|
5262 version_SVN |
|
5263 ^ ' Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 ' |
5241 ! ! |
5264 ! ! |