equal
deleted
inserted
replaced
641 "/ ^ self renameTo:newName |
641 "/ ^ self renameTo:newName |
642 |
642 |
643 "Created: / 18.6.1998 / 22:08:45 / cg" |
643 "Created: / 18.6.1998 / 22:08:45 / cg" |
644 ! ! |
644 ! ! |
645 |
645 |
|
646 |
646 !Class methodsFor:'accessing'! |
647 !Class methodsFor:'accessing'! |
647 |
648 |
648 addClassVarName:aString |
649 addClassVarName:aString |
649 "add a class variable if not already there and initialize it with nil. |
650 "add a class variable if not already there and initialize it with nil. |
650 Also writes a change record and notifies dependents." |
651 Also writes a change record and notifies dependents." |
818 "return a collection of the class variable name-strings. |
819 "return a collection of the class variable name-strings. |
819 Only names of class variables defined in this class are included |
820 Only names of class variables defined in this class are included |
820 in the returned collection - use allClassVarNames, to get all known names." |
821 in the returned collection - use allClassVarNames, to get all known names." |
821 |
822 |
822 classvars isNil ifTrue:[ |
823 classvars isNil ifTrue:[ |
823 ^ #() |
824 ^ #() |
824 ]. |
825 ]. |
825 classvars isString ifTrue:[ |
826 classvars isString ifTrue:[ |
826 classvars := classvars asCollectionOfWords collect:[:varName| varName asSymbol] as:Array. |
827 classvars := (classvars asCollectionOfWords collect:[:varName| varName asSymbol]) asArray. |
827 ^ classvars |
828 ^ classvars |
828 ]. |
829 ]. |
829 |
830 |
830 ^ classvars |
831 ^ classvars |
831 |
832 |
832 " |
833 " |
1560 |
1561 |
1561 |pools| |
1562 |pools| |
1562 |
1563 |
1563 pools := self getAttribute:#sharedPools. |
1564 pools := self getAttribute:#sharedPools. |
1564 pools isNil ifTrue:[ |
1565 pools isNil ifTrue:[ |
1565 ^ #(). |
1566 ^ #(). |
1566 ]. |
1567 ]. |
1567 pools isString ifTrue:[ |
1568 pools isString ifTrue:[ |
1568 pools := pools asCollectionOfWords collect:[:varName| varName asSymbol] as:Array. |
1569 pools := (pools asCollectionOfWords collect:[:varName| varName asSymbol]) asArray. |
1569 self setAttribute:#sharedPools to:pools. |
1570 self setAttribute:#sharedPools to:pools. |
1570 ]. |
1571 ]. |
1571 ^ pools |
1572 ^ pools |
1572 |
1573 |
1573 " |
1574 " |
1574 Croquet::OpenGL sharedPools |
1575 Croquet::OpenGL sharedPools |
1796 self withAllPrivateClassesDo:[:cls | coll add:cls]. |
1797 self withAllPrivateClassesDo:[:cls | coll add:cls]. |
1797 ^ coll |
1798 ^ coll |
1798 |
1799 |
1799 "Created: / 18-07-2011 / 09:14:38 / cg" |
1800 "Created: / 18-07-2011 / 09:14:38 / cg" |
1800 ! ! |
1801 ! ! |
|
1802 |
1801 |
1803 |
1802 !Class methodsFor:'adding & removing'! |
1804 !Class methodsFor:'adding & removing'! |
1803 |
1805 |
1804 removeFromSystem |
1806 removeFromSystem |
1805 "ST-80 compatibility |
1807 "ST-80 compatibility |
5517 ! ! |
5519 ! ! |
5518 |
5520 |
5519 !Class class methodsFor:'documentation'! |
5521 !Class class methodsFor:'documentation'! |
5520 |
5522 |
5521 version |
5523 version |
5522 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.618 2013-03-21 10:51:15 cg Exp $' |
5524 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.619 2013-04-02 12:03:42 stefan Exp $' |
5523 ! |
5525 ! |
5524 |
5526 |
5525 version_CVS |
5527 version_CVS |
5526 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.618 2013-03-21 10:51:15 cg Exp $' |
5528 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.619 2013-04-02 12:03:42 stefan Exp $' |
5527 ! |
5529 ! |
5528 |
5530 |
5529 version_SVN |
5531 version_SVN |
5530 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5532 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5531 ! ! |
5533 ! ! |