Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
156 discussions

Inconsistent flaps in new Morphic projects
by Tim Johnson 11 Aug '22

11 Aug '22

Hi, In a fresh 6.0 image -- 1) create a new Morphic project. Enter it. Flaps will appear. 2) go to previous project. 3) create another new Morphic project. Enter it. Flaps will not appear. Haven't done research into why. Thanks, Tim

1 0

The Trunk: Graphics-mt.534.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.534.mcz ==================== Summary ==================== Name: Graphics-mt.534 Author: mt Time: 11 August 2022, 11:52:02.396716 am UUID: 8d928785-9cfa-7f4d-8bc0-6e95a8913a00 Ancestors: Graphics-mt.533 Complements Morphic-mt.2023. =============== Diff against Graphics-mt.533 =============== Item was changed: Object subclass: #AbstractFont instanceVariableNames: '' + classVariableNames: '' - classVariableNames: 'ForceNonSubPixelCount' poolDictionaries: '' category: 'Graphics-Fonts'! !AbstractFont commentStamp: '<historical>' prior: 0! AbstractFont defines the generic interface that all fonts need to implement.! Item was removed: - ----- Method: AbstractFont class>>forceNonSubPixelCount (in category 'utilities') ----- - forceNonSubPixelCount - "Answer the force non-subpixel count" - ^ForceNonSubPixelCount ifNil:[ForceNonSubPixelCount := 0]! Item was removed: - ----- Method: AbstractFont class>>forceNonSubPixelDuring: (in category 'utilities') ----- - forceNonSubPixelDuring: aBlock - "Forces all font rendering to suppress subpixel anti-aliasing during the execution of aBlock" - ForceNonSubPixelCount ifNil:[ForceNonSubPixelCount := 0]. - ForceNonSubPixelCount := ForceNonSubPixelCount + 1. - aBlock ensure:[ForceNonSubPixelCount := ForceNonSubPixelCount - 1]!

1 0

The Trunk: Morphic-mt.2023.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2023.mcz ==================== Summary ==================== Name: Morphic-mt.2023 Author: mt Time: 11 August 2022, 11:48:06.254716 am UUID: 97302602-a946-c044-b656-571f5e044af3 Ancestors: Morphic-mt.2022 Remove unused FreeTypePlus-specific hook (and checks) for avoiding sub-pixel-AA in TransformMorph. =============== Diff against Morphic-mt.2022 =============== Item was changed: ----- Method: TransformMorph>>drawSubmorphsOn: (in category 'drawing') ----- drawSubmorphsOn: aCanvas aCanvas transformBy: transform clippingTo: self innerBounds + during: [:myCanvas | submorphs reverseDo: [:m | myCanvas fullDrawMorph: m]] + smoothing: smoothing.! - during: [:myCanvas | - (self angle ~= 0.0 or: [self scale ~= 1.0]) - ifTrue:[ - AbstractFont forceNonSubPixelDuring:[ - submorphs reverseDo:[:m | myCanvas fullDrawMorph: m] ] ] - ifFalse:[ - submorphs reverseDo:[:m | myCanvas fullDrawMorph: m] ] ] - smoothing: smoothing!

1 0

