--- 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"