equal
deleted
inserted
replaced
793 no classPools yet. |
793 no classPools yet. |
794 " |
794 " |
795 ^ Smalltalk at:(self globalKeyForClassVar:aSymbol) ifAbsent:exceptionBlock |
795 ^ Smalltalk at:(self globalKeyForClassVar:aSymbol) ifAbsent:exceptionBlock |
796 ! |
796 ! |
797 |
797 |
798 classVarAt:aSymbol put:something |
798 classVarAt:aSymbolOrString put:something |
799 "store something in a classvariable. |
799 "store something in a classvariable. |
800 Currently this creates a global with a funny name if no such |
800 Currently this creates a global with a funny name if no such |
801 classVar exists - this may change." |
801 classVar exists - this may change." |
802 |
802 |
803 " |
803 " |
804 this hides the (current) implementation of classVariables |
804 this hides the (current) implementation of classVariables |
805 from the outside world. Currently, classvars are stored in |
805 from the outside world. Currently, classvars are stored in |
806 the Smalltalk dictionary with a funny name, since there are |
806 the Smalltalk dictionary with a funny name, since there are |
807 no classPools yet. |
807 no classPools yet. |
808 " |
808 " |
809 Smalltalk at:(self globalKeyForClassVar:aSymbol) put:something. |
809 Smalltalk at:(self globalKeyForClassVar:aSymbolOrString) put:something. |
|
810 |
|
811 "Modified: / 27-10-2010 / 16:35:17 / cg" |
810 ! |
812 ! |
811 |
813 |
812 classVarNames |
814 classVarNames |
813 "return a collection of the class variable name-strings. |
815 "return a collection of the class variable name-strings. |
814 Only names of class variables defined in this class are included |
816 Only names of class variables defined in this class are included |
5068 ! ! |
5070 ! ! |
5069 |
5071 |
5070 !Class class methodsFor:'documentation'! |
5072 !Class class methodsFor:'documentation'! |
5071 |
5073 |
5072 version |
5074 version |
5073 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.574 2010-10-13 10:39:20 cg Exp $' |
5075 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.575 2010-10-27 14:35:25 cg Exp $' |
5074 ! |
5076 ! |
5075 |
5077 |
5076 version_CVS |
5078 version_CVS |
5077 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.574 2010-10-13 10:39:20 cg Exp $' |
5079 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.575 2010-10-27 14:35:25 cg Exp $' |
5078 ! ! |
5080 ! ! |