--- a/ChangeSet.st Mon Jul 08 03:25:19 2013 +0000
+++ b/ChangeSet.st Mon Jul 08 10:40:55 2013 +0200
@@ -3811,7 +3811,7 @@
!
version_SVN
- ^ '$Id: ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+ ^ '$Id: ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
! !
!ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'instance creation'!
@@ -4096,16 +4096,7 @@
!
changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg
- "set instance variables (automatically generated)"
-
- changed := changedArg.
- changed isNil ifTrue:[changed := OrderedCollection new].
-
- onlyInReceiver := onlyInReceiverArg.
- onlyInReceiver isNil ifTrue:[onlyInReceiver := ChangeSet new].
-
- onlyInArg := onlyInArgArg.
- onlyInArg isNil ifTrue:[onlyInArg := ChangeSet new].
+ self changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg same:nil
!
changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg same: sameArg
@@ -4484,11 +4475,11 @@
!ChangeSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
!
version_HG
@@ -4497,6 +4488,6 @@
!
version_SVN
- ^ '$Id: ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+ ^ '$Id: ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
! !