[Pkg] The Trunk: MorphicExtras-ul.99.mcz

[commits at source.squeak.org]

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

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

Name: MorphicExtras-ul.99
Author: ul
Time: 12 February 2011, 1:20:44.981 am
UUID: fa71f495-409b-8b43-8ca3-592083c75a5d
Ancestors: MorphicExtras-nice.98

- clean up undo commands from Command class >> #cleanUp

=============== Diff against MorphicExtras-nice.98 ===============

Item was added:
+ ----- Method: Command class>>cleanUp (in category 'as yet unclassified') -----
+ cleanUp
+ 
+ 	MorphExtension allInstancesDo: [ :each | each removeUndoCommands ]!

Item was added:
+ ----- Method: MorphExtension>>removeUndoCommands (in category '*MorphicExtras-Undo') -----
+ removeUndoCommands
+ 
+ 	| keysToBeRemoved |
+ 	otherProperties ifNil: [ ^self ].
+ 	otherProperties keysAndValuesDo: [ :key :value |
+ 		value class == Command ifTrue: [
+ 			(keysToBeRemoved ifNil: [
+ 				keysToBeRemoved := OrderedCollection new ]) add: key ] ].
+ 	keysToBeRemoved ifNil: [ ^self ].
+ 	keysToBeRemoved do: [ :each |
+ 		self removeProperty: each ]
+ 	!