[Setools] Fwd: CALL FOR 3.9 Final changes

[Alexandre Bergel]

Thanks Damien, I will correct it  later today.

Alexandre

Am Jul 6, 2006 um 11:50 AM schrieb 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
> _______________________________________________
> Setools mailing list
> Setools at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/mailman/listinfo/setools

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.cs.tcd.ie/Alexandre.Bergel
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.