equal
deleted
inserted
replaced
302 label: 'Unload Package...' |
302 label: 'Unload Package...' |
303 itemValue: unloadSelectedModulesPackage |
303 itemValue: unloadSelectedModulesPackage |
304 translateLabel: true |
304 translateLabel: true |
305 ) |
305 ) |
306 (MenuItem |
306 (MenuItem |
307 enabled: canUnloadSelectedDLL |
307 enabled: canUnloadSelectedModule |
308 label: 'Remove Classes && Unload DLL...' |
308 label: 'Remove Classes && Unload DLL...' |
309 itemValue: unloadSelectedModuleAndRemoveClasses |
309 itemValue: unloadSelectedModuleAndRemoveClasses |
310 translateLabel: true |
310 translateLabel: true |
311 ) |
311 ) |
312 (MenuItem |
312 (MenuItem |
313 enabled: canUnloadSelectedModule |
313 enabled: canUnloadSelectedDLL |
314 label: 'Unload DLL...' |
314 label: 'Unload DLL...' |
315 itemValue: unloadSelectedModule |
315 itemValue: unloadSelectedModule |
316 translateLabel: true |
316 translateLabel: true |
317 ) |
317 ) |
318 (MenuItem |
318 (MenuItem |
1349 proper package-deinstallation procedures. Please use this only in repair situations and when the |
1349 proper package-deinstallation procedures. Please use this only in repair situations and when the |
1350 regular unloadPackage operation fails. |
1350 regular unloadPackage operation fails. |
1351 |
1351 |
1352 Continue ?') |
1352 Continue ?') |
1353 ifFalse:[ ^ self ]. |
1353 ifFalse:[ ^ self ]. |
1354 ]. |
1354 handle := module handle. |
1355 handle := module handle. |
1355 ] ifFalse:[ |
|
1356 handle := objectHandles at:self selectedModuleIndex ifAbsent:nil. |
|
1357 ]. |
1356 handle notNil ifTrue:[ |
1358 handle notNil ifTrue:[ |
1357 self |
1359 self |
1358 withWaitCursorDo:[ |
1360 withWaitCursorDo:[ |
1359 self selectedModuleIndexHolder value:nil. |
1361 self selectedModuleIndexHolder value:nil. |
1360 doRemoveClasses ifTrue:[ |
1362 doRemoveClasses ifTrue:[ |