[Pkg] The Trunk: Morphic-dtl.1362.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Nov 15 02:48:37 UTC 2017


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



More information about the Packages mailing list