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!
packages@lists.squeakfoundation.org