--- a/SettingsDialog.st	Wed Nov 10 10:06:28 2004 +0100
+++ b/SettingsDialog.st	Wed Nov 10 13:19:28 2004 +0100
@@ -454,6 +454,14 @@
     "set the value of the instance variable 'requestor' (automatically generated)"
 
     requestor := something.
+!
+
+rootItemLabel:aString
+    self applicationList root label:aString.
+!
+
+showRoot:aBoolean
+    self applicationList showRoot:aBoolean
 ! !
 
 !SettingsDialog methodsFor:'actions'!
@@ -1160,7 +1168,7 @@
     rootItem label:(resources string:'Settings') "allBold".
     rootItem nameString:'Settings'.
     rootItem icon:self class settingsIcon.
-    self applicationList root:rootItem; showRoot:true.
+    self applicationList root:rootItem; showRoot:true "false".
     self selectedItem value:rootItem.
     super initialize.
 !
@@ -1318,7 +1326,7 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.57 2004-09-15 15:35:49 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.58 2004-11-10 12:19:28 cg Exp $'
 ! !
 
 SettingsDialog initialize!