SettingsDialog.st
branchjv
changeset 13609 8b400fde34ef
parent 13356 51a964477563
parent 13545 24be05e04a97
child 15566 184cea584be5
--- a/SettingsDialog.st	Tue Sep 17 11:25:54 2013 +0100
+++ b/SettingsDialog.st	Thu Sep 19 10:20:29 2013 +0100
@@ -1329,8 +1329,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"
 !
@@ -1340,8 +1342,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
@@ -1629,8 +1633,6 @@
     aGCOrStream nextPut:$].
 !
 
-
-
 printOn:aStream
     aStream 
         nextPutAll:self class nameWithoutPrefix;
@@ -1638,9 +1640,7 @@
     self label printOn:aStream.
 
     "Created: / 24-08-2010 / 18:36:17 / sr"
-!
-
- !
+! !
 
 !SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'queries'!
 
@@ -1800,11 +1800,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 $'
 !
 
 version_HG