equal
deleted
inserted
replaced
443 |
443 |
444 (owner := self owningClass) notNil ifTrue:[^ owner classFilename]. |
444 (owner := self owningClass) notNil ifTrue:[^ owner classFilename]. |
445 ^ classFilename |
445 ^ classFilename |
446 |
446 |
447 "Modified: 15.10.1996 / 18:53:21 / cg" |
447 "Modified: 15.10.1996 / 18:53:21 / cg" |
448 ! |
|
449 |
|
450 classPool |
|
451 "return a dictionary filled with classVarName->value |
|
452 associations. This has been added for ST80 compatibility, |
|
453 and is not the way classVars are technically implemented in |
|
454 ST/X. Changing the values in the returned dictionary has no effect |
|
455 on the classVars value(s)" |
|
456 |
|
457 |d| |
|
458 |
|
459 d := IdentityDictionary new. |
|
460 self classVarNames do:[:nm | |
|
461 |sym| |
|
462 |
|
463 sym := nm asSymbol. |
|
464 d at:sym put:(self classVarAt:sym) |
|
465 ]. |
|
466 ^ d |
|
467 |
|
468 " |
|
469 Button classPool |
|
470 " |
|
471 |
|
472 "Modified: 17.10.1997 / 12:12:14 / cg" |
|
473 ! |
448 ! |
474 |
449 |
475 classVarAt:aSymbol |
450 classVarAt:aSymbol |
476 "return the value of a class variable. |
451 "return the value of a class variable. |
477 Currently, this returns nil if there is no such classvar - |
452 Currently, this returns nil if there is no such classvar - |
3923 ! ! |
3898 ! ! |
3924 |
3899 |
3925 !Class class methodsFor:'documentation'! |
3900 !Class class methodsFor:'documentation'! |
3926 |
3901 |
3927 version |
3902 version |
3928 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.344 1999-08-05 13:25:28 cg Exp $' |
3903 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.345 1999-08-17 13:48:46 cg Exp $' |
3929 ! ! |
3904 ! ! |