changed: #treeViewClassCategoryChildren
ouch: Set may now contain nil values;
failed here for nil categories
--- 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