class: SettingsDialog
authorClaus Gittinger <cg@exept.de>
Wed, 11 Sep 2013 13:51:33 +0200
changeset 13545 24be05e04a97
parent 13544 9a6069a18d4e
child 13546 e76cba69980d
class: SettingsDialog changed: #selectItemWithClass: #selectItemWithName: care for item not being present
SettingsDialog.st
--- a/SettingsDialog.st	Tue Sep 10 20:29:57 2013 +0200
+++ b/SettingsDialog.st	Wed Sep 11 13:51:33 2013 +0200
@@ -1312,8 +1312,10 @@
 
     entry := applicationList root
                 recursiveDetect:[:entry | entry applicationClass = aClass].
-    entry makeVisible.
-    self selectedItem value:entry
+    entry notNil ifTrue:[
+        entry makeVisible.
+        self selectedItem value:entry
+    ].
 
     "Created: / 29-10-2010 / 11:54:13 / cg"
 !
@@ -1323,8 +1325,10 @@
 
     entry := applicationList root
                 recursiveDetect:[:entry | entry nameString = aPathString].
-    entry makeVisible.
-    self selectedItem value:entry
+    entry notNil ifTrue:[
+        entry makeVisible.
+        self selectedItem value:entry
+    ].
 !
 
 selectionChanged
@@ -1630,11 +1634,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.108 2013-08-19 16:02:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.109 2013-09-11 11:51:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.108 2013-08-19 16:02:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.109 2013-09-11 11:51:33 cg Exp $'
 ! !