# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1427292827 -3600
# Node ID d0f01dc022bbd52fe1a11f11bfd070293cf0fd54
# Parent  239fe0968d064664d87e20d297d445ce95609b6c
class: ResourceSelectionBrowser
changed: #classSelectionUpdate: (send #reversed instead of #reverse)
avoid reverse (which is destructive)

diff -r 239fe0968d06 -r d0f01dc022bb ResourceSelectionBrowser.st
--- 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]].