Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
156 discussions

Monads in Squeak
by Tony Garnock-Jones 04 Aug '22

04 Aug '22

On the Squeak Slack, @asarch asked "Are there monads in Squeak?" My answer was: Tricky question. Monads are a kind of design pattern reflecting a formal mathematical structure. Languages with static type systems are able to enforce some (but usually not all) of the mathematical monad laws; in Smalltalk, the type system is not strong enough to enforce any monad laws. So, monads do appear in Smalltalk in two ways: implicitly, in that theoretically every expression is "in the IO monad"; and explicitly, in examples such as the API on class Promise. Squeak's Promise class implements monadic operations and honours the monad laws. So TL;DR is "yes, but..." :-) Cheers, Tony

7 13

MessageSet useUnifiedMessageLabels preference not honored in RecentMessageSet
by Stéphane Rollandin 04 Aug '22

04 Aug '22

Hello, In 6.0, method #initializeMessageList: is implemented in RecentMessageSet and, as a consequence, the preference MessageSet useUnifiedMessageLabels has no effect there. It seems that this method can simply be removed to fix the problem. Stef

2 3

The Trunk: TrueType-mt.97.mcz
by commits＠source.squeak.org 04 Aug '22

04 Aug '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.97.mcz ==================== Summary ==================== Name: TrueType-mt.97 Author: mt Time: 4 August 2022, 11:24:52.723989 am UUID: 14ab8945-1550-4d43-9954-697bee6f6538 Ancestors: TrueType-mt.96 Fixes regression in backwards compatibility with TrueType fonts that only have a deprecated Unicode mapping table. Thanks to Stef (spfa) for pointing this out! I will backport this to Squeak 6.0. =============== Diff against TrueType-mt.96 =============== Item was added: + Notification subclass: #TTCharacterMappingDeprecated + instanceVariableNames: 'mappingTable' + classVariableNames: '' + poolDictionaries: '' + category: 'TrueType-Support'! Item was added: + ----- Method: TTCharacterMappingDeprecated>>defaultAction (in category 'priv handling') ----- + defaultAction + + Transcript showln: '[TTFontReader] Character mapping is deprecated: ', mappingTable. + ^ true! Item was added: + ----- Method: TTCharacterMappingDeprecated>>mappingTable (in category 'accessing') ----- + mappingTable + + ^ mappingTable! Item was added: + ----- Method: TTCharacterMappingDeprecated>>mappingTable: (in category 'accessing') ----- + mappingTable: anObject + + mappingTable := anObject.! Item was changed: ----- Method: TTCharacterMappingTable>>encodingNameForSqueak (in category 'accessing') ----- encodingNameForSqueak "After #prepare 'ing the cmap table from the font file for squeak, we basically have mappings for Unicode code points. Those can be restricted to < 256 (i.e., 'Latin1' or encodingID = 0). Windows' symbol fonts can also have the speciality that its symbols are also available from 16r20 to 16rFF (i.e., 'Symbol' or encoding ID = 1). Other than that, we distinguish the basic multilingual plane (short: BMP) and full Unicode support. Note that those encodings are not relevant for mapping code points to glyphs as missing code points are automatically mapped to the fallback glyph, that is, the glyph index 0. See TTGlyph >> #isFallback." + ^ #('Latin1' 'Symbol' 'Unicode BMP' 'Unicode Full' 'Deprecated') at: encodingID + 1! - ^ #('Latin1' 'Symbol' 'Unicode BMP' 'Unicode Full') at: encodingID + 1! Item was changed: ----- Method: TTCharacterMappingTable>>prepareFromUnicode (in category 'initialization') ----- prepareFromUnicode "Nothing to do. #characterMap is already organized in Unicode code points. See TTFontReader >> #cmapArrayOfSize:." + encodingID < 3 ifTrue: [ + TTCharacterMappingDeprecated new + mappingTable: self; + signal]. - self - assert: [encodingID >= 3] - description: 'Encoding not supported: ', self encodingName. platformID := -1. "Squeak" + encodingID := encodingID < 3 + ifTrue: [4 "Deprecated"] ifFalse: [ + encodingID = 3 ifTrue: [2 "BMP"] ifFalse: [3"Full"]]. - encodingID := encodingID = 3 ifTrue: [2 "BMP"] ifFalse: [3"Full"]. macLanguageID := nil.! Item was added: + Notification subclass: #TTCharacterMappingUnsupported + instanceVariableNames: 'cmapFmt' + classVariableNames: '' + poolDictionaries: '' + category: 'TrueType-Support'! Item was added: + ----- Method: TTCharacterMappingUnsupported>>cmapFmt (in category 'accessing') ----- + cmapFmt + + ^ cmapFmt! Item was added: + ----- Method: TTCharacterMappingUnsupported>>cmapFmt: (in category 'accessing') ----- + cmapFmt: anObject + + cmapFmt := anObject.! Item was added: + ----- Method: TTCharacterMappingUnsupported>>defaultAction (in category 'priv handling') ----- + defaultAction + + Transcript showln: '[TTFontReader] Unsupported format of cmap: ', cmapFmt. + ^ true! Item was changed: ----- Method: TTFontReader>>decodeCmapFmtTable (in category 'reading - decode cmap') ----- decodeCmapFmtTable "Decode cmap table. Currently supports formats 0, 4, 6, and 12 https://docs.microsoft.com/en-us/typography/opentype/spec/cmap#format-0-byt…" | cmapFmt | ^ (cmapFmt := self nextUnsignedShort) caseOf: { [0] -> [self decodeCmapFmtTable0]. "[2] -> [ High-byte mapping through table ]" [4] -> [self decodeCmapFmtTable4]. [6] -> [self decodeCmapFmtTable6]. "[8] -> [ Mixed 16-bit and 32-bit coverage ]" "[10] -> [ Trimmed array ]" [12] -> [self decodeCmapFmtTable12]. "[13] -> [ Many-to-one range mappings -- last-resort fonts ]" "[14] -> [ Unicode variation sequences ]" } otherwise: [ + TTCharacterMappingUnsupported new + cmapFmt: cmapFmt; + signal. - Transcript showln: '[TTFontReader] Unsupported format of cmap: ', cmapFmt. {nil.nil}]! Item was changed: ----- Method: TTFontReader>>readCharacterMappingTable (in category 'reading - tables') ----- readCharacterMappingTable "Read the font's character to glyph index mapping table. If an appropriate mapping can be found then return an association with the format identifier and the contents of the table" | initialOffset numTables tables ourTable | initialOffset := self offset. self skipShort. "version" numTables := self nextUnsignedShort. tables := Array new: numTables. "1) Get an overview of all included mappings." 1 to: numTables do: [:index | | platformID encodingID offset cmap | platformID := self nextUnsignedShort. encodingID := self nextUnsignedShort. offset := self nextUnsignedLong. tables at: index put: (TTCharacterMappingTable new platformID: platformID; encodingID: encodingID; characterMap: offset; yourself)]. "2*) Read all mappings" "tables do: [:subTable | self offset: initialOffset + subTable characterMap during: [ | cmap | cmap := self decodeCmapFmtTable. subTable characterMap: cmap second; macLanguageID: cmap first]]." "2**) Read the most useful mapping -- skip format 13 and 14 for now." ourTable := tables detect: [:t | t platformID = 0 "Unicode" and: [t encodingID = 4 "Full"]] ifNone: [ tables detect: [:t | t platformID = 3 "Windows" and: [t encodingID = 10 "Full"]] ifNone: [ tables detect: [:t | t platformID = 0 and: [t encodingID = 3 "BMP"]] ifNone: [ tables detect: [:t | t platformID = 3 and: [t encodingID = 1 "BMP"]] ifNone: [ + tables detect: [:t | t platformID = 0 "Unicode" and: [t encodingID < 3 "Deprecated"]] ifNone: [ + tables detect: [:t | t platformID = 3 "Windows Symbol encoding?"] ifNone: [tables last] ]]]]]. - tables detect: [:t | t platformID = 3 "Windows Symbol encoding?"] ifNone: [tables last] ]]]]. self offset: initialOffset + ourTable characterMap during: [ | cmap | cmap := self decodeCmapFmtTable. ourTable characterMap: cmap second; macLanguageID: cmap first]. tables := {ourTable}. "3) Finished. See #processCharacterMappingTable." cmapTables := tables.!