The Trunk: Multilingual-mt.286.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.286.mcz ==================== Summary ==================== Name: Multilingual-mt.286 Author: mt Time: 11 August 2022, 11:07:36.895716 am UUID: 942929f9-099f-914a-925a-4b1eaaf4f425 Ancestors: Multilingual-mt.285 Updates some categories. =============== Diff against Multilingual-mt.285 =============== Item was changed: + ----- Method: GreekEnvironment class>>supportedLanguages (in category 'accessing') ----- - ----- Method: GreekEnvironment class>>supportedLanguages (in category 'subclass responsibilities') ----- supportedLanguages "Return the languages that this class supports. Any translations for those languages will use this class as their environment." ^#('el' )! Item was changed: + ----- Method: Latin2Environment class>>clipboardInterpreterClass (in category 'accessing') ----- - ----- Method: Latin2Environment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass (#('Win32') includes: Smalltalk platformName) ifTrue: [^CP1250ClipboardInterpreter ]. ^ ISO88592ClipboardInterpreter . ! Item was changed: + ----- Method: Latin2Environment class>>inputInterpreterClass (in category 'accessing') ----- - ----- Method: Latin2Environment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass (#('Win32') includes: Smalltalk platformName) ifTrue: [^CP1250InputInterpreter ]. ^ ISO88592InputInterpreter. ! Item was changed: + ----- Method: Latin2Environment class>>supportedLanguages (in category 'accessing') ----- - ----- Method: Latin2Environment class>>supportedLanguages (in category 'subclass responsibilities') ----- supportedLanguages "Return the languages that this class supports. Any translations for those languages will use this class as their environment." ^#('cs' 'hu' 'ro' 'hr' 'sk' 'sl') "Sorbian languages don't have two char code?" ! Item was changed: + ----- Method: RussianEnvironment class>>clipboardInterpreterClass (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass ^ UTF8ClipboardInterpreter. ! Item was changed: + ----- Method: RussianEnvironment class>>inputInterpreterClass (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>inputInterpreterClass (in category 'subclass responsibilities') ----- inputInterpreterClass | platformName | platformName := Smalltalk platformName. platformName = 'Win32' ifTrue: [^UTF32RussianInputInterpreter]. platformName = 'Mac OS' ifTrue: [^ (((Smalltalk osVersion indexOf: $.) > 4 "i.e. not 9xx.n, but 10xx.n, 11xx.n etc") and: [(Smalltalk getSystemAttribute: 3) isNil]) ifTrue: [MacUnicodeInputInterpreter] ifFalse: [MacRomanInputInterpreter]]. platformName = 'unix' ifTrue: [^ UTF32RussianInputInterpreter]. ^ MacRomanInputInterpreter! Item was changed: + ----- Method: RussianEnvironment class>>supportedLanguages (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>supportedLanguages (in category 'subclass responsibilities') ----- supportedLanguages "Return the languages that this class supports. Any translations for those languages will use this class as their environment." ^#('ru' )! Item was changed: + ----- Method: RussianEnvironment class>>systemConverterClass (in category 'accessing') ----- - ----- Method: RussianEnvironment class>>systemConverterClass (in category 'subclass responsibilities') ----- systemConverterClass ^ UTF8TextConverter!

1 0

The Trunk: Graphics-mt.533.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.533.mcz ==================== Summary ==================== Name: Graphics-mt.533 Author: mt Time: 11 August 2022, 11:03:26.624716 am UUID: b88c0a4b-3f7a-5d49-bc62-9bd70017a75f Ancestors: Graphics-mt.532 Minor fix for "holes" in the xTable of (legacy) StrikeFonts. For example, the "JapaneseEnvironment new installFont" will load a StrikeFont with a lot of glyphs but holes in the xTable. =============== Diff against Graphics-mt.532 =============== Item was changed: ----- Method: StrikeFont>>hasGlyphForCode: (in category 'private') ----- hasGlyphForCode: aCharacterCode "Note that missing glyphs are encoded as -1 in the xTable but to speed up the #widthOf: check, the next offset must be adjacent and thus be duplicated. For example: #(-1 -1 0 24 -1 -1 -1 24 48 -1 ...). Since aCharacterCode is 0-based, that codes offset is at +1 while its width needs to consult +2, too. See #widthOf:." + | here next | (aCharacterCode between: self minAscii and: self maxAscii) ifFalse: [^ false]. + (here := xTable at: aCharacterCode + 1) >= 0 - (xTable at: aCharacterCode + 1) >= 0 ifFalse: [^ false]. + (next := xTable at: aCharacterCode + 2) >= 0 - (xTable at: aCharacterCode + 2) >= 0 ifFalse: [^ false]. + (next - here) > 0 + ifFalse: [^ false]. ^ true!

1 0

The Trunk: Graphics-mt.532.mcz
by commits＠source.squeak.org 11 Aug '22

11 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.532.mcz ==================== Summary ==================== Name: Graphics-mt.532 Author: mt Time: 11 August 2022, 10:50:27.946716 am UUID: 17ac3673-2a80-f14a-8fc0-600139584858 Ancestors: Graphics-mt.531 Fixes (and polishes) font preview for symbol fonts such as "Segoe UI Emoji" or "Wingdings". =============== Diff against Graphics-mt.531 =============== Item was changed: ----- Method: AbstractFont>>symbolSample (in category 'example') ----- symbolSample "Variation of Text class >> #symbolSample, which uses the receiver's available code points. This is important for fonts such as Wingdings." + ^ String streamContents: [:stream | | codePoint lineLength maxLineLength character numLines | + lineLength := numLines := 0. + codePoint := self minCodePoint max: 16r1000. + maxLineLength := (TextStyle defaultFont widthOf: $x) * 45. + [numLines > 20 or: [codePoint > self maxCodePoint]] whileFalse: [ - ^ String streamContents: [:stream | | start lineLength character | - lineLength := 0. - (start := self minCodePoint max: 33) to: (self maxCodePoint min: start + 200) do: [:codePoint | (self hasGlyphOf: (character := Character value: codePoint)) + ifTrue: [ + stream nextPut: character. + ((lineLength := lineLength + (self widthOf: character)) > maxLineLength) ifTrue: [ - ifTrue: [stream nextPut: character. - ((lineLength := lineLength + 1) > 30) ifTrue: [ lineLength := 0. + numLines := numLines + 1. + stream cr]]. + codePoint := codePoint + 1 ]]! - stream cr]]]]!

