# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1364996585 -7200
# Node ID 62372d55910f514ea2bcf147e112d5ab8bf318f5
# Parent  aad511684e79fb76155d8d494ee6ebdff7b56a9a
class: Class
comment/format in: #sharedPools:

diff -r aad511684e79 -r 62372d55910f Class.st
--- 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