--- a/Launcher.st	Sun Aug 09 16:25:43 1998 +0200
+++ b/Launcher.st	Mon Aug 10 11:34:17 1998 +0200
@@ -5275,55 +5275,51 @@
 
     unloadButton := Button label:(resources string:'unload').
     unloadButton action:[
-        self withWaitCursorDo:[
-            box withWaitCursorDo:[
-                |info idx pathName|
-
-                idx := list1 selectionIndex.
-                info := allModules at:idx ifAbsent:nil.
-
-                list1 selectionIndex:nil.
-
-                info isNil ifTrue:[
-                    "/ selected a method
-                    "/ idx := idx - allModules size.
-                    pathName := (handles at:idx) pathName.
-
-                ] ifFalse:[
-                    "/ selected a package
-                    pathName := info pathName.
-                ].
-                ObjectFileLoader unloadObjectFile:pathName.
-                moduleListUpdater value.
-                unloadButton disable.
-            ]
+        box withWaitCursorDo:[
+            |info idx pathName|
+
+            idx := list1 selectionIndex.
+            info := allModules at:idx ifAbsent:nil.
+
+            list1 selectionIndex:nil.
+
+            info isNil ifTrue:[
+                "/ selected a method
+                "/ idx := idx - allModules size.
+                pathName := (handles at:idx) pathName.
+
+            ] ifFalse:[
+                "/ selected a package
+                pathName := info pathName.
+            ].
+            ObjectFileLoader unloadObjectFile:pathName.
+            moduleListUpdater value.
+            unloadButton disable.
         ]
     ].
 
     unloadAndRemoveButton := Button label:(resources string:'remove classes & unload').
     unloadAndRemoveButton action:[
-        self withWaitCursorDo:[
-            box withWaitCursorDo:[
-                |info idx pathName|
-
-                idx := list1 selectionIndex.
-                info := allModules at:idx ifAbsent:nil.
-
-                list1 selectionIndex:nil.
-
-                info isNil ifTrue:[
-                    "/ selected a method
-                    "/ idx := idx - allModules size.
-                    pathName := (handles at:idx) pathName.
-
-                ] ifFalse:[
-                    "/ selected a package
-                    pathName := info pathName.
-                ].
-                ObjectFileLoader unloadObjectFileAndRemoveClasses:pathName.
-                moduleListUpdater value.
-                unloadAndRemoveButton disable.
-            ]
+        box withWaitCursorDo:[
+            |info idx pathName|
+
+            idx := list1 selectionIndex.
+            info := allModules at:idx ifAbsent:nil.
+
+            list1 selectionIndex:nil.
+
+            info isNil ifTrue:[
+                "/ selected a method
+                "/ idx := idx - allModules size.
+                pathName := (handles at:idx) pathName.
+
+            ] ifFalse:[
+                "/ selected a package
+                pathName := info pathName.
+            ].
+            ObjectFileLoader unloadObjectFileAndRemoveClasses:pathName.
+            moduleListUpdater value.
+            unloadAndRemoveButton disable.
         ]
     ].
 
@@ -5349,7 +5345,7 @@
 
     "Modified: / 17.9.1995 / 16:47:50 / claus"
     "Created: / 31.7.1998 / 15:49:45 / cg"
-    "Modified: / 31.7.1998 / 20:06:32 / cg"
+    "Modified: / 10.8.1998 / 11:33:22 / cg"
 ! !
 
 !Launcher::LauncherDialogs class methodsFor:'dialogs-private'!
@@ -5625,5 +5621,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.366 1998-08-04 15:15:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.367 1998-08-10 09:34:17 cg Exp $'
 ! !