[squeak-dev] The Trunk: MorphicExtras-eem.43.mcz

Andreas Raab uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-eem.43.mcz

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

Name: MorphicExtras-eem.43
Author: eem
Time: 21 August 2009, 4:26:10 am
UUID: 8b3369f7-e934-4eba-a99a-0903c27741a9
Ancestors: MorphicExtras-ar.42

Speedup CommandHistory class>>resetAllHistory effectively by using MorphExtension allInstances instead of allObjectsDo:.  Shaves a few tenths of a second from start-up time of a typical image.

=============== Diff against MorphicExtras-ar.42 ===============

Item was changed:
  ----- Method: CommandHistory class>>resetAllHistory (in category 'system startup') -----
  resetAllHistory
  "Reset all command histories, and make all morphs that might be holding on to undo-grab-commands forget them"
 
  self allInstancesDo: [:c | c resetCommandHistory].
+ MorphExtension withAllSubclassesDo:
+ [:mexc|
+ self forgetAllGrabCommandsFrom: mexc someInstance]
- self forgetAllGrabCommandsFrom: self someObject.
 
  "CommandHistory resetAllHistory"
  !

Item was changed:
  ----- Method: CommandHistory class>>forgetAllGrabCommandsFrom: (in category 'system startup') -----
+ forgetAllGrabCommandsFrom: starterInstance
- forgetAllGrabCommandsFrom: starter
  "Forget all the commands that might be held on to in the properties dicitonary of various morphs for various reasons."
 
+ | object |
+ object := starterInstance.
- | object lastObject |
- object := starter.
- lastObject := Object new.
  [
+ [nil == object] whileFalse: [
+ object removeProperty: #undoGrabCommand.
+ object := object nextInstance].
- [lastObject == object] whileFalse: [
- object isMorph ifTrue: [object removeProperty: #undoGrabCommand].
- object := object nextObject].
  ] ifError: [:err :rcvr | "object is obsolete"
+ self forgetAllGrabCommandsFrom: object nextInstance].
- self forgetAllGrabCommandsFrom: object nextObject].
 
+ "CommandHistory forgetAllGrabCommandsFrom: MorphExtension someInstance"
- "CommandHistory forgetAllGrabCommandsFrom: true someObject"
  !