The Trunk: Morphic-dtl.1362.mcz

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.1362.mcz

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

Name: Morphic-dtl.1362
Author: dtl
Time: 14 November 2017, 9:48:26.563471 pm
UUID: 2cd4f6d7-e8d9-48ed-9c73-79c28627b226
Ancestors: Morphic-dtl.1361

Remove unnecessary reference to global World.
Move Object>>currentEvent, Object>>currentHand, and Object>>currentWord from catagory macpal to *Morphic-Kernel.
Fix error in previous update, MailComposition>>addAttachment has been moved to package Network.

=============== Diff against Morphic-dtl.1361 ===============

Item was removed:
- ----- Method: MailComposition>>addAttachment (in category '*Morphic-Support') -----
- addAttachment
- | file fileResult fileName |
- textEditor
- ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]].
-
- (fileResult := StandardFileMenu oldFile)
- ifNotNil:
- [fileName := fileResult directory fullNameFor: fileResult name.
- file := FileStream readOnlyFileNamed: fileName.
- file ifNotNil:
- [file binary.
- self messageText:
- ((MailMessage from: self messageText asString)
- addAttachmentFrom: file withName: fileResult name; text).
- file close]] !

Item was added:
+ ----- Method: Object>>currentEvent (in category '*Morphic-Kernel') -----
+ currentEvent
+ "Answer the current Morphic event.  This method never returns nil."
+ ^ActiveEvent ifNil:[self currentHand lastEvent]!

Item was added:
+ ----- Method: Object>>currentHand (in category '*Morphic-Kernel') -----
+ currentHand
+ "Return a usable HandMorph -- the one associated with the object's current environment.  This method will always return a hand, even if it has to conjure one up as a last resort.  If a particular hand is actually handling events at the moment (such as a remote hand or a ghost hand), it will be returned."
+
+ ^ActiveHand ifNil: [ self currentWorld primaryHand ]!

Item was added:
+ ----- Method: Object>>currentWorld (in category '*Morphic-Kernel') -----
+ currentWorld
+ "Answer a morphic world that is the current UI focus."
+ ^ActiveWorld ifNil:[Project current world]!