changed: #doCopyClass:as:privateIn:ignore:
authorClaus Gittinger <cg@exept.de>
Wed, 22 Dec 2010 18:44:44 +0100
changeset 9670 12812895bdb3
parent 9669 76131eabd2e9
child 9671 a441167cbacd
changed: #doCopyClass:as:privateIn:ignore: also copy pools when copying classes
NewSystemBrowser.st
Tools__NewSystemBrowser.st
--- a/NewSystemBrowser.st	Wed Dec 22 17:05:55 2010 +0100
+++ b/NewSystemBrowser.st	Wed Dec 22 18:44:44 2010 +0100
@@ -22009,9 +22009,9 @@
     newClass := aClass superclass
                 perform:sel
                 with:newClassName asSymbol
-                with:aClass instanceVariableString                                "/ instanceVariableNames:
-                with:aClass classVariableString                                   "/ classVariableNames:
-                with:''                                                           "/ poolDictionaries:
+                with:aClass instanceVariableString              
+                with:aClass classVariableString                 
+                with:aClass poolDictionaries                    
                 with:(ownerOrNil ifNil:[aClass category] ifNotNil:[ownerOrNil]).  "/ category: or privateIn:
 
     newClass isNil ifTrue:[
@@ -22054,6 +22054,8 @@
     ].
     newClass package:(Class packageQuerySignal query).
     ^ newClass
+
+    "Modified: / 22-12-2010 / 18:44:04 / cg"
 !
 
 doMoveMethodsOfClass:aClass fromProject:oldProject toProject:newProject
@@ -44777,11 +44779,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1496 2010-12-22 16:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1496 2010-12-22 16:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed Dec 22 17:05:55 2010 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Dec 22 18:44:44 2010 +0100
@@ -22009,9 +22009,9 @@
     newClass := aClass superclass
                 perform:sel
                 with:newClassName asSymbol
-                with:aClass instanceVariableString                                "/ instanceVariableNames:
-                with:aClass classVariableString                                   "/ classVariableNames:
-                with:''                                                           "/ poolDictionaries:
+                with:aClass instanceVariableString              
+                with:aClass classVariableString                 
+                with:aClass poolDictionaries                    
                 with:(ownerOrNil ifNil:[aClass category] ifNotNil:[ownerOrNil]).  "/ category: or privateIn:
 
     newClass isNil ifTrue:[
@@ -22054,6 +22054,8 @@
     ].
     newClass package:(Class packageQuerySignal query).
     ^ newClass
+
+    "Modified: / 22-12-2010 / 18:44:04 / cg"
 !
 
 doMoveMethodsOfClass:aClass fromProject:oldProject toProject:newProject
@@ -44777,11 +44779,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1496 2010-12-22 16:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1496 2010-12-22 16:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1497 2010-12-22 17:44:44 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!