Class.st
changeset 13764 91325430ce58
parent 13762 29606a2c7ad0
child 13766 4c3376c7dcb7
equal deleted inserted replaced
13763:560aef322c65 13764:91325430ce58
  1619 
  1619 
  1620 sharedPools
  1620 sharedPools
  1621     "this returns a collection of the real pools (i.e. the PoolDictionaries)"
  1621     "this returns a collection of the real pools (i.e. the PoolDictionaries)"
  1622 
  1622 
  1623     ^ self sharedPoolNames 
  1623     ^ self sharedPoolNames 
  1624         collect:[:eachName | Smalltalk at:eachName ]
  1624         collect:[:eachName | Smalltalk at:eachName asSymbol ]
  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 (comment): / 02-10-2011 / 11:49:16 / cg"
  1633     "Modified: / 03-10-2011 / 10:28:22 / cg"
  1634 !
  1634 !
  1635 
  1635 
  1636 sharedPools:aCollection
  1636 sharedPools:aCollection
  1637     "{ Pragma: +optSpace }"
  1637     "{ Pragma: +optSpace }"
  1638 
  1638 
  1646     ].
  1646     ].
  1647     self sharedPoolNames:
  1647     self sharedPoolNames:
  1648         (aCollection 
  1648         (aCollection 
  1649             collect:[:each | 
  1649             collect:[:each | 
  1650                 each isString 
  1650                 each isString 
  1651                     ifTrue:[ each ] 
  1651                     ifTrue:[ each asSymbol ] 
  1652                     ifFalse:[ each name ]
  1652                     ifFalse:[ each name ]
  1653             ]
  1653             ]
  1654         ).
  1654         ).
  1655 
  1655 
  1656     "Modified: / 02-10-2011 / 11:49:48 / cg"
  1656     "Modified: / 03-10-2011 / 10:28:05 / cg"
  1657 !
  1657 !
  1658 
  1658 
  1659 source
  1659 source
  1660     "return the classes full source code"
  1660     "return the classes full source code"
  1661 
  1661 
  5434 ! !
  5434 ! !
  5435 
  5435 
  5436 !Class class methodsFor:'documentation'!
  5436 !Class class methodsFor:'documentation'!
  5437 
  5437 
  5438 version
  5438 version
  5439     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.596 2011-10-02 13:49:09 cg Exp $'
  5439     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.597 2011-10-03 08:28:31 cg Exp $'
  5440 !
  5440 !
  5441 
  5441 
  5442 version_CVS
  5442 version_CVS
  5443     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.596 2011-10-02 13:49:09 cg Exp $'
  5443     ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.597 2011-10-03 08:28:31 cg Exp $'
  5444 !
  5444 !
  5445 
  5445 
  5446 version_SVN
  5446 version_SVN
  5447     ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1  §'
  5447     ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1  §'
  5448 ! !
  5448 ! !