--- a/AbstractLauncherApplication.st	Wed Sep 06 17:33:39 2000 +0200
+++ b/AbstractLauncherApplication.st	Wed Sep 06 18:06:50 2000 +0200
@@ -60,6 +60,19 @@
 
 !AbstractLauncherApplication class methodsFor:'accessing'!
 
+closeAllLaunchers
+    "close all opened launchers"
+
+    self openLaunchers copy do:[:eachLauncher |
+        eachLauncher closeRequest
+    ].
+
+    "
+     self closeAllLaunchers.
+     NewLauncher open
+    "
+!
+
 current
     "return the launcher running on the current screen.
      (for access via addMenu/ removeMenu)"
@@ -67,17 +80,17 @@
     |currentScreen|
 
     OpenLaunchers size > 0 ifTrue:[
-	currentScreen := Screen current.
-	OpenLaunchers do:[:aLauncher |
-	    aLauncher graphicsDevice == currentScreen ifTrue:[
-		^ aLauncher
-	    ]
-	]
+        currentScreen := Screen current.
+        OpenLaunchers do:[:aLauncher |
+            aLauncher graphicsDevice == currentScreen ifTrue:[
+                ^ aLauncher
+            ]
+        ]
     ].
     ^ nil.
 
     "
-     Launcher current
+     NewLauncher current
     "
 
     "Modified: / 9.9.1996 / 22:41:36 / stefan"
@@ -5615,5 +5628,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.115 2000-09-06 15:33:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.116 2000-09-06 16:06:50 cg Exp $'
 ! !