Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.259.mcz
==================== Summary ====================
Name: MorphicExtras-mt.259 Author: mt Time: 2 September 2019, 9:25:15.169272 am UUID: e38a7506-69f9-d248-9125-5b167b1092fd Ancestors: MorphicExtras-mt.258
Cleans up double-extension categories. We never kept record of move operations between packages for extension categories.
Example: "*MorphicExtras-*morphic-Postscript Canvases" -> "*MorphicExtras-Postscript Canvases".
=============== Diff against MorphicExtras-mt.258 ===============
Item was changed: + ----- Method: Color>>encodePostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: Color>>encodePostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- encodePostscriptOn: aStream
aStream setrgbcolor:self.
!
Item was changed: + ----- Method: ColorForm>>encodePostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: ColorForm>>encodePostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- encodePostscriptOn: aStream self unhibernate. aStream print: '% form contains '; write: (colors select: [:c | c = Color transparent]) size; print: ' transparent colors'; cr. ^ self asFormWithSingleTransparentColors printPostscript: aStream operator: (self depth = 1 ifTrue: ['imagemask'] ifFalse: [(self indexOfColor: Color transparent) printString , ' transparentimage'])!
Item was changed: + ----- Method: ColorForm>>printPostscript: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: ColorForm>>printPostscript: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- printPostscript:aStream aStream nextPutAll:'% form contains '; print:((colors select:[:c| c=Color transparent]) size); nextPutAll:' transparent colors'; cr. ^self asFormWithSingleTransparentColors printPostscript:aStream operator:(self depth=1 ifTrue:['imagemask'] ifFalse:[ (self indexOfColor:Color transparent) printString ,' transparentimage']) . !
Item was changed: + ----- Method: ImageMorph>>drawPostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: ImageMorph>>drawPostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- drawPostscriptOn: aCanvas
| top f2 c2 clrs |
clrs := image colorsUsed. (clrs includes: Color transparent) ifFalse: [^super drawPostscriptOn: aCanvas]. "no need for this, then"
top := aCanvas topLevelMorph. f2 := Form extent: self extent depth: image depth. c2 := f2 getCanvas. c2 fillColor: Color white. c2 translateBy: bounds origin negated clippingTo: f2 boundingBox during: [ :c | top fullDrawOn: c ]. aCanvas paintImage: f2 at: bounds origin
!
Item was changed: + ----- Method: MatrixTransform2x3>>encodePostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: MatrixTransform2x3>>encodePostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- encodePostscriptOn: aStream aStream writeMatrix:self. !
Item was changed: + ----- Method: Point>>encodePostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: Point>>encodePostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- encodePostscriptOn:aStream aStream writePoint:self.!
Item was changed: + ----- Method: PolygonMorph>>drawPostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: PolygonMorph>>drawPostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- drawPostscriptOn: aCanvas "Display the receiver, a spline curve, approximated by straight line segments." | array | vertices size < 1 ifTrue: [self error: 'a polygon must have at least one point']. array := self drawArrowsOn: aCanvas. closed ifTrue: [aCanvas drawPolygon: self getVertices color: self color borderWidth: self borderWidth borderColor: self borderColor] ifFalse: [self drawClippedBorderOn: aCanvas usingEnds: array]. !
Item was changed: + ----- Method: ProjectViewMorph>>fullDrawPostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: ProjectViewMorph>>fullDrawPostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- fullDrawPostscriptOn: aCanvas
| f | "handle the fact that we have the squished text within"
f := self imageForm. f offset: 0@0. aCanvas paintImage: f at: bounds origin. !
Item was changed: + ----- Method: Rectangle>>encodePostscriptOn: (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: Rectangle>>encodePostscriptOn: (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- encodePostscriptOn:aStream aStream write:self origin; print:' '; write:self extent; print:' '.!
Item was changed: + ----- Method: String>>asPostscript (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: String>>asPostscript (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- asPostscript
| temp | temp := self asString copyReplaceAll: '(' with: '('. temp := temp copyReplaceAll: ')' with: ')'. temp := temp copyReplaceAll: ' ' with: ''. ^ PostscriptEncoder mapMacStringToPS: temp!
Item was changed: + ----- Method: TheWorldMenu>>printWorldOnFile (in category '*MorphicExtras-Postscript Canvases') ----- - ----- Method: TheWorldMenu>>printWorldOnFile (in category '*MorphicExtras-*morphic-Postscript Canvases') ----- printWorldOnFile "Ask the user for a filename and print the world as postscript."
myWorld printPSToFileNamed: 'SqueakScreen' !
packages@lists.squeakfoundation.org