1 0

The Trunk: Tools-mt.1170.mcz
by commits＠source.squeak.org 04 Aug '22

04 Aug '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1170.mcz ==================== Summary ==================== Name: Tools-mt.1170 Author: mt Time: 4 August 2022, 9:56:14.130989 am UUID: f1a0f561-f71d-624a-8ba4-8c4bdf7999b8 Ancestors: Tools-mt.1169 Adds two utility methods to easily browse the glyphs of fonts as forms. Use it to debug rendering issues. =============== Diff against Tools-mt.1169 =============== Item was added: + ----- Method: StrikeFont>>collectAllGlyphs (in category '*Tools-Browsing') ----- + collectAllGlyphs + "Answer all (pre-rendered) glyphs as a collection of forms. + Example: + StrikeFont someInstance collectAllGlyphs explore + " + + | allGlyphs | + allGlyphs := OrderedCollection new: 1000. + self minCodePoint to: self maxCodePoint do: [:codePoint | + (self hasGlyphOf: (Character value: codePoint)) + ifTrue: [allGlyphs add: (self formOf: (Character value: codePoint))]]. + ^ allGlyphs! Item was added: + ----- Method: TTCFont>>collectAllGlyphs (in category '*Tools-Browsing') ----- + collectAllGlyphs + "Answer all (uncached) glyphs as a collection of forms. Note that the current font cache will not be modified by calling this utility method. + Example: + TTCFont someInstance collectAllGlyphs explore + " + + | allGlyphs | + foregroundColor ifNil: [self foregroundColor: Color black]. + allGlyphs := OrderedCollection new: 1000. + self minCodePoint to: self maxCodePoint do: [:codePoint | + (self hasGlyphOf: (Character value: codePoint)) + ifTrue: [allGlyphs add: (self computeForm: codePoint)]]. + ^ allGlyphs!