1 0

squeak 4.19.15 on openindiana
by stes＠PANDORA.BE 11 Aug '22

11 Aug '22

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 OpenIndiana was updated with the latest version of Squeak Classical VM: squeak was updated from 4.19.9 to 4.19.15 This version of squeak 'classic' corresponds to subversion version 3818. The binaries are both 32bit and 64bit. The Cuis VectorEnginePlugin for Squeak is the one from the subversion repo, as the VEP (VectorEnginePlugin) for running Cuis on OpenIndiana. The JPEGReadWriter2Plugin is using the (system) OpenIndiana jpeg libraries, not the jpeg library from the Squeak subversion repository. http://docs.openindiana.org/handbook/community/squeak/index.html for more info. Regards, David Stes -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQEcBAEBCAAGBQJi9JOlAAoJEPm226LXUB1oRaoH/3RJ3gvLnRzAqnxBYkEhLWF9 yvjlnEpQ0NATrKhzndihnPXUjFquEWa42rfP5VXToUaLjEGNZH16ixKrqu1MzX2D EZmd7PKZkQx+EYNYPsC7+h01hZPEXW797ZWXseGpzQmsvzoGZHdiAcFfcw0Kw5uv 3P0pk/uBbnM23a02HICsHk8X5fo+RqpC0Mm9uhaGSsoPzgSefRurRRp9VhS3nBRb yl36+si3DOdqLSzxCk9JiHdITYYVgVlCEXWskH/yfYxJZgo4iZVMe0hST+FNPzJF sPjV9HFe+iTbTKsU4E11WI99fiwMlNI9awofioyl13SSeqnIxRHxoCW3TsYFDMQ= =BfUE -----END PGP SIGNATURE-----

1 0

UK Smalltalk User Group Meeting - 31 August 2022
by Giovanni Corriga 11 Aug '22

11 Aug '22

