[etoys-dev] Etoys: MorphicExtras-bf.15.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-bf.15.mcz

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

Name: MorphicExtras-bf.15
Author: bf
Time: 5 September 2010, 1:35:36 am
UUID: ff53d4c2-c1d3-4d9a-98da-7da959065e64
Ancestors: MorphicExtras-bf.14

Fix reverting book pages. Needed for the castle tutorial (SQ-752)

=============== Diff against MorphicExtras-bf.14 ===============

Item was changed:
  ----- Method: BookMorph>>markForRevert: (in category 'new reverting') -----
  markForRevert: page
  	"Save the current page for future revert."
  
  	| key revertPage revertDict |
  	page setProperty: #revertMarked toValue: true.
  
  	revertDict _ self pagesForRevert.
  
  	key _ page valueOfProperty: #revertKey ifAbsent: [0].
  	revertPage := revertDict at: key ifAbsent: [nil].
  	(key = 0 or: [revertPage isNil])
  		ifTrue:
+ 			[key := pages inject: 0 into:
+ 				[:max :p | max max: (p  valueOfProperty: #revertKey ifAbsent: [0]) + 1].
- 			[key := revertDict ifEmpty: [1] ifNotEmpty: [revertDict keys max + 1].
  			page setProperty: #revertKey toValue: key.
  			revertDict at: key put: page copy]
  		ifFalse:
  			[
  			self deletePageAlongWithPlayers: revertPage.
  			revertDict at: key put: page copy]!

Item was changed:
  ----- Method: BookMorph>>prepareToBeSaved (in category 'fileIn/out') -----
  prepareToBeSaved
  
  	super prepareToBeSaved.
  	self removeProperty: #pagesForRevert.
+ 	pages do: [:p | p removeProperty: #revertKey].
  !