--- a/Launcher.st	Thu Feb 05 19:32:48 1998 +0100
+++ b/Launcher.st	Thu Feb 05 20:11:03 1998 +0100
@@ -4323,40 +4323,51 @@
 openInterface
     "sent by my superclass to open up my interface"
 
+    ^ self openInterfaceAt:nil
+
+    "Modified: / 5.2.1998 / 19:57:39 / cg"
+!
+
+openInterfaceAt:aPoint
+    "sent by my superclass to open up my interface"
+
     |top icn w sz|
 
     "/ if there is already a transcript on my device,
     "/ I am a slave launcher with limited functionality.
 
     Transcript notNil ifTrue:[
-	Transcript ~~ Stderr ifTrue:[
-	    isMainLauncher := (Transcript graphicsDevice == device).
-	] ifFalse:[
-	    isMainLauncher := true
-	]
+        Transcript ~~ Stderr ifTrue:[
+            isMainLauncher := (Transcript graphicsDevice == device).
+        ] ifFalse:[
+            isMainLauncher := true
+        ]
     ] ifFalse:[
-	isMainLauncher := true
+        isMainLauncher := true
     ].
 
     top := StandardSystemView onDevice:device.
     top label:'Smalltalk/X'; iconLabel:'ST/X Launcher'.
     top extent:(400@300 ).
+    aPoint notNil ifTrue:[
+        top origin:aPoint
+    ].
 
     icn := self class aboutIcon.
     icn notNil ifTrue:[
-	icn := icn magnifiedTo:(sz := device preferredIconSize).
+        icn := icn magnifiedTo:(sz := device preferredIconSize).
     ].
 
     icn notNil ifTrue:[
-	(device supportsDeepIcons not
-	and:[device supportsIconViews
-	and:[device depth > 1]]) ifTrue:[    
-	    w := View extent:sz. 
-	    w viewBackground:icn.
-	    top iconView:w
-	] ifFalse:[
-	    top icon:icn.
-	]
+        (device supportsDeepIcons not
+        and:[device supportsIconViews
+        and:[device depth > 1]]) ifTrue:[    
+            w := View extent:sz. 
+            w viewBackground:icn.
+            top iconView:w
+        ] ifFalse:[
+            top icon:icn.
+        ]
     ].
 
 "/    device supportsDeepIcons ifTrue:[
@@ -4390,11 +4401,14 @@
     top openWithPriority:(Processor userSchedulingPriority + 1).
 
     OpenLaunchers isNil ifTrue:[
-	OpenLaunchers := OrderedCollection new.
+        OpenLaunchers := OrderedCollection new.
     ].
     OpenLaunchers add:self.
 
-    "Modified: 13.1.1997 / 23:30:22 / cg"
+    ^ builder
+
+    "Created: / 5.2.1998 / 19:43:44 / cg"
+    "Modified: / 5.2.1998 / 20:08:58 / cg"
 !
 
 release
@@ -4913,7 +4927,7 @@
      for now (since style & language settings currently do
      not affect living views ...)"
 
-    |contents fontPref enc newLauncher|
+    |contents fontPref enc builder newLauncher|
 
 "/ moved the stuff below to the language-setting
 "/ dialog (ask before changing the language, to have
@@ -4929,11 +4943,12 @@
 "/    ].
 
     contents := transcript endEntry; list.
-    newLauncher := self class open.
-    newLauncher window waitUntilVisible.
+    builder := self class openAt:(self window origin).
+    builder window waitUntilVisible.
+    newLauncher := builder application.
     newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor
 
-    "Modified: 8.1.1997 / 15:00:15 / cg"
+    "Modified: / 5.2.1998 / 20:09:50 / cg"
 !
 
 saveAllViews
@@ -4982,5 +4997,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.314 1998-02-05 18:32:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.315 1998-02-05 19:11:03 cg Exp $'
 ! !