--- a/Class.st Wed Apr 03 13:46:25 2013 +0200
+++ b/Class.st Wed Apr 03 15:43:05 2013 +0200
@@ -1645,20 +1645,20 @@
"set the sharedPools expects the real pools (i.e. the PoolDictionaries)"
- "/ for backward compatibility..
+ "/ for backward compatibility, also allow a string arg..
aCollection isString ifTrue:[
- Transcript show:self name; showCR:' [warning]: string passed to sharedPools:'.
- self sharedPoolNames:(aCollection asCollectionOfWords collect:[:each | each asSymbol]).
- ^ self.
+ Transcript show:self name; showCR:' [warning]: string passed to sharedPools:'.
+ self sharedPoolNames:(aCollection asCollectionOfWords collect:[:each | each asSymbol]).
+ ^ self.
].
self sharedPoolNames:
- (aCollection
- collect:[:each |
- each isString
- ifTrue:[ each asSymbol ]
- ifFalse:[ each name ]
- ]
- ).
+ (aCollection
+ collect:[:each |
+ each isString
+ ifTrue:[ each asSymbol ]
+ ifFalse:[ each name ]
+ ]
+ ).
"Modified: / 03-10-2011 / 10:30:30 / cg"
!
@@ -1800,7 +1800,6 @@
"Created: / 18-07-2011 / 09:14:38 / cg"
! !
-
!Class methodsFor:'adding & removing'!
removeFromSystem
@@ -5521,11 +5520,11 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.619 2013-04-02 12:03:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.620 2013-04-03 13:43:05 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.619 2013-04-02 12:03:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.620 2013-04-03 13:43:05 cg Exp $'
!
version_SVN