class: ResourceSelectionBrowser
changed: #classSelectionUpdate: (send #reversed instead of #reverse)
avoid reverse (which is destructive)
--- a/ResourceSelectionBrowser.st Wed Mar 25 15:12:09 2015 +0100
+++ b/ResourceSelectionBrowser.st Wed Mar 25 15:13:47 2015 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libtool2' }"
+"{ NameSpace: Smalltalk }"
+
SelectionBrowser subclass:#ResourceSelectionBrowser
instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes
allClasses classSelectionBlock'
@@ -812,8 +814,8 @@
|searchArgs nonSuperclasses hierItem|
false "foundClass isPrivate"
- ifFalse: [searchArgs := foundClass withAllSuperclasses reverse]
- ifTrue: [searchArgs := foundClass owningClass withAllSuperclasses reverse.
+ ifFalse: [searchArgs := foundClass withAllSuperclasses reversed]
+ ifTrue: [searchArgs := foundClass owningClass withAllSuperclasses reversed.
searchArgs add: foundClass].
(nonSuperclasses := self treeViewClassHierarchyContents allSuperclasses) notNil
ifTrue: [searchArgs := searchArgs reject: [:cls| nonSuperclasses includes: cls]].