The Trunk: MorphicExtras-mt.259.mcz

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