ClassBuilder.st
changeset 14942 acdd330aaa60
parent 14670 2d8d5c7a5898
child 15028 d0df38bbcad1
child 18040 a11a12546f23
--- a/ClassBuilder.st	Mon Mar 25 01:51:53 2013 +0100
+++ b/ClassBuilder.st	Mon Mar 25 13:13:09 2013 +0100
@@ -2011,7 +2011,11 @@
     ].
     pkg notNil ifTrue:[
 "/ Transcript showCR:('set package of class: ' , newClass name , ' to ' , pkg printString).
-        newClass package:pkg.
+        oldPkg = pkg ifTrue:[
+            newClass setPackage:pkg "/ does not produce update requests...
+        ] ifFalse:[
+            newClass package:pkg.
+        ]
     ].
 
     "Modified: / 29-09-2011 / 15:58:56 / cg"
@@ -2366,11 +2370,11 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.118 2013-01-18 20:56:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.119 2013-03-25 12:13:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.118 2013-01-18 20:56:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.119 2013-03-25 12:13:09 cg Exp $'
 ! !