Smalltalk › Squeak › Squeak - Dev

The Inbox: MorphicExtras-hjh.210.mcz

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

2 messages Options

commits-2

The Inbox: MorphicExtras-hjh.210.mcz

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'
+ !

Hannes Hirzel

Re: The Inbox: MorphicExtras-hjh.210.mcz

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, [hidden email]
<[hidden email]> 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'
> + !
>
>
>