MCRepositoryBrowser.st
branchjv
changeset 994 73e11bcc0ff1
parent 993 331ce2db4c82
child 1004 e48adfaf3541
--- a/MCRepositoryBrowser.st	Thu Apr 30 21:31:08 2015 +0200
+++ b/MCRepositoryBrowser.st	Thu Apr 30 21:53:12 2015 +0200
@@ -1252,6 +1252,9 @@
         "/ Sort so that class definitions are first and
         "/ class removals last.
         diffCS sort:[ :a :b | (a isClassDefinitionChange and:[b isClassDefinitionChange not]) or:[ a isClassRemoveChange not  and:[ b isClassRemoveChange ] ] ].
+        "/ Set the package so when applied, the change goes to the 
+        "/ correct package (if not overriden by 'target package'.
+        diffCS do:[:each | each package: package ].
 
         diffCS name: (resources string: 'Diffs between %1 (MC version) and %2 (in image)' with: version info name with: package).
         (Tools::ChangeSetBrowser2 on: diffCS)
@@ -1263,7 +1266,7 @@
             open       
     ].
 
-    "Modified: / 30-04-2015 / 21:23:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-04-2015 / 21:53:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 versionInspect