1172 ! |
1172 ! |
1173 |
1173 |
1174 versionBrowseUnloadable |
1174 versionBrowseUnloadable |
1175 |
1175 |
1176 | version snapshot loader unloadables | |
1176 | version snapshot loader unloadables | |
|
1177 |
1177 version := self selectedVersionAsMCVersion. |
1178 version := self selectedVersionAsMCVersion. |
1178 version ifNil:[^self]. |
1179 version ifNil:[^self]. |
1179 snapshot := version snapshot. |
1180 snapshot := version snapshot. |
1180 loader := MCPackageLoader new |
1181 loader := MCPackageLoader new |
1181 installSnapshot: snapshot; |
1182 installSnapshot: snapshot; |
1182 yourself. |
1183 yourself. |
1183 loader analyze. |
1184 loader analyze. |
1184 unloadables := ChangeSet withAll: |
1185 unloadables := ChangeSet new. |
1185 (loader unloadableDefinitions collect: |
1186 loader unloadableDefinitions do: [:def|def addChangesTo:unloadables]. |
1186 [:def|def asChange]). |
|
1187 |
1187 |
1188 (Tools::ChangeSetBrowser2 |
1188 (Tools::ChangeSetBrowser2 |
1189 on: unloadables |
1189 on: unloadables |
1190 label: version info name , ' (unloadable definitions)') |
1190 label: version info name , ' (unloadable definitions)') |
1191 beTwoColumn; |
1191 beTwoColumn; |
1192 targetNamespace:targetNamespace; |
1192 targetNamespace:targetNamespace; |
1193 targetPackage:targetPackage; |
1193 targetPackage:targetPackage; |
1194 open |
1194 open |
1195 |
1195 |
1196 "Modified: / 26-10-2010 / 23:04:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1196 "Modified: / 26-10-2010 / 23:04:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1197 "Modified: / 07-09-2011 / 20:17:15 / cg" |
1197 "Modified: / 07-09-2011 / 20:17:15 / cg" |
1198 ! |
1198 ! |
1199 |
1199 |