Frank Shearar uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-fbs.662.mcz

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

Name: Morphic-fbs.662
Author: fbs
Time: 3 July 2013, 9:50:19.085 pm
UUID: fdf483c9-3f11-f842-888f-24421c1c6acb
Ancestors: Morphic-fbs.661

Some stuff that's easily movable from Morphic to MorphicExtras.

=============== Diff against Morphic-fbs.661 ===============

Item was removed:
- ----- Method: HandMorph>>pauseEventRecorderIn: (in category 'event handling') -----
- pauseEventRecorderIn: aWorld
- 	"Suspend any recorder prior to a project change, and return it.
- 	It will be resumed after starting the new project."
- 	eventListeners ifNil:[^nil].
- 	eventListeners do:
- 		[:er | (er isKindOf: EventRecorderMorph) ifTrue: [^ er pauseIn: aWorld]].
- 	^ nil!

Item was removed:
- ----- Method: Morph>>asEPS (in category '*morphic-Postscript Canvases') -----
- asEPS
- 
- 	^ EPSCanvas morphAsPostscript: self rotated: false.
- !

Item was removed:
- ----- Method: Morph>>asPostscriptPrintJob (in category '*morphic-Postscript Canvases') -----
- asPostscriptPrintJob
- 
- 	^ DSCPostscriptCanvas morphAsPostscript: self rotated: false.
- !

Item was removed:
- ----- Method: Morph>>printPSToFileNamed: (in category 'menus') -----
- printPSToFileNamed: aString 
- 	"Ask the user for a filename and print this morph as postscript."
- 	| fileName rotateFlag psCanvasType psExtension |
- 	fileName := aString asFileName.
- 	psCanvasType := PostscriptCanvas defaultCanvasType.
- 	psExtension := psCanvasType defaultExtension.
- 	fileName := UIManager default request: (String streamContents: [ :s |
- 		s nextPutAll: ('File name? ("{1}" will be added to end)' translated format: {psExtension})])
- 			initialAnswer: fileName.
- 	fileName isEmpty
- 		ifTrue: [^ Beeper beep].
- 	(fileName endsWith: psExtension)
- 		ifFalse: [fileName := fileName , psExtension].
- 	rotateFlag := (UIManager default chooseFrom: {
- 		'portrait (tall)' translated.
- 		'landscape (wide)' translated.
- 	} title: 'Choose orientation...' translated) = 2.
- 	((FileStream newFileNamed: fileName asFileName) converter: TextConverter defaultSystemConverter)
- 		nextPutAll: (psCanvasType morphAsPostscript: self rotated: rotateFlag);
- 		 close!

Item was removed:
- ----- Method: PasteUpMorph class>>newWorldTesting (in category 'project') -----
- newWorldTesting
- 
- 	| world ex |
- 
- 	ex := 500 at 500.
- 	world := PasteUpMorph newWorldForProject: nil.
- 	world extent: ex; color: Color orange.
- 	world openInWorld.
- 	world viewBox: (0 at 0 extent: ex).
- 	BouncingAtomsMorph new openInWorld: world.
- 
- "-----
- 
- 	| world window |
- 	world := PasteUpMorph newWorldForProject: nil.
- 	world extent: 300 at 300; color: Color orange.
- 	world viewBox: (0 at 0 extent: 300 at 300).
- 	window := (SystemWindow labelled: 'the new world') model: world.
- 	window color: Color orange.
- 	window addMorph: world frame: (0 at 0 extent: 1.0 at 1.0).
- 	window openInWorld.
- 
- ---"
- !

Item was changed:
  ----- Method: TextMorph>>addCustomMenuItems:hand: (in category 'menu') -----
  addCustomMenuItems: aCustomMenu hand: aHandMorph
  	| outer |
  	super addCustomMenuItems: aCustomMenu hand: aHandMorph.
  	aCustomMenu add: 'text properties...' translated action: #changeTextColor.
  	aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff.
  	aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff.
  	aCustomMenu add: 'text margins...' translated action: #changeMargins:.
  	aCustomMenu add: 'add predecessor' translated action: #addPredecessor:.
  	aCustomMenu add: 'add successor' translated action: #addSuccessor:.
  	
  	outer := self owner.
  	outer ifNotNil: [
  	outer isLineMorph ifTrue:
  		[container isNil
+ 			ifTrue: [Smalltalk at: #TextOnCurveContainer ifPresent: [:ignored | aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]]
- 			ifTrue: [aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]
  			ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection.
  					aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]]
  		ifFalse:
  		[self fillsOwner
  			ifFalse: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff]
  			ifTrue: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff].
  		self avoidsOcclusions
  			ifFalse: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff]
  			ifTrue: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]].
  	aCustomMenu addLine.
  	aCustomMenu add: 'holder for characters' translated action: #holderForCharacters
  !