[etoys-dev] Etoys: MorphicExtras-kfr.32.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.32.mcz

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

Name: MorphicExtras-kfr.32
Author: kfr
Time: 10 October 2011, 9:25:11 pm
UUID: cf8ad35a-0958-0d49-b3c2-f5da8c291c1b
Ancestors: MorphicExtras-kfr.31

Restore two methods accidentally removed

=============== Diff against MorphicExtras-kfr.31 ===============

Item was added:
+ ----- Method: EventHandler>>adaptToWorld: (in category '*MorphicExtras-initialization') -----
+ adaptToWorld: aWorld
+ 	"If any of my recipients refer to a world or a hand, make them now refer
+ 	to the corresponding items in the new world.  (instVarNamed: is slow, later
+ 	use perform of two selectors.)"
+ 
+ 	| value newValue |
+ 	#(mouseDownRecipient mouseStillDownRecipient mouseUpRecipient
+ 	mouseEnterRecipient mouseLeaveRecipient mouseEnterDraggingRecipient
+ 	mouseLeaveDraggingRecipient clickRecipient doubleClickRecipient startDragRecipient keyStrokeRecipient valueParameter) do:
+ 		[:aName |
+ 		(value _ self instVarNamed: aName asString) ifNotNil:[
+ 			newValue _ value adaptedToWorld: aWorld.
+ 			(newValue notNil and: [newValue ~~ value])
+ 				ifTrue:
+ 					[self instVarNamed: aName asString put: newValue]]]!

Item was added:
+ ----- Method: PasteUpMorph class>>initialize (in category '*MorphicExtras-class initialization') -----
+ initialize
+ 	"Initialize the class"
+ 
+ 	#('keyStroke') translatedNoop.
+ 
+ 	self registerInFlapsRegistry.	
+ 	ScriptingSystem addCustomEventFor: self named: #keyStroke help: 'when a keystroke happens and nobody heard it' translatedNoop targetMorphClass: PasteUpMorph.!