768 SVN::Repository classFilename |
768 SVN::Repository classFilename |
769 Array classFilename |
769 Array classFilename |
770 " |
770 " |
771 |
771 |
772 "Modified: / 22-10-2008 / 20:58:21 / cg" |
772 "Modified: / 22-10-2008 / 20:58:21 / cg" |
|
773 ! |
|
774 |
|
775 classNamed:aClassNameStringOrSymbol |
|
776 "return a private class if present; nil otherwise. |
|
777 Added for protocol compatibilty with NameSpace and Smalltalk" |
|
778 |
|
779 "{ Pragma: +optSpace }" |
|
780 ^ self privateClassesAt:aClassNameStringOrSymbol |
773 ! |
781 ! |
774 |
782 |
775 classVarAt:aSymbol |
783 classVarAt:aSymbol |
776 "return the value of a class variable. |
784 "return the value of a class variable. |
777 Currently, this returns nil if there is no such classvar - |
785 Currently, this returns nil if there is no such classvar - |
1565 pools := self getAttribute:#sharedPools. |
1573 pools := self getAttribute:#sharedPools. |
1566 pools isNil ifTrue:[ |
1574 pools isNil ifTrue:[ |
1567 ^ #(). |
1575 ^ #(). |
1568 ]. |
1576 ]. |
1569 pools isString ifTrue:[ |
1577 pools isString ifTrue:[ |
1570 pools := (pools asCollectionOfWords collect:[:varName| varName asSymbol]) asArray. |
1578 pools := (pools asCollectionOfWords collect:[:varName| varName asSymbol]) as:Array. |
1571 self setAttribute:#sharedPools to:pools. |
1579 self setAttribute:#sharedPools to:pools. |
1572 ]. |
1580 ]. |
1573 ^ pools |
1581 ^ pools |
1574 |
1582 |
1575 " |
1583 " |
1576 Croquet::OpenGL sharedPools |
1584 OSI::ASN1_Coder sharedPoolNames |
1577 OpenGLRenderingContext sharedPools |
1585 Croquet::OpenGL sharedPoolNames |
1578 Character sharedPools |
1586 OpenGLRenderingContext sharedPoolNames |
1579 Win32OperatingSystem sharedPools |
1587 Character sharedPoolNames |
|
1588 Win32OperatingSystem sharedPoolNames |
1580 " |
1589 " |
1581 |
1590 |
1582 "Created: / 18-01-2011 / 17:55:42 / cg" |
1591 "Created: / 18-01-2011 / 17:55:42 / cg" |
1583 ! |
1592 ! |
1584 |
1593 |
1606 self sharedPoolNames |
1615 self sharedPoolNames |
1607 collect:[:eachName | |
1616 collect:[:eachName | |
1608 |pool| |
1617 |pool| |
1609 |
1618 |
1610 ns ~= Smalltalk ifTrue:[ |
1619 ns ~= Smalltalk ifTrue:[ |
1611 ns isNameSpace ifTrue:[ |
1620 pool := ns classNamed:eachName. |
1612 pool := ns at:eachName asSymbol. |
|
1613 ] ifFalse:[ |
|
1614 pool := ns privateClassesAt:eachName asSymbol. |
|
1615 ] |
|
1616 ]. |
1621 ]. |
1617 pool isNil ifTrue:[ |
1622 pool isNil ifTrue:[ |
1618 ns2 ~= Smalltalk ifTrue:[ |
1623 ns2 ~= Smalltalk ifTrue:[ |
1619 pool := ns2 at:eachName asSymbol. |
1624 pool := ns2 classNamed:eachName. |
1620 ]. |
1625 ]. |
1621 ]. |
1626 ]. |
1622 pool isNil ifTrue:[ |
1627 pool isNil ifTrue:[ |
1623 pool := Smalltalk at:eachName asSymbol. |
1628 pool := Smalltalk classNamed:eachName. |
1624 pool isNil ifTrue:[ |
1629 pool isNil ifTrue:[ |
1625 Transcript showCR:('Warning: no such pool: ',eachName). |
1630 Transcript showCR:('Warning: no such pool: ',eachName). |
1626 ] |
1631 ] |
1627 ]. |
1632 ]. |
1628 pool |
1633 pool |
1629 ] |
1634 ] |
1630 as:OrderedCollection. |
1635 thenSelect:[:pool | pool notNil]. |
1631 |
1636 |
1632 ^ pools select:[:pool | pool notNil ] |
1637 ^ pools. |
1633 |
1638 |
1634 " |
1639 |
|
1640 " |
|
1641 OSI::ASN1_Coder sharedPoolNames |
|
1642 OSI::ASN1_Coder sharedPools |
1635 Croquet::OpenGL sharedPools |
1643 Croquet::OpenGL sharedPools |
1636 OpenGLRenderingContext sharedPools |
1644 OpenGLRenderingContext sharedPools |
1637 Character sharedPools |
1645 Character sharedPools |
1638 Win32OperatingSystem sharedPools |
1646 Win32OperatingSystem sharedPools |
1639 " |
1647 " |
5520 ! ! |
5528 ! ! |
5521 |
5529 |
5522 !Class class methodsFor:'documentation'! |
5530 !Class class methodsFor:'documentation'! |
5523 |
5531 |
5524 version |
5532 version |
5525 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.621 2013-04-08 10:47:05 stefan Exp $' |
5533 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.622 2013-04-16 15:57:21 stefan Exp $' |
5526 ! |
5534 ! |
5527 |
5535 |
5528 version_CVS |
5536 version_CVS |
5529 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.621 2013-04-08 10:47:05 stefan Exp $' |
5537 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.622 2013-04-16 15:57:21 stefan Exp $' |
5530 ! |
5538 ! |
5531 |
5539 |
5532 version_SVN |
5540 version_SVN |
5533 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5541 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5534 ! ! |
5542 ! ! |