--- a/SettingsDialog.st	Fri Oct 29 10:24:22 2010 +0200
+++ b/SettingsDialog.st	Fri Oct 29 12:00:48 2010 +0200
@@ -1154,6 +1154,17 @@
     self enableReload value:(changedObject value).
 !
 
+selectItemWithClass:aClass
+    |entry|
+
+    entry := applicationList root
+                recursiveDetect:[:entry | entry applicationClass = aClass].
+    entry makeVisible.
+    self selectedItem value:entry
+
+    "Created: / 29-10-2010 / 11:54:13 / cg"
+!
+
 selectionChanged
     |item oldAppl noApp lbl window app itemLabel|
 
@@ -1165,9 +1176,7 @@
             lastSelection notNil ifTrue:[
             self
                 enqueueMessage:#value 
-                for:[
-                        self selectedItem value:lastSelection.
-                    ]
+                for:[ self selectedItem value:lastSelection ]
                 arguments:#().
             ].
             ^ self
@@ -1235,7 +1244,7 @@
     self subCanvasApplicationHolder value:app.
     self modifiedChanged.
 
-    "Modified: / 25-01-2007 / 17:16:51 / cg"
+    "Modified: / 29-10-2010 / 11:51:13 / cg"
 !
 
 update:something with:aParameter from:changedObject
@@ -1451,11 +1460,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.89 2010-10-27 09:40:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.90 2010-10-29 10:00:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.89 2010-10-27 09:40:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.90 2010-10-29 10:00:48 cg Exp $'
 ! !
 
 SettingsDialog initialize!