The Trunk: Tools-ul.169.mcz

Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.169.mcz

==================== Summary ====================

Name: Tools-ul.169
Author: ul
Time: 5 February 2010, 11:07:16.941 pm
UUID: f99581d5-242e-bf4b-837c-eeeeb7c7821b
Ancestors: Tools-cmm.168

- don't use #asSortedCollection: for sorting

=============== Diff against Tools-cmm.168 ===============

Item was changed:
  ----- Method: MessageSet>>filterToPackage (in category 'filtering') -----
  filterToPackage
 
  | packages packageMenu selectedIndex selectedPackage |
 
+ packages := (PackageOrganizer default packages sort: [ :a :b |
+ a packageName <= b packageName ]).
- packages := (PackageOrganizer default packages asSortedCollection: [ :a :b | a packageName <= b packageName ]) asOrderedCollection.
 
  packageMenu := PopUpMenu labelArray: (packages collect:[:each | each packageName]).
 
  selectedIndex := packageMenu startUpWithCaption: 'Select a package...'.
  selectedIndex isZero ifTrue:[^ self].
 
  selectedPackage := packages at: selectedIndex.
  self filterFrom: [:aClass :aSelector | selectedPackage includesMethod: aSelector ofClass: aClass ]
  !