1616 "Created: / 18-01-2011 / 17:55:48 / cg" |
1616 "Created: / 18-01-2011 / 17:55:48 / cg" |
1617 "Modified: / 18-01-2011 / 20:41:17 / cg" |
1617 "Modified: / 18-01-2011 / 20:41:17 / cg" |
1618 ! |
1618 ! |
1619 |
1619 |
1620 sharedPools |
1620 sharedPools |
1621 "this returns a collection of the plain (non-namespace aware) pool names. |
1621 "this returns a collection of the real pools (i.e. the PoolDictionaries)" |
1622 WARNING: this will soon cahnge to return the real pools (i.e. the PoolDictionaries)" |
1622 |
1623 |
1623 ^ self sharedPoolNames |
1624 ^ self sharedPoolNames |
1624 collect:[:eachName | Smalltalk at:eachName ] |
1625 |
1625 |
1626 " |
1626 " |
1627 Croquet::OpenGL sharedPools |
1627 Croquet::OpenGL sharedPools |
1628 OpenGLRenderingContext sharedPools |
1628 OpenGLRenderingContext sharedPools |
1629 Character sharedPools |
1629 Character sharedPools |
1630 Win32OperatingSystem sharedPools |
1630 Win32OperatingSystem sharedPools |
1631 " |
1631 " |
1632 |
1632 |
1633 "Modified: / 18-01-2011 / 18:01:39 / cg" |
1633 "Modified (comment): / 02-10-2011 / 11:49:16 / cg" |
1634 ! |
1634 ! |
1635 |
1635 |
1636 sharedPools:aStringOrCollection |
1636 sharedPools:aCollection |
1637 "{ Pragma: +optSpace }" |
1637 "{ Pragma: +optSpace }" |
1638 |
1638 |
1639 "set the sharedPools string (no change notifications). |
1639 "set the sharedPools expects the real pools (i.e. the PoolDictionaries)" |
1640 WARNING: this will soon cahnge to expect the real pools (i.e. the PoolDictionaries)" |
1640 |
1641 |
1641 "/ for backward compatibility.. |
1642 self sharedPoolNames:aStringOrCollection. |
1642 aCollection isString ifTrue:[ |
1643 |
1643 Transcript showCR:'warning: string passed to sharedPools:'. |
1644 "Modified: / 18-01-2011 / 18:01:58 / cg" |
1644 self sharedPoolNames:(aCollection asCollectionOfWords). |
|
1645 ^ self. |
|
1646 ]. |
|
1647 self sharedPoolNames: |
|
1648 (aCollection |
|
1649 collect:[:each | |
|
1650 each isString |
|
1651 ifTrue:[ each ] |
|
1652 ifFalse:[ each name ] |
|
1653 ] |
|
1654 ). |
|
1655 |
|
1656 "Modified: / 02-10-2011 / 11:49:48 / cg" |
1645 ! |
1657 ! |
1646 |
1658 |
1647 source |
1659 source |
1648 "return the classes full source code" |
1660 "return the classes full source code" |
1649 |
1661 |
5422 ! ! |
5434 ! ! |
5423 |
5435 |
5424 !Class class methodsFor:'documentation'! |
5436 !Class class methodsFor:'documentation'! |
5425 |
5437 |
5426 version |
5438 version |
5427 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.595 2011-09-29 20:02:32 cg Exp $' |
5439 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.596 2011-10-02 13:49:09 cg Exp $' |
5428 ! |
5440 ! |
5429 |
5441 |
5430 version_CVS |
5442 version_CVS |
5431 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.595 2011-09-29 20:02:32 cg Exp $' |
5443 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.596 2011-10-02 13:49:09 cg Exp $' |
5432 ! |
5444 ! |
5433 |
5445 |
5434 version_SVN |
5446 version_SVN |
5435 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5447 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5436 ! ! |
5448 ! ! |