--- a/SettingsDialog.st	Wed Jul 03 23:16:11 2013 +0200
+++ b/SettingsDialog.st	Thu Jul 04 08:54:05 2013 +0200
@@ -595,6 +595,15 @@
     "Modified: / 03-11-2007 / 14:23:16 / cg"
 !
 
+selectedItemsName
+    |sel|
+
+    (sel := self selectedItem value) notNil ifTrue:[
+        ^ sel value nameString
+    ].
+    ^ nil.
+!
+
 showRoot:aBoolean
 
     self applicationList showRoot:aBoolean.
@@ -1301,6 +1310,15 @@
     "Created: / 29-10-2010 / 11:54:13 / cg"
 !
 
+selectItemWithName:aPathString
+    |entry|
+
+    entry := applicationList root
+                recursiveDetect:[:entry | entry nameString = aPathString].
+    entry makeVisible.
+    self selectedItem value:entry
+!
+
 selectionChanged
     |item oldAppl noApp lbl window app itemLabel|
 
@@ -1600,15 +1618,15 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.102 2013-05-21 20:32:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.103 2013-07-04 06:54:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.102 2013-05-21 20:32:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.103 2013-07-04 06:54:05 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: SettingsDialog.st,v 1.102 2013-05-21 20:32:23 cg Exp $'
+    ^ '$Id: SettingsDialog.st,v 1.103 2013-07-04 06:54:05 cg Exp $'
 ! !