--- a/SettingsDialog.st Wed Sep 15 13:34:48 2004 +0200
+++ b/SettingsDialog.st Wed Sep 15 13:37:49 2004 +0200
@@ -52,9 +52,11 @@
!
documentation
-
"
- This is an application which presents a hierarchy of settings applications
+ 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.
[author:]
Christian Penk, eXept Software AG
@@ -1139,6 +1141,7 @@
See also #closeDownViews, which is invoked when the close is really done."
| req |
+
(self sendSaveRequestToCurrent == false) ifTrue:[^ self].
self destroyAll.
@@ -1150,7 +1153,6 @@
!
initialize
-
|rootItem|
resources := AbstractLauncherApplication resources.
@@ -1158,19 +1160,16 @@
rootItem label:(resources string:'Settings') "allBold".
rootItem nameString:'Settings'.
rootItem icon:self class settingsIcon.
- self applicationList root:rootItem.
- self applicationList showRoot:true.
+ self applicationList root:rootItem; showRoot:true.
self selectedItem value:rootItem.
super initialize.
!
postBuildSubCanvas:aWidget
-
aWidget keepClientView:true.
!
postOpenWith:aBuilder
-
self applicationList root expand.
super postOpenWith:aBuilder.
! !
@@ -1319,7 +1318,7 @@
!SettingsDialog class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.54 2004-08-15 17:40:41 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.55 2004-09-15 11:37:49 cg Exp $'
! !
SettingsDialog initialize!