--- a/Tools__ObjectModuleInformation.st Fri Jan 25 10:12:18 2008 +0100
+++ b/Tools__ObjectModuleInformation.st Fri Jan 25 10:28:43 2008 +0100
@@ -954,21 +954,21 @@
"Modified: / 05-10-2007 / 13:11:45 / cg"
!
-unloadModule
- self unloadModuleRemoveClasses:false
+unloadSelectedModule
+ self unloadSelectedModuleRemoveClasses:false
!
-unloadModuleAndRemoveClasses
- self unloadModuleRemoveClasses:true
+unloadSelectedModuleAndRemoveClasses
+ self unloadSelectedModuleRemoveClasses:true
!
-unloadModuleRemoveClasses:doRemoveClasses
+unloadSelectedModuleRemoveClasses:doRemoveClasses
self withWaitCursorDo:[
|info idx handle pathName|
info := self selectedModuleInfo.
+ handle := objectHandles at:(self selectedModuleIndex).
self selectedModuleIndexHolder value:nil.
- handle := objectHandles at:(self selectedModuleIndex).
info isNil ifTrue:[
"/ selected a method