[Pkg] The Trunk: Morphic-mt.1983.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu May 5 10:59:00 UTC 2022
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1983.mcz
==================== Summary ====================
Name: Morphic-mt.1983
Author: mt
Time: 5 May 2022, 12:58:55.042935 pm
UUID: b0defe00-8806-1844-9dce-68ea9703b58a
Ancestors: Morphic-mt.1982
Fixes scaling for simple frame adornments.
=============== Diff against Morphic-mt.1982 ===============
Item was changed:
----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') -----
drawFrameAdornment: aColor on: aCanvas
"Indicate edit status for the text editor"
self class simpleFrameAdornments
ifTrue:
+ [ | adornmentWidth |
+ adornmentWidth := ((self valueOfProperty: #frameAdornmentWidth ifAbsent: [1])
+ * RealEstateAgent scaleFactor) truncated.
+ aCanvas
- [ aCanvas
frameRectangle: self innerBounds
+ width: adornmentWidth
- width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1])
color: aColor.
aCanvas
+ frameRectangle: (self innerBounds insetBy: adornmentWidth)
+ width: adornmentWidth
- frameRectangle: (self innerBounds insetBy: 1)
- width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1])
color: (aColor alpha: aColor alpha / 3.0) ]
ifFalse:
[ | form |
"Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too."
form := self class adornmentWithColor: aColor.
aCanvas
image: form
at: self innerBounds topRight - (form width @ 0)
sourceRect: form boundingBox
rule: 34 ]!
More information about the Packages
mailing list