1 0

The Trunk: Tools-mt.1169.mcz
by commits＠source.squeak.org 04 Aug '22

04 Aug '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1169.mcz ==================== Summary ==================== Name: Tools-mt.1169 Author: mt Time: 4 August 2022, 9:48:36.935989 am UUID: de9240c0-3910-f74c-b22d-12e615be3271 Ancestors: Tools-eem.1168 To single-byte text-conversion "browsers," add header for rows and colums to, for example, quickly look up E4. =============== Diff against Tools-eem.1168 =============== Item was changed: ----- Method: ByteTextConverter class>>browseAllCodePointsUsing: (in category '*Tools-Browsing') ----- browseAllCodePointsUsing: aFont "Apply the receivers encoding (code points 0 to 255) to browse the result using glyphs of aFont (and its #fallbackFont)." aFont + browseGlyphsOf: (Array streamContents: [:s | + "1) Header for columns" + s tab. 0 to: 15 do: [:col | s tab; nextPutAll: col printStringHex]. s cr. + "2) Cells" - browseGlyphsOf: (Array streamContents: [:s | | | self decodeTable withIndexDo: [:ea :i | | codePoint | codePoint := ea = -1 ifTrue: [ea] ifFalse: [ea bitAnd: 16r1FFFFF "Drop language info / leadingChar"]. codePoint := codePoint caseOf: { [-1] -> [32]. [9 "tab"] -> [32]. [10 "line break"] -> [32]. [13 "line break"] -> [32]. } otherwise: [codePoint]. + (i-1 \\ 16 = 0 and: [s position > 0]) "3) Header for rows" + ifTrue: [s cr; tab; nextPutAll: (i-1 // 16) printStringHex]. - (i-1 \\ 16 = 0 and: [s position > 0]) ifTrue: [s cr]. s tab; nextPut: codePoint]]) label: self name, ' decoding table'.!

1 0

Squeak DisplayHostWindow - should it be functional these days?
by tim Rowledge 01 Aug '22

01 Aug '22

I was just blithely explaining on stackoverflow that we can open host windows and... not on linux/arm I can't! I'll admit I haven't tried in, well, I suspect the computer I last tried it on was powered by a tyrannosaur in a treadmill. Does it work on Mac? Windows? Have we lost this incredibly useful facility? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Dukedom: aristocratic birth control

3 3

Jump to page: