Etoys: MorphicExtras-kfr.32.mcz

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.!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev