[Setools] Fwd: CALL FOR 3.9 Final changes

[Damien Cassou]

First file: OBFixFindClass.3


Your enhancement doesn't work if I use lowercases for my classes. For 
example, using 'object' does not place 'Object' on top of the list.


Here is your version:

(classNames includes: pattern)
   ifTrue: [classNames := (Array with: pattern), classNames].



Here is a possible correction:

(classNames
     detect: [:nm | nm asString asLowercase = pattern asLowercase]
     ifNone: [nil])
   ifNotNilDo: [:nm | classNames _ (Array with: nm), classNames].


Bye