[Pkg] The Trunk: MorphicExtras-mt.259.mcz

[commits at source.squeak.org]

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