The Trunk: Kernel-nice.307.mcz

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.307.mcz

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

Name: Kernel-nice.307
Author: nice
Time: 29 November 2009, 9:53:32 am
UUID: 32793c3c-4bcd-4323-9c9a-277b9345634e
Ancestors: Kernel-nice.306

http://bugs.squeak.org/view.php?id=7218
ClassOrganizer categories breaks if given an empty array
because categoryStops gets set to #() when it should be at least #(0)

=============== Diff against Kernel-nice.306 ===============

Item was changed:
  ----- Method: Categorizer>>categories: (in category 'accessing') -----
+ categories: anArray
- categories: anArray
  "Reorder my categories to be in order of the argument, anArray. If the
  resulting organization does not include all elements, then give an error."
 
  | newCategories newStops newElements catName list runningTotal |
+
+ anArray size < 2 ifTrue: [ ^ self ].
+
  newCategories := Array new: anArray size.
  newStops := Array new: anArray size.
  newElements := Array new: 0.
  runningTotal := 0.
  1 to: anArray size do:
  [:i |
  catName := (anArray at: i) asSymbol.
  list := self listAtCategoryNamed: catName.
  newElements := newElements, list.
  newCategories at: i put: catName.
  newStops at: i put: (runningTotal := runningTotal + list size)].
  elementArray do:
  [:element | "check to be sure all elements are included"
  (newElements includes: element)
  ifFalse: [^self error: 'New categories must match old ones']].
  "Everything is good, now update my three arrays."
  categoryArray := newCategories.
  categoryStops := newStops.
  elementArray := newElements!