equal
deleted
inserted
replaced
952 self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO' |
952 self openHTMLDocument: 'tools/misc/TOP.html#MODULEINFO' |
953 |
953 |
954 "Modified: / 05-10-2007 / 13:11:45 / cg" |
954 "Modified: / 05-10-2007 / 13:11:45 / cg" |
955 ! |
955 ! |
956 |
956 |
957 unloadModule |
957 unloadSelectedModule |
958 self unloadModuleRemoveClasses:false |
958 self unloadSelectedModuleRemoveClasses:false |
959 ! |
959 ! |
960 |
960 |
961 unloadModuleAndRemoveClasses |
961 unloadSelectedModuleAndRemoveClasses |
962 self unloadModuleRemoveClasses:true |
962 self unloadSelectedModuleRemoveClasses:true |
963 ! |
963 ! |
964 |
964 |
965 unloadModuleRemoveClasses:doRemoveClasses |
965 unloadSelectedModuleRemoveClasses:doRemoveClasses |
966 self withWaitCursorDo:[ |
966 self withWaitCursorDo:[ |
967 |info idx handle pathName| |
967 |info idx handle pathName| |
968 |
968 |
969 info := self selectedModuleInfo. |
969 info := self selectedModuleInfo. |
|
970 handle := objectHandles at:(self selectedModuleIndex). |
970 self selectedModuleIndexHolder value:nil. |
971 self selectedModuleIndexHolder value:nil. |
971 handle := objectHandles at:(self selectedModuleIndex). |
|
972 |
972 |
973 info isNil ifTrue:[ |
973 info isNil ifTrue:[ |
974 "/ selected a method |
974 "/ selected a method |
975 "/ idx := idx - allModules size. |
975 "/ idx := idx - allModules size. |
976 pathName := handle pathName. |
976 pathName := handle pathName. |