# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1345657689 -7200
# Node ID 178288821f0a735984d4813cb8d16d7644e24fff
# Parent  c842e3e6f52659cd0cace75bff44f9d3997116f6
changed: #treeViewClassCategoryChildren

ouch: Set may now contain nil values;
failed here for nil categories

diff -r c842e3e6f526 -r 178288821f0a ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Mon Aug 20 22:06:14 2012 +0200
+++ b/ResourceSelectionBrowser.st	Wed Aug 22 19:48:09 2012 +0200
@@ -661,11 +661,13 @@
 
         cls isPrivate ifFalse:[
             cat := cls category.
-            set := childrenPerCategory at:cat ifAbsent:nil.
-            set isNil ifTrue:[
-                childrenPerCategory at:cat put:(set := IdentitySet new).
+            cat notNil ifTrue:[
+                set := childrenPerCategory at:cat ifAbsent:nil.
+                set isNil ifTrue:[
+                    childrenPerCategory at:cat put:(set := IdentitySet new).
+                ].
+                set add:cls
             ].
-            set add:cls
         ] ifTrue:[
             privateClasses add:cls
         ]
@@ -698,6 +700,8 @@
         ].
         children
     ]
+
+    "Modified: / 22-08-2012 / 19:44:59 / cg"
 !
 
 treeViewClassCategoryIcon