For this month, we'll be welcoming Instantiations' Mariano Martinez Peck and Seth Berman, who will be talking to us about asynchronous programming in Smalltalk. Whether you’re interested in starting a new project or enhancing an existing system, asynchronous programming offers a great way to optimize application speed and help ensure maintainability as complexity increases. We’ll discuss the asynchronous programming approach, why it’s important, and show live demos in the VAST Platform ( https://www.instantiations.com/vast-platform/ ) of how to get started with futures/promises, asynchronous streams/zones, and more! Mariano Martinez Peck ( https://twitter.com/martinezpeck ) is a senior systems engineer specializing in dynamic programming language software. In 2018, he joined Instantiations to further develop the VAST Platform through the addition of new frameworks, libraries and tools, as well as improving the existing code base of VAST. He is active in the Smalltalk development community, and has used his expertise to co-author numerous open source projects. Mariano has a PhD in Computer Science, and his academic research has been published across various international journals. Seth Berman ( https://twitter.com/sethloco78 ) is President & CEO of Instantiations ( https://www.instantiations.com/ ). He leads a dedicated team that tirelessly supports and enhances Instantiations' VAST Platform, while he guides expansion into new software/service areas like IoT, cloud, and edge computing solutions. Before leading Instantiations, Seth joined the company in 2011 as a software engineer working on projects ranging from advanced code editors and cryptography libraries to FFI enhancements and virtual machine implementations. Previously, he worked for the US government in a variety of domains including stochastic simulation, operations research, grid computing, and link analysis. Seth has a B.S. in Computer Science and an M.S. in Software Engineering. This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/cbklbrydclbgc/ ) to receive the meeting details. Don’t forget to bring your laptop and drinks!

1 0

The Trunk: Graphics-kfr.528.mcz
by commits＠source.squeak.org 10 Aug '22

10 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-kfr.528.mcz ==================== Summary ==================== Name: Graphics-kfr.528 Author: kfr Time: 8 July 2022, 8:58:09.715763 am UUID: 40dbdaff-40b8-544a-8136-c4bc907174ad Ancestors: Graphics-kfr.527 Color>>at: is slow. Speed up by using variable =============== Diff against Graphics-kfr.527 =============== Item was changed: ----- Method: Form>>processUsingKernel:factor:bias: (in category 'processing') ----- processUsingKernel: filter factor: factor bias: bias + | image result color | - | image result | image := self. result := Form extent: image extent depth: image depth. 0 to: image height - 1 do: [:y | 0 to: image width - 1 do: [:x | | r g b | r := g := b := 0.0. 0 to: filter rowCount - 1 do: [:filterY | 0 to: filter columnCount - 1 do: [:filterX | | imageX imageY | imageX := (x - (filter columnCount // 2) + filterX + image width) \\ image width. imageY := (y - (filter rowCount // 2) + filterY + image height) \\ image height. + color := image colorAt: imageX@imageY. + r := r + (color red * - r := r + ((image colorAt: imageX@imageY) red * (filter at: filterY + 1 at: filterX + 1)). + g := g + (color green * - g := g + ((image colorAt: imageX@imageY) green * (filter at: filterY + 1 at: filterX + 1)). + b := b + (color blue * - b := b + ((image colorAt: imageX@imageY) blue * (filter at: filterY + 1 at: filterX + 1))]]. result colorAt: x@y put: (Color r: ((factor * r + bias) min: 1.0 max: 0.0) g: ((factor * g + bias) min: 1.0 max: 0.0) b: ((factor * b + bias) min: 1.0 max: 0.0))]]. ^ result !

1 0

The Trunk: Graphics-kfr.529.mcz
by commits＠source.squeak.org 10 Aug '22

10 Aug '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-kfr.529.mcz ==================== Summary ==================== Name: Graphics-kfr.529 Author: kfr Time: 8 July 2022, 9:09:08.988763 am UUID: c82ec469-0674-f04c-9123-0b36fb8eb7d6 Ancestors: Graphics-kfr.528 Floyd Steinberg dither for forms of 1 to 8 bit depth. =============== Diff against Graphics-kfr.527 =============== Item was added: + ----- Method: Form>>at:bias: (in category 'processing') ----- + at: aPoint bias: aQuantError + | x y color point oldColor | + x := aPoint x. + y := aPoint y. + + point := (x + 1 min: self width)@ y. + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.4375). "7/16" + self colorAt: point put: color. + + point := (x - 1 max: 0)@ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.1875)."3/16" + self colorAt: point put: color. + + point := x @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.3125 ) ."5/16" + self colorAt: point put: color. + + point := (x + 1 min: self width) @ (y + 1 min: self height). + oldColor := self colorAt: point. + color := oldColor + (aQuantError * 0.0625 ) ."1/16" + self colorAt: point put: color. + ! Item was added: + ----- Method: Form>>dither: (in category 'processing') ----- + dither: aDepth + | newColor oldColor quantError result | + "Floyd Steinberg dithering for depth 1 to 8 bits" + result := self copy. + (0 to: height) do:[:y| + (0 to: width) do:[:x| + oldColor := (result colorAt: x@y). + newColor := Color colorFromPixelValue: (oldColor pixelValueForDepth: aDepth) depth: aDepth. + result colorAt: x@y put: newColor. + quantError := (oldColor - newColor). + result at: x@y bias: quantError]]. + ^result.! Item was changed: ----- Method: Form>>processUsingKernel:factor:bias: (in category 'processing') ----- processUsingKernel: filter factor: factor bias: bias + | image result color | - | image result | image := self. result := Form extent: image extent depth: image depth. 0 to: image height - 1 do: [:y | 0 to: image width - 1 do: [:x | | r g b | r := g := b := 0.0. 0 to: filter rowCount - 1 do: [:filterY | 0 to: filter columnCount - 1 do: [:filterX | | imageX imageY | imageX := (x - (filter columnCount // 2) + filterX + image width) \\ image width. imageY := (y - (filter rowCount // 2) + filterY + image height) \\ image height. + color := image colorAt: imageX@imageY. + r := r + (color red * - r := r + ((image colorAt: imageX@imageY) red * (filter at: filterY + 1 at: filterX + 1)). + g := g + (color green * - g := g + ((image colorAt: imageX@imageY) green * (filter at: filterY + 1 at: filterX + 1)). + b := b + (color blue * - b := b + ((image colorAt: imageX@imageY) blue * (filter at: filterY + 1 at: filterX + 1))]]. result colorAt: x@y put: (Color r: ((factor * r + bias) min: 1.0 max: 0.0) g: ((factor * g + bias) min: 1.0 max: 0.0) b: ((factor * b + bias) min: 1.0 max: 0.0))]]. ^ result !

1 0

Jump to page: