--- 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 $'
! !