# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1201253323 -3600
# Node ID 06ada9ab1a8a2dc4a4e04d1a43a844eee3e6d80c
# Parent  a282d11e1ec47bafdc01918615c2e3756ae9905c
*** empty log message ***

diff -r a282d11e1ec4 -r 06ada9ab1a8a Tools__ObjectModuleInformation.st
--- 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