MCRepositoryBrowser.st
changeset 1038 d49c92c18441
parent 1020 bd496f061a73
child 1083 34178d5637ad
--- a/MCRepositoryBrowser.st	Thu Mar 08 00:47:56 2018 +0100
+++ b/MCRepositoryBrowser.st	Thu Mar 08 00:48:02 2018 +0100
@@ -1174,24 +1174,24 @@
 versionBrowseUnloadable
 
      | version snapshot loader unloadables |
+
     version := self selectedVersionAsMCVersion.
     version ifNil:[^self].
     snapshot := version snapshot.
     loader := MCPackageLoader new
-		installSnapshot: snapshot;
-		yourself.
+                installSnapshot: snapshot;
+                yourself.
     loader analyze.
-    unloadables := ChangeSet withAll:
-	(loader unloadableDefinitions collect:
-	    [:def|def asChange]).
+    unloadables := ChangeSet new.
+    loader unloadableDefinitions do: [:def|def addChangesTo:unloadables].
 
     (Tools::ChangeSetBrowser2
-	    on: unloadables
-	    label: version info name  , ' (unloadable definitions)')
-	beTwoColumn;
-	targetNamespace:targetNamespace;
-	targetPackage:targetPackage;
-	open
+            on: unloadables
+            label: version info name  , ' (unloadable definitions)')
+        beTwoColumn;
+        targetNamespace:targetNamespace;
+        targetPackage:targetPackage;
+        open
 
     "Modified: / 26-10-2010 / 23:04:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-09-2011 / 20:17:15 / cg"