--- a/Launcher.st	Thu Feb 05 19:29:10 1998 +0100
+++ b/Launcher.st	Thu Feb 05 19:32:48 1998 +0100
@@ -134,12 +134,6 @@
 
 !Launcher class methodsFor:'accessing'!
 
-openLaunchers
-    "return all opened launchers"
-
-    ^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)
-!
-
 current
     "return the launcher running on the current screen.
      (for access via addMenu/ removeMenu)"
@@ -157,6 +151,12 @@
 
     "Modified: 5.7.1996 / 17:55:28 / cg"
     "Modified: 9.9.1996 / 22:41:36 / stefan"
+!
+
+openLaunchers
+    "return all opened launchers"
+
+    ^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)
 ! !
 
 !Launcher class methodsFor:'defaults'!
@@ -587,12 +587,6 @@
     "Modified: 8.1.1997 / 14:47:31 / cg"
 !
 
-startNewLauncher
-    "open a real new launcher"
-
-    NewLauncher open
-!
-
 startSystemBrowser
     "open a systemBrowser"
 
@@ -3274,6 +3268,14 @@
     "Created: 25.7.1997 / 10:56:30 / cg"
 !
 
+startNewLauncher
+    "open a real new launcher"
+
+    NewLauncher openAt:(self window origin)
+
+    "Modified: / 5.2.1998 / 19:31:41 / cg"
+!
+
 startStopEventTrace
     "start/stop event tracing for a particular view"
 
@@ -4980,5 +4982,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.313 1998-01-29 20:43:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.314 1998-02-05 18:32:48 cg Exp $'
 ! !