David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-dtl.546.mcz
==================== Summary ====================
Name: Graphics-dtl.546 Author: dtl Time: 4 November 2023, 9:47:53.713167 pm UUID: bb78f594-06a2-4997-a097-0fde756a8dc9 Ancestors: Graphics-ul.545
Retain some Etoys classes and methods in the base image, based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond)
=============== Diff against Graphics-ul.545 ===============
Item was added: + ----- Method: Form>>blendColor: (in category 'converting') ----- + blendColor: aTranslucentColor + "((ScriptingSystem formAtKey: #TryIt) blendColor: (Color black alpha: + 0.5)) displayAt: 0 @ 0" + "((ScriptingSystem formAtKey: #TryIt) blendColor: (Color red alpha: 0.5)) + displayAt: 0 @ 0" + | form canvas | + form := self deepCopy asFormOfDepth: 32. + canvas := form getCanvas. + canvas + stencil: form + at: 0 @ 0 + sourceRect: (0 @ 0 extent: form extent) + color: aTranslucentColor. + ^ canvas form!
Item was added: + ----- Method: Form>>scaledToHeight: (in category 'scaling, rotation') ----- + scaledToHeight: newHeight + "Answer the receiver, scaled such that it has the desired height." + + newHeight = self height ifTrue: [^ self]. + ^self magnify: self boundingBox by: (newHeight / self height) smoothing: 2. + !
Item was added: + ----- Method: Form>>scaledToWidth: (in category 'scaling, rotation') ----- + scaledToWidth: newWidth + "Answer the receiver, scaled such that it has the desired width." + + newWidth = self width ifTrue: [^ self]. + ^self magnify: self boundingBox by: (newWidth / self width) smoothing: 2. + !
packages@lists.squeakfoundation.org