SettingsDialog.st
branchjv
changeset 13180 64a4186ddfce
parent 12807 ba8c5416aa28
parent 13116 9e874b8306a7
child 13330 02d6c2d848a0
--- a/SettingsDialog.st	Tue Jul 02 01:07:51 2013 +0100
+++ b/SettingsDialog.st	Tue Jul 09 22:52:27 2013 +0100
@@ -61,8 +61,14 @@
 "
     This is an application which presents a hierarchy of settings applications.
     It is used (among others) in the launcher's and filebrowser's settings-dialogs.
-    However, it is rather generic and can be setup for any applications setting dialog
-    See class>>examples for more info.
+
+    However, it is rather generic and can be setup for any application's setting dialog.
+    The actual contents (i.e. the arganization tree and tab contents) is provided
+    by a spec-array (the settingsList).
+    You will find a default settings list here, but in theory, applications may provide
+    their own one, or modify a copy of that list for specialized settings dialogs.
+    See class >> examples, #defaultSettingsApplicationList
+    and AbstractLauncherApplication >> settingsList for more info.
 
     [author:]
         Christian Penk, eXept Software AG
@@ -612,6 +618,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.
@@ -1318,6 +1333,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|
 
@@ -1766,11 +1790,11 @@
 !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.106 2013-07-05 09:08:25 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.106 2013-07-05 09:08:25 cg Exp $'
 !
 
 version_HG