Patrick Rein uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-pre.246.mcz

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

Name: MorphicExtras-pre.246
Author: pre
Time: 13 October 2018, 2:32:02.112477 pm
UUID: fc8b1d14-c9ce-5949-aab0-43fbbf33b013
Ancestors: MorphicExtras-kfr.245

Removes the FancyMailComposition>>#mvcOpen which was deprecated. Moves the EPSCanvasTest to Morphic-Extas-Tests and implements the missing UserInterfaceTheme methods in the ObjectsTool.

=============== Diff against MorphicExtras-kfr.245 ===============

Item was removed:
- TestCase subclass: #EPSCanvasTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'MorphicExtras-Postscript Canvases'!

Item was removed:
- ----- Method: EPSCanvasTest>>performTest (in category 'private') -----
- performTest
- 
- 	Utilities
- 		useAuthorName: self className
- 		during: [ super performTest ]!

Item was removed:
- ----- Method: EPSCanvasTest>>testSmokeTest (in category 'tests') -----
- testSmokeTest
- 	
- 	| epsCode |
- 	epsCode := (RectangleMorph new asEPS).
- 
- 	self assert: epsCode lines first = '%!!PS-Adobe-2.0 EPSF-2.0'.
- 	self assert: (epsCode lines detect: [:line | 
- 		line beginsWith: '%start morph:  a RectangleMorph'] ifNone: [nil]) notNil.
- 	self assert: epsCode lines last = '%%EOF'
- !

Item was removed:
- ----- Method: FancyMailComposition>>mvcOpen (in category 'user interface') -----
- mvcOpen
- 	| textView sendButton  |
- 
- 	mvcWindow := StandardSystemView new
- 		label: 'Mister Postman';
- 		minimumSize: 400 at 250;
- 		model: self.
- 
- 	textView := PluggableTextView
- 		on: self
- 		text: #messageText
- 		accept: #messageText:.
- 	textEditor := textView controller.
- 
- 	sendButton := PluggableButtonView 
- 		on: self
- 		getState: nil
- 		action: #submit.
- 	sendButton label: 'Send'.
- 	sendButton borderWidth: 1.
- 
- 	sendButton window: (1 at 1 extent: 398 at 38).
- 	mvcWindow addSubView: sendButton.
- 
- 	textView window: (0 at 40 corner: 400 at 250).
- 	mvcWindow addSubView: textView below: sendButton.
- 
- 	mvcWindow controller open.
- 
- 		
- !

Item was added:
+ ----- Method: ObjectsTool>>applyUserInterfaceTheme (in category 'updating') -----
+ applyUserInterfaceTheme
+ 
+ 	super applyUserInterfaceTheme.
+ 	self setDefaultParameters.!

Item was added:
+ ----- Method: ObjectsTool>>setDefaultParameters (in category 'initialization') -----
+ setDefaultParameters
+ 	
+ 	self
+ 		borderColor: self baseBorderColor;
+ 		color: self baseBackgroundColor!