--- a/SettingsDialog.st	Wed Jul 09 13:36:17 2003 +0200
+++ b/SettingsDialog.st	Wed Jul 09 13:46:45 2003 +0200
@@ -413,6 +413,15 @@
 
 !SettingsDialog methodsFor:'actions'!
 
+changeLabelTo:aLabel application:aApplication
+
+    | item |
+
+    item := self getItemByApplication:aApplication.
+    item label:aLabel.
+    item changed.
+!
+
 destroyAll
 
     self applicationList do:[ : applItem |
@@ -609,15 +618,22 @@
 
 getAllChildrenAppsForApplication:aApplication 
 
-    ^ self getAllChildrenAppsForApplication:aApplication childrenClass:nil
+    ^ self getAllChildrenAppsForApplication:aApplication matchBlock:nil
 !
 
 getAllChildrenAppsForApplication:aApplication childrenClass:aClass
 
+    | matchBlock |
+    matchBlock := [:aSubApplication| aSubApplication class == aClass].
+    ^ self getAllChildrenAppsForApplication:aApplication matchBlock:matchBlock
+!
+
+getAllChildrenAppsForApplication:aApplication matchBlock:aMatchBlock
+
     | children |
     children := self getAllChildrenByApplication:aApplication.
-    aClass notNil ifTrue:[
-        children := children select:[:aChild | aChild application class == aClass]
+    aMatchBlock notNil ifTrue:[
+        children := children select:[:aChild | aMatchBlock value:(aChild application)]
     ].
     ^ children collect:[:item | item application].
 !
@@ -995,7 +1011,7 @@
     window notNil ifTrue:[
         lbl := 'Settings Dialog'.
         item notNil ifTrue:[
-            lbl := lbl , ' [', item label , ']'.
+            lbl := lbl , ' [', (item label copyReplaceAll:(Character cr) with:(Character space)), ']'.
         ].
         window label:lbl.
     ].
@@ -1006,7 +1022,7 @@
     (app := item application) isNil ifTrue:[
         item application:(app := item applicationClass basicNew).
         app basicInitialize.
-        app requestor:self.
+        app settingsDialog:self.
     ].
     app initialize.
     app readSettings.
@@ -1201,7 +1217,7 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.30 2003-05-15 16:11:43 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.31 2003-07-09 11:46:45 penk Exp $'
 ! !
 
 SettingsDialog initialize!