--- 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