SettingsDialog.st
changeset 6019 001740075800
parent 5975 462953ce9f9a
child 6020 ccf97fc9c1e8
--- 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!