A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-hjh.210.mcz
==================== Summary ====================
Name: MorphicExtras-hjh.210 Author: hjh Time: 30 September 2017, 11:55:17.310454 am UUID: 3a05acb5-0d83-424c-8471-b7b5af288d35 Ancestors: MorphicExtras-tpr.209
A smoke test for Postscript support.
=============== Diff against MorphicExtras-tpr.209 ===============
Item was added: + TestCase subclass: #EPSCanvasTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicExtras-Postscript Canvases'!
Item was added: + ----- Method: EPSCanvasTest>>testSmokeTest (in category 'as yet unclassified') ----- + 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' + !
This test will help to analyse the impact of moving
FlattenEncoder subclass: Canvas
to
Object subclass: Canvas
The issue is to have the Canvas hierarchy separate from the
NullEncoder FlattenEncoder
hierarchy. So that Canvas may be moved to the base system 'Graphics-Canvas'
This while maintaining working Postscript support.
On Sat, 30 Sep 2017 09:56:19 0000, commits@source.squeak.org commits@source.squeak.org wrote:
A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-hjh.210.mcz
==================== Summary ====================
Name: MorphicExtras-hjh.210 Author: hjh Time: 30 September 2017, 11:55:17.310454 am UUID: 3a05acb5-0d83-424c-8471-b7b5af288d35 Ancestors: MorphicExtras-tpr.209
A smoke test for Postscript support.
=============== Diff against MorphicExtras-tpr.209 ===============
Item was added:
- TestCase subclass: #EPSCanvasTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'MorphicExtras-Postscript Canvases'!
Item was added:
- ----- Method: EPSCanvasTest>>testSmokeTest (in category 'as yet
unclassified') -----
- 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'
- !
squeak-dev@lists.squeakfoundation.org