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

[Bert Freudenberg]

This looks suspicious:

On 10.10.2011, at 08:54, commits at source.squeak.org wrote:

> Item was removed:
> - ----- 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 removed:
> - ----- 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.!

- Bert -