--- 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 $'
! !