--- a/AbstractLauncherApplication.st	Mon Jun 14 20:42:23 2004 +0200
+++ b/AbstractLauncherApplication.st	Mon Jun 14 20:42:42 2004 +0200
@@ -718,13 +718,16 @@
         ].
         OpenSettingsDialog := nil.
     ].
+
     settingsApp := SettingsDialog new.
     settingsApp requestor:self.
 
     settingsApp installSettingsEntries:self class settingsList.
     settingsApp requestor:self.
     OpenSettingsDialog := settingsApp.
-    settingsApp open.
+    settingsApp allButOpen.
+    settingsApp window label:'ST/X Settings'.
+    settingsApp openWindow.
 !
 
 settingsClosed
@@ -6432,5 +6435,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.308 2004-04-15 08:42:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.309 2004-06-14 18:42:42 cg Exp $'
 ! !