Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.771.mcz
==================== Summary ====================
Name: Morphic-mt.771 Author: mt Time: 6 March 2015, 9:12:23.556 am UUID: 1363b90c-d0cd-d942-8a15-e43d4e3f818e Ancestors: Morphic-mt.770
Fall-back implementations for drawing rounded rectangles added to abstract Canvas class. Fixes problems with color-mapping canvases.
=============== Diff against Morphic-mt.770 ===============
Item was added: + ----- Method: Canvas>>fillRoundRect:radius:fillStyle: (in category 'drawing-rectangles') ----- + fillRoundRect: aRectangle radius: radius fillStyle: fillStyle + + self + fillRectangle: aRectangle + fillStyle: fillStyle.!
Item was added: + ----- Method: Canvas>>frameAndFillRoundRect:radius:fillStyle:borderWidth:borderColor: (in category 'drawing-rectangles') ----- + frameAndFillRoundRect: aRectangle radius: cornerRadius fillStyle: fillStyle borderWidth: bw borderColor: bc + + self + frameAndFillRectangle: aRectangle + fillColor: fillStyle asColor + borderWidth: bw + borderColor: bc.!
Item was added: + ----- Method: Canvas>>frameRoundRect:radius:width:color: (in category 'drawing-rectangles') ----- + frameRoundRect: aRectangle radius: radius width: borderWidth color: borderColor + + self + frameRectangle: aRectangle + width: borderWidth + color: borderColor.!
Item was changed: + ----- Method: FormCanvas>>balloonFillRectangle:fillStyle: (in category 'private') ----- - ----- Method: FormCanvas>>balloonFillRectangle:fillStyle: (in category 'drawing-rectangles') ----- balloonFillRectangle: aRectangle fillStyle: aFillStyle
self asBalloonCanvas fillRectangle: aRectangle fillStyle: aFillStyle.!
Item was changed: + ----- Method: FormCanvas>>balloonFillRoundRect:radius:fillStyle: (in category 'private') ----- - ----- Method: FormCanvas>>balloonFillRoundRect:radius:fillStyle: (in category 'drawing-rectangles') ----- balloonFillRoundRect: aRectangle radius: radius fillStyle: fillStyle ^self asBalloonCanvas fillRoundRect: aRectangle radius: radius fillStyle: fillStyle!
Item was changed: + ----- Method: FormCanvas>>infiniteFillRectangle:fillStyle: (in category 'private') ----- - ----- Method: FormCanvas>>infiniteFillRectangle:fillStyle: (in category 'drawing-rectangles') ----- infiniteFillRectangle: aRectangle fillStyle: aFillStyle
| additionalOffset rInPortTerms clippedPort targetTopLeft clipOffset ex |
"this is a bit of a kludge to get the form to be aligned where I *think* it should be. something better is needed, but not now"
additionalOffset := 0@0. ex := aFillStyle form extent. rInPortTerms := aRectangle translateBy: origin. clippedPort := port clippedBy: rInPortTerms. targetTopLeft := clippedPort clipRect topLeft truncateTo: ex. clipOffset := rInPortTerms topLeft - targetTopLeft. additionalOffset := (clipOffset \ ex) - ex. ^aFillStyle displayOnPort: clippedPort offsetBy: additionalOffset !
squeak-dev@lists.squeakfoundation.org