The Trunk: EToys-nice.41.mcz

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

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

Name: EToys-nice.41
Author: nice
Time: 24 December 2009, 3:05:54 am
UUID: cc186e17-ba38-48f0-90ee-cf7302307e23
Ancestors: EToys-ul.40

Use scaledIdentityHash for hashing

=============== Diff against EToys-ul.40 ===============

Item was changed:
  ----- Method: Player>>recaptureUniqueCostumes (in category 'costume') -----
  recaptureUniqueCostumes
  "Recapture all unique sketch-like costumes. Debugging only."
  | unique |
  costumes ifNil:[^self].
  unique := PluggableSet new
  equalBlock:[:s1 :s2| s1 form == s2 form];
+ hashBlock:[:s| s form scaledIdentityHash].
- hashBlock:[:s| s form identityHash].
  unique addAll: (costumes select:[:c| c isSketchMorph]).
  unique := unique asIdentitySet.
  costumes := costumes select:[:c|
  (c isSketchMorph) not or:[unique includes: c]].
  !