--- a/SettingsDialog.st	Tue Jul 01 12:59:46 2014 +0200
+++ b/SettingsDialog.st	Tue Jul 01 21:51:34 2014 +0200
@@ -593,6 +593,33 @@
       )
 ! !
 
+!SettingsDialog class methodsFor:'startup'!
+
+openWithList:settingsList label:label
+    ^ self 
+        openWithList:settingsList 
+        label:label 
+        initialSettingsClass:nil
+!
+
+openWithList:settingsList label:label initialSettingsClass:settingsClassToSelectOrNil
+    "given a list of page-label/class pairs,
+     open a settings dialog showing that set of items."
+
+    |settingsApp|
+
+    settingsApp := SettingsDialog new.
+    settingsApp installSettingsEntries:settingsList.
+    settingsApp allButOpen.
+    settingsApp showRoot: false.
+    settingsApp window label:label.
+    settingsClassToSelectOrNil notNil ifTrue:[
+        settingsApp selectItemWithClass: settingsClassToSelectOrNil.
+    ].
+    settingsApp openWindow.
+    ^ settingsApp
+! !
+
 !SettingsDialog methodsFor:'accessing'!
 
 requestor
@@ -1877,11 +1904,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.118 2014-06-08 07:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.119 2014-07-01 19:51:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.118 2014-06-08 07:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.119 2014-07-01 19:51:34 cg Exp $'
 ! !