--- a/SettingsDialog.st	Tue Feb 24 17:48:41 2004 +0100
+++ b/SettingsDialog.st	Tue Feb 24 17:49:22 2004 +0100
@@ -167,6 +167,10 @@
 expandParents
 
     ^ true
+!
+
+resourcePackName
+    ^ AbstractLauncherApplication resourcePackName
 ! !
 
 !SettingsDialog class methodsFor:'interface specs'!
@@ -602,7 +606,8 @@
 
     (locIcon isNil and:[locClass respondsTo:#defaultIcon]) ifTrue:[ locIcon := locClass defaultIcon].
     applicationLabel := (aName asCollectionOfSubstringsSeparatedBy:$/) last.
-    ^ self createItemName:aName label:applicationLabel class:locClass icon:locIcon expandParent:doExpand replaceExisting:false
+
+    ^ self createItemName:aName label:(resources string:applicationLabel) class:locClass icon:locIcon expandParent:doExpand replaceExisting:false
 !
 
 addIcon:aIcon forCategory:aCategoryName
@@ -878,10 +883,11 @@
 
     " create an application item in my application list 
     "
-    | newItem parent locIcon item|
+    | newItem parentsName parent locIcon item|
 
-    aNameString ~= aLabel ifTrue:[
-        parent := self getItemForName:(aNameString copyTo:(aNameString size - aLabel size - 1)).
+    (aNameString includes:$/) ifTrue:[
+        parentsName := aNameString copyTo:(aNameString lastIndexOf:$/)-1.
+        parent := self getItemForName:parentsName.
     ].
     parent isNil ifTrue:[
         parent := self applicationList root.
@@ -889,7 +895,7 @@
 
     doReplaceExisting ifTrue:[
         parent children notNil ifTrue:[
-            (item := parent children detect:[ :aItem | aItem label = aLabel] ifNone:[nil]) notNil ifTrue:[
+            (item := parent children detect:[ :anItem | anItem nameString = aNameString] ifNone:[nil]) notNil ifTrue:[
                 ^ item.
             ]
         ]
@@ -1289,7 +1295,7 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.47 2004-01-29 23:48:41 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.48 2004-02-24 16:48:52 cg Exp $'
 ! !
 
 SettingsDialog initialize!