The Trunk: MorphicExtras-pre.246.mcz

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@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@1 extent: 398@38).
- mvcWindow addSubView: sendButton.
-
- textView window: (0@40 corner: 400@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!