Packages December 2021

packages@lists.squeakfoundation.org

1 participants
270 discussions

The Trunk: Morphic-mt.1807.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1807.mcz ==================== Summary ==================== Name: Morphic-mt.1807 Author: mt Time: 2 December 2021, 4:07:38.353715 pm UUID: c0df95ee-9347-1d47-b845-35b6b99a4f51 Ancestors: Morphic-mt.1806 Complements Collections-mt.966 =============== Diff against Morphic-mt.1806 =============== Item was changed: ----- Method: DialogWindow>>setMessageParameters (in category 'initialization') ----- setMessageParameters + | fontToUse colorToUse | - | fontToUse colorToUse fontAttr offset | messageMorph ifNil: [^ self]. fontToUse := self userInterfaceTheme font ifNil: [TextStyle defaultFont]. colorToUse := self userInterfaceTheme textColor ifNil: [Color black]. messageMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap; textColor: colorToUse. + + messageMorph contents + addAttribute: (TextFontReference toFont: fontToUse) + unless: [:attrs | attrs anySatisfy: [:each | + "Do not overwrite existing font attributes." + each class == TextFontChange or: [each class == TextFontReference]]]. + messageMorph contents + addAttribute: (TextColor color: colorToUse) + unless: [:attrs | attrs anySatisfy: [:each | + "Do not overwrite existing color attributes" + each class == TextColor or: [each mayActOnClick "usually colored, too"]]].! - - "Only set text attributes for ranges that have none." - self flag: #todo. "mt: Add interface to Text?" - self flag: #todo. "mt: Do the same for TextColor. We must not know that #textColor: above does all the magic already." - fontAttr := TextFontReference toFont: fontToUse. - offset := nil. - messageMorph contents runs withIndexDo: [:attrs :index | - (attrs anySatisfy: [:each | each isKindOf: TextFontChange]) - ifFalse: [offset ifNil: [offset := index]] - ifTrue: [offset ifNotNil: [ - messageMorph contents - addAttribute: fontAttr - from: offset to: index - 1. - offset := nil]]]. - offset ifNotNil: [ - messageMorph contents - addAttribute: fontAttr - from: offset to: messageMorph contents size]. - !

1 0

The Trunk: CollectionsTests-mt.364.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.364.mcz ==================== Summary ==================== Name: CollectionsTests-mt.364 Author: mt Time: 2 December 2021, 4:06:39.658715 pm UUID: ab63b474-7dcb-bf4f-b41d-2a660e2b7a1c Ancestors: CollectionsTests-mt.363 Complements Collections-mt.966. =============== Diff against CollectionsTests-mt.363 =============== Item was added: + ----- Method: TextTest>>test08AddAttributeUnless (in category 'tests') ----- + test08AddAttributeUnless + + | text attributeOne attributeTwo | + text := Text fromString: 'Hello World!!'. + attributeOne := TextEmphasis bold. + attributeTwo := TextColor color: Color yellow. + text addAttribute: attributeOne from: 1 to: 5 "Hello". + text + addAttribute: attributeTwo + unless: [:attrs | attrs anySatisfy: [:ea | ea == attributeOne]]. + + 1 to: 5 do: [:index | + self assert: {attributeOne} equals: (text attributesAt: index)]. + 6 to: text size do: [:index | + self assert: {attributeTwo} equals: (text attributesAt: index)]. !

1 0

The Trunk: Collections-mt.966.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.966.mcz ==================== Summary ==================== Name: Collections-mt.966 Author: mt Time: 2 December 2021, 4:06:07.345715 pm UUID: e18db8cb-0b3c-1d48-95f3-f5955e1ea837 Ancestors: Collections-mt.965 New message on Text: add a text attribute to the entire text unless there is a conflict with an existing text attribute. So, automatically compute the ranges that fit. =============== Diff against Collections-mt.965 =============== Item was added: + ----- Method: Text>>addAttribute:unless: (in category 'emphasis') ----- + addAttribute: anAttribute unless: aBlock + "Only add anAttribute when aBlock evaluates to false. Can be used to avoid overwriting existing attributes without knowing exactly where they are. Kind of complements the #dominates: protocol in TextAttribute." + + | offset | + self flag: #performance. "mt: Can we do this faster?" + runs copy withIndexDo: [:attrs :index | + (aBlock cull: attrs cull: index) + ifFalse: [offset ifNil: [ + offset := index]] + ifTrue: [offset ifNotNil: [ + self addAttribute: anAttribute from: offset to: index - 1. + offset := nil]]]. + offset ifNotNil: [ + self addAttribute: anAttribute from: offset to: self size].!

1 0

The Trunk: MonticelloConfigurations-mt.169.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.169.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.169 Author: mt Time: 2 December 2021, 2:56:24.480715 pm UUID: 7c0fb674-93ba-2443-9c53-725956da9084 Ancestors: MonticelloConfigurations-ct.168 We have a few places in the sources, where we hard-code the literal '</a>' in one form or another. In this rather recent example, avoid that through a little indirection to fool the Windows Defender. Also to document the overall issue somewhere within the image. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346… =============== Diff against MonticelloConfigurations-ct.168 =============== Item was changed: ----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') ----- updateMessageFor: previousUpdateLevel + ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</{10}> Map: ''{5}'' CI status: <a href="{8}"><img src="{7}" /> {9}</{10}>{6}' translated format: { - ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</a> Map: ''{5}'' CI status: <a href="{8}"><img src="{7}" /> {9}</a>{6}' translated format: { SystemVersion current version. SystemVersion current highestUpdate. previousUpdateLevel = SystemVersion current highestUpdate ifTrue: [''] ifFalse: [previousUpdateLevel asString, ' -> ']. self repository. MCMcmUpdater updateMapName. SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | ' ', (d copyReplaceAll: String cr with: ' ')]. SystemVersion current ciStatusBadgeUrl. SystemVersion current ciStatusPageUrl. SystemVersion current ciStatusTimestamp ifNil: ['(build inaccessible!!)' translated]. + "mt: Avoid triggering the Windows Defender. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217346…" + 'a'. }) asTextFromHtml!

1 0

The Trunk: CollectionsTests-mt.363.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.363.mcz ==================== Summary ==================== Name: CollectionsTests-mt.363 Author: mt Time: 2 December 2021, 2:53:50.194715 pm UUID: 2e5af8dd-1822-9c41-8cab-2ad1e733146c Ancestors: CollectionsTests-ul.362 Complements Collections-mt.965 =============== Diff against CollectionsTests-ul.362 =============== Item was changed: ----- Method: HtmlReadWriterTest>>test03FontTag (in category 'tests') ----- test03FontTag { 'Hello, World!!'. 'Hello, World!!' asText addAttribute: (TextColor color: Color yellow). + + 'Hello, World!!'. + 'Hello, World!!' asText + addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 12)). + + "Note that we cannot directly use both face/size and color in the same font tag because of how #openHtmlOn: works in fonts. Works in general, but just not in this test setup." + 'Hello, World!!'. + 'Hello, World!!' asText + addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Accula' pointSize: 12)); + addAttribute: (TextColor color: Color yellow). + } pairsDo: [:expectedHtml :expectedText | self convertHtml: expectedHtml. self assert: expectedText string equals: text string. self assert: expectedText runs equals: text runs. self convertText: expectedText. self assert: expectedHtml equals: html].!

1 0

The Trunk: Graphics-mt.450.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.450.mcz ==================== Summary ==================== Name: Graphics-mt.450 Author: mt Time: 2 December 2021, 2:53:06.775715 pm UUID: b4293a0a-6461-ef4b-810f-5f00dd92d7df Ancestors: Graphics-eem.449 Complements Collections-mt.965 =============== Diff against Graphics-eem.449 =============== Item was added: + ----- Method: StrikeFont>>closeHtmlOn: (in category 'html') ----- + closeHtmlOn: aStream + + aStream nextPutAll: ''.! Item was added: + ----- Method: StrikeFont>>openHtmlOn: (in category 'html') ----- + openHtmlOn: aStream + + aStream + nextPutAll: ''.!

1 0

The Trunk: Collections-mt.965.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.965.mcz ==================== Summary ==================== Name: Collections-mt.965 Author: mt Time: 2 December 2021, 2:52:21.175715 pm UUID: 1d5fd54c-a0fc-044b-9bf6-75cb62f26fd4 Ancestors: Collections-ul.964 To HtmlReadWriter's support of tags, add specific support for "face" and "size" attributes. Note that, at some point, we might want to extract the stuff shared between Collections and Graphics into a separate package. Maybe the entire "Collections-Text" stuff should live somewhere else. =============== Diff against Collections-ul.964 =============== Item was changed: ----- Method: HtmlReadWriter>>mapFontTag: (in category 'mapping') ----- mapFontTag: aTag + | result colorName fontFace fontSize | - | result colorStartIndex colorStopIndex attribute | result := OrderedCollection new. " or " + "" + (#(color face size) collect: [:attribute | + | startIndex stopIndex | + startIndex := aTag findString: attribute. + startIndex > 0 ifTrue: [ + startIndex := aTag findString: '"' startingAt: startIndex+attribute size. + stopIndex := aTag findString: '"' startingAt: startIndex+1. + aTag copyFrom: startIndex+1 to: stopIndex-1]]) + in: [:values | + colorName := values first. + fontFace := values second. + fontSize := values third]. + + colorName ifNotNil: [ + result add: (TextColor color: (Color fromString: colorName))]. + (fontFace notNil or: [fontSize notNil]) ifTrue: [ + result add: (TextFontReference toFont: (StrikeFont familyName: (fontFace ifNil: [TextStyle defaultFont familyName]) pointSize: (fontSize ifNil: [TextStyle defaultFont pointSize])))]. + - attribute := 'color'. - colorStartIndex := aTag findString: attribute. - colorStartIndex > 0 ifTrue: [ - colorStartIndex := aTag findString: '"' startingAt: colorStartIndex+attribute size. - colorStopIndex := aTag findString: '"' startingAt: colorStartIndex+1. - result add: (TextColor color: - (Color fromString: (aTag copyFrom: colorStartIndex+1 to: colorStopIndex-1)))]. - ^ result! Item was added: + ----- Method: TextFontReference>>closeHtmlOn: (in category 'html') ----- + closeHtmlOn: aStream + + font closeHtmlOn: aStream.! Item was added: + ----- Method: TextFontReference>>openHtmlOn: (in category 'html') ----- + openHtmlOn: aStream + + font openHtmlOn: aStream.!

1 0

The Treated Inbox: System-dtl.1254.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

David T. Lewis uploaded a new version of System to project The Treated Inbox: http://source.squeak.org/treated/System-dtl.1254.mcz ==================== Summary ==================== Name: System-dtl.1254 Author: dtl Time: 26 November 2021, 11:06:19.584405 am UUID: 3856329c-1404-4bd5-9b94-d9c47f663d7c Ancestors: System-mt.1253 Let vmParameterAt:ifAbsent: treat nil as an absent parameter. Previously only out of range parameter requests were treated as absent. Handles the case of parameter 54 which is numeric for Spur VM, nil for Cog VM, and out of range for interpreter VM. Update bytesUsedString to use 0 as default for parameter 54. =============== Diff against System-mt.1253 =============== Item was changed: ----- Method: SmalltalkImage>>bytesUsedString (in category 'memory space') ----- bytesUsedString "Answer a string describing the amount of memory in use." "Smalltalk bytesUsedString" | totalUsed | totalUsed := (self vmParameterAt: 2 "used eden + used past space") + + ((self vmParameterAt: 1 "old space size") + - (self vmParameterAt: 54 ifAbsent: 0 "free old space")). - + ((self vmParameterAt: 1 "old space size") - (self vmParameterAt: 54 "free old space")). ^totalUsed asStringWithCommas, ' bytes in use'! Item was changed: ----- Method: SmalltalkImage>>vmParameterAt:ifAbsent: (in category 'vm parameters') ----- vmParameterAt: parameterIndex ifAbsent: defaultValueOrBlock + "Answer a VM parameter or defaultValueOrBlock value if out of range + or if the VM does not provide a value for this parameter. A VM parameter + is typically numeric or boolean, and if not implemented will be nil." + ^ [(self vmParameterAt: parameterIndex) + ifNil: defaultValueOrBlock value] - "Answer a VM parameter or defaultValueOrBlock value if out of range." - ^ [self vmParameterAt: parameterIndex] on: Error do: [defaultValueOrBlock value]!

1 0

The Trunk: System-dtl.1261.mcz
by commits＠source.squeak.org 02 Dec '21

02 Dec '21

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1261.mcz ==================== Summary ==================== Name: System-dtl.1261 Author: dtl Time: 1 December 2021, 6:27:02.182458 pm UUID: 9cead45b-ffbd-4606-ab13-fe1180a9c763 Ancestors: System-mt.1260 Let vmParameterAt:ifAbsent: treat nil as an absent parameter. Previously only out of range parameter requests were treated as absent. Handles the case of parameter 54 which is numeric for Spur VM, nil for Cog VM, and out of range for interpreter VM. Update bytesUsedString to use 0 as default for parameter 54. (Originally submitted as System-dtl.1254, moved to treated inbox) =============== Diff against System-mt.1260 =============== Item was changed: ----- Method: SmalltalkImage>>bytesUsedString (in category 'memory space') ----- bytesUsedString "Answer a string describing the amount of memory in use." "Smalltalk bytesUsedString" | totalUsed | totalUsed := (self vmParameterAt: 2 "used eden + used past space") + + ((self vmParameterAt: 1 "old space size") + - (self vmParameterAt: 54 ifAbsent: 0 "free old space")). - + ((self vmParameterAt: 1 "old space size") - (self vmParameterAt: 54 "free old space")). ^totalUsed asStringWithCommas, ' bytes in use'! Item was changed: ----- Method: SmalltalkImage>>vmParameterAt:ifAbsent: (in category 'vm parameters') ----- vmParameterAt: parameterIndex ifAbsent: defaultValueOrBlock + "Answer a VM parameter or defaultValueOrBlock value if out of range + or if the VM does not provide a value for this parameter. A VM parameter + is typically numeric or boolean, and if not implemented will be nil." + ^ [(self vmParameterAt: parameterIndex) + ifNil: defaultValueOrBlock value] - "Answer a VM parameter or defaultValueOrBlock value if out of range." - ^ [self vmParameterAt: parameterIndex] on: Error do: [defaultValueOrBlock value]!

1 0

The Trunk: Morphic-ct.1681.mcz
by commits＠source.squeak.org 01 Dec '21

01 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1681.mcz ==================== Summary ==================== Name: Morphic-ct.1681 Author: ct Time: 8 September 2020, 1:48:12.211798 pm UUID: 9e91205a-93e1-c143-ae8f-4aa3428bf197 Ancestors: Morphic-mt.1679 Fixes use of custom attributes in DialogWindows Things like the following did NOT work properly before this patch: self inform: 'normal ' asText , ('red ' asText addAttribute: TextColor red; yourself) , ('font ' asText addAttribute: (TextFontReference toFont: ((TextStyle named: 'BitstreamVeraSansMono') fontOfSize: 20)); yourself) , ('url ' asText addAttribute: TextURL new; yourself) This was because DialogWindow added its own styling attributes on top of all existing attributes. For color, this is not necessary because #textColor: is sufficient. For font size, in theory, TextFontChange should be sufficient, but currently it does not support relative changes to the font size. =============== Diff against Morphic-mt.1679 =============== Item was changed: ----- Method: DialogWindow>>setMessageParameters (in category 'initialization') ----- setMessageParameters + + messageMorph ifNil: [^ self]. + messageMorph + hResizing: #shrinkWrap; + vResizing: #shrinkWrap. + + self userInterfaceTheme textColor ifNotNil: [:color | + messageMorph textColor: color]. + self userInterfaceTheme font ifNotNil: [:font | + self flag: #todo. "ct: Develop a relative text font change attribute. At the moment, all prior font sizes will be overwritten." + messageMorph contents addAttribute: ( + TextFontChange fontNumber: (font textStyle fontIndexOf: font))].! - messageMorph ifNotNil: [ - | fontToUse colorToUse | - fontToUse := self userInterfaceTheme font ifNil: [TextStyle defaultFont]. - colorToUse := self userInterfaceTheme textColor ifNil: [Color black]. - - messageMorph - hResizing: #shrinkWrap; - vResizing: #shrinkWrap. - - messageMorph contents - addAttribute: (TextFontReference toFont: fontToUse); - addAttribute: (TextColor color: colorToUse). - messageMorph textColor: colorToUse].!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2021