Packages November 2023

packages@lists.squeakfoundation.org

1 participants
89 discussions

The Trunk: Morphic-ct.2141.mcz
by commits＠source.squeak.org 24 Nov '23

24 Nov '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2141.mcz ==================== Summary ==================== Name: Morphic-ct.2141 Author: ct Time: 24 November 2023, 8:47:14.879561 am UUID: 153f7023-a1cf-400e-875c-0a8af0c5816c Ancestors: Morphic-mt.2140 Categories uncategorized methods. =============== Diff against Morphic-mt.2140 =============== Item was changed: + ----- Method: DockingBarMenuMorph>>popUpAdjacentTo:forHand:from: (in category 'control') ----- - ----- Method: DockingBarMenuMorph>>popUpAdjacentTo:forHand:from: (in category 'as yet unclassified') ----- popUpAdjacentTo: rightOrLeftPoint forHand: hand from: sourceItem | ownerInWorld world | super popUpAdjacentTo: rightOrLeftPoint forHand: hand from: sourceItem. "Docking bar and protruding menu should appear visually merged. Move the source item behind the receiver. If we did it the other way around, other navigators and docking bars in front of the sourceItem would cover the receiver. For the same reason, we can't use a higher different morphic layer numbers for docking bar menus because this would hide them after all other navigators." world := owner world. ownerInWorld := sourceItem firstOwnerSuchThat: [:thisOwner | thisOwner owner == world]. world addMorph: ownerInWorld inFrontOf: self.! Item was changed: + ----- Method: SimpleButtonMorph class>>newWithLabel: (in category 'instance creation') ----- - ----- Method: SimpleButtonMorph class>>newWithLabel: (in category 'as yet unclassified') ----- newWithLabel: labelString ^ self basicNew initializeWithLabel: labelString ! Item was changed: + ----- Method: TextAnchor>>printOn: (in category 'printing') ----- - ----- Method: TextAnchor>>printOn: (in category 'as yet unclassified') ----- printOn: aStream super printOn: aStream. aStream nextPutAll: ' for '. self anchoredMorph printOn: aStream.! Item was changed: + ----- Method: TransformMorph>>adoptPaneColor: (in category 'accessing') ----- - ----- Method: TransformMorph>>adoptPaneColor: (in category 'as yet unclassified') ----- adoptPaneColor: aColor "Ignore. This is a window-color feature and thus not used for submorphs that are in a scroll container. Note that other layout containers are not effected such as button rows."!

1 0

The Trunk: MonticelloConfigurations-mt.183.mcz
by commits＠source.squeak.org 23 Nov '23

23 Nov '23

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.183.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.183 Author: mt Time: 23 November 2023, 11:25:11.539617 am UUID: 265ae84f-a92e-4c41-b886-1597de160706 Ancestors: MonticelloConfigurations-ct.182 Hide oudated/unavailable CI info for release versions. GitHub deletes those after x days. =============== Diff against MonticelloConfigurations-ct.182 =============== Item was changed: ----- Method: MCMcmUpdater>>updateMessageFor: (in category 'private') ----- updateMessageFor: previousUpdateLevel + | ciTemplate ciStamp | + ciTemplate := ' CI status: <a href="{8}"><img src="{7}" /> {9}</{10}>'. + ciStamp := SystemVersion current ciStatusTimestamp + ifNil: [SystemVersion current isRelease + ifTrue: [ciTemplate := '' "Drop outdated/unavailable CI info for releases"] + ifFalse: ['(build inaccessible!!)' translated]]. + + ^ ('Update completed. Version: {1} Update: {3}{2} Url: <a href="{4}">{4}</{10}> Map: ''{5}''', ciTemplate, '{6}{11}' translated format: { - ^ ('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}{11}' translated format: { SystemVersion current version escapeEntities. SystemVersion current highestUpdate. (previousUpdateLevel = SystemVersion current highestUpdate ifTrue: [''] ifFalse: [previousUpdateLevel asString, ' -> ']) escapeEntities. self repository escapeEntities. MCMcmUpdater updateMapName escapeEntities. SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | ' {1}' format: { d escapeEntities. Preferences standardButtonFont familyName. Preferences standardButtonFont pointSize. }]. SystemVersion current ciStatusBadgeUrl. SystemVersion current ciStatusPageUrl. + ciStamp. - 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'. SystemVersion current recommendedVMUpdateInfo ifNil: [''] ifNotNil: [:info | ' A newer VM is recommended ({1} -> {2})!! Visit the <a href="{3}">project page</{4}> to download it.' translated format: { + info key escapeEntities. + info value escapeEntities. - info key. - info value. SystemVersion current vmUpdateURL. 'a'. "avoid Windows Defender again" Preferences standardButtonFont familyName. Preferences standardButtonFont pointSize }] }) asTextFromHtml!

1 0

The Trunk: Kernel-eem.1536.mcz
by commits＠source.squeak.org 21 Nov '23

21 Nov '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1536.mcz ==================== Summary ==================== Name: Kernel-eem.1536 Author: eem Time: 20 November 2023, 5:12:24.973488 pm UUID: bf1ff5b3-69ef-4325-8575-a5c20487aa75 Ancestors: Kernel-eem.1535 Oops; fix the Context>>cannotReturn:to: comment. =============== Diff against Kernel-eem.1535 =============== Item was changed: ----- Method: Context>>cannotReturn:to: (in category 'private') ----- cannotReturn: result to: homeContext + "The receiver tried to return result to homeContext that cannot be returned from. - "The receiver tried to return result to homeContext that no longer exists. Capture the return pc in a BlockCannotReturn. Nil the pc to prevent repeat attempts and/or invalid continuation. Answer the result of raising the exception." | exception | exception := BlockCannotReturn new. exception result: result; deadHome: homeContext; pc: self previousPc. pc := nil. ^exception signal!

1 0

The Trunk: Kernel-eem.1535.mcz
by commits＠source.squeak.org 21 Nov '23

21 Nov '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1535.mcz ==================== Summary ==================== Name: Kernel-eem.1535 Author: eem Time: 20 November 2023, 5:05:17.734241 pm UUID: 44f1833a-15d0-4166-b361-293c85a40e0b Ancestors: Kernel-mt.1534 On a block cannot return error capture the pc of the failing return bytecode and mark the block context dead (nil its pc) so that computation cannot continue to any invalid state. =============== Diff against Kernel-mt.1534 =============== Item was changed: Error subclass: #BlockCannotReturn + instanceVariableNames: 'pc result deadHome' - instanceVariableNames: 'result deadHome' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Exceptions'! !BlockCannotReturn commentStamp: '<historical>' prior: 0! This class is private to the EHS implementation. Its use allows for ensured execution to survive code such as: [self doThis. ^nil] ensure: [self doThat] Signaling or handling this exception is not recommended.! Item was added: + ----- Method: BlockCannotReturn>>pc (in category 'accessing') ----- + pc + + ^ pc! Item was added: + ----- Method: BlockCannotReturn>>pc: (in category 'accessing') ----- + pc: pcIndex + + pc := pcIndex! Item was changed: ----- Method: Context>>cannotReturn:to: (in category 'private') ----- cannotReturn: result to: homeContext + "The receiver tried to return result to homeContext that no longer exists. + Capture the return pc in a BlockCannotReturn. Nil the pc to prevent repeat + attempts and/or invalid continuation. Answer the result of raising the exception." - "The receiver tried to return result to homeContext that no longer exists." + | exception | + exception := BlockCannotReturn new. + exception - ^ BlockCannotReturn new result: result; deadHome: homeContext; + pc: self previousPc. + pc := nil. + ^exception signal! - signal!

1 0

The Trunk: MonticelloConfigurations-ct.182.mcz
by commits＠source.squeak.org 20 Nov '23

20 Nov '23

Christoph Thiede uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-ct.182.mcz ==================== Summary ==================== Name: MonticelloConfigurations-ct.182 Author: ct Time: 20 November 2023, 9:50:13.899173 pm UUID: 3e2bf297-aa4c-48ce-b067-8d96cd1c4750 Ancestors: MonticelloConfigurations-ct.181 Fixes escaping regression from the parent version. =============== Diff against MonticelloConfigurations-ct.181 =============== 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}{11}' translated format: { SystemVersion current version escapeEntities. SystemVersion current highestUpdate. (previousUpdateLevel = SystemVersion current highestUpdate ifTrue: [''] ifFalse: [previousUpdateLevel asString, ' -> ']) escapeEntities. self repository escapeEntities. MCMcmUpdater updateMapName escapeEntities. SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | ' {1}' format: { d escapeEntities. Preferences standardButtonFont familyName. Preferences standardButtonFont pointSize. }]. 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'. SystemVersion current recommendedVMUpdateInfo ifNil: [''] ifNotNil: [:info | ' A newer VM is recommended ({1} -> {2})!! Visit the <a href="{3}">project page</{4}> to download it.' translated format: { + info key. + info value. - info key escapeEntities. - info value escapeEntities. SystemVersion current vmUpdateURL. 'a'. "avoid Windows Defender again" Preferences standardButtonFont familyName. Preferences standardButtonFont pointSize }] }) asTextFromHtml!

1 0

The Trunk: EToys-ct.507.mcz
by commits＠source.squeak.org 20 Nov '23

20 Nov '23

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.507.mcz ==================== Summary ==================== Name: EToys-ct.507 Author: ct Time: 20 November 2023, 9:47:36.195889 pm UUID: e4f4a0ab-41bc-4430-ad3b-5fc4c2089263 Ancestors: EToys-dtl.506 Recategorizations. =============== Diff against EToys-dtl.506 =============== Item was changed: + ----- Method: CachingMorph>>updateCacheCanvas: (in category 'caching') ----- - ----- Method: CachingMorph>>updateCacheCanvas: (in category 'as yet unclassified') ----- updateCacheCanvas: aCanvas "Update the cached image of the morphs being held by this hand." | myBnds rectList | myBnds := self fullBounds. (cacheCanvas isNil or: [cacheCanvas extent ~= myBnds extent]) ifTrue: [cacheCanvas := (aCanvas allocateForm: myBnds extent) getCanvas. cacheCanvas translateBy: myBnds origin negated during: [:tempCanvas | super fullDrawOn: tempCanvas]. ^self]. "incrementally update the cache canvas" rectList := damageRecorder invalidRectsFullBounds: (0 @ 0 extent: myBnds extent). damageRecorder reset. rectList do: [:r | cacheCanvas translateTo: myBnds origin negated clippingTo: r during: [:c | c fillColor: Color transparent. "clear to transparent" super fullDrawOn: c]]! Item was changed: + ----- Method: KidNavigationMorph>>addButtons (in category 'buttons') ----- - ----- Method: KidNavigationMorph>>addButtons (in category 'as yet unclassified') ----- addButtons (self addARow: { self inAColumn: {self buttonFind}. self transparentSpacerOfSize:6@6. self transparentSpacerOfSize:6@6. self inAColumn: {self buttonNewProject}. }) layoutInset: 6. self addARow: { self transparentSpacerOfSize:0@6. }. (self addARow: { self inAColumn: {self buttonPublish}. }) layoutInset: 6. self addARow: { self transparentSpacerOfSize:0@18. }. (self addARow: { self inAColumn: {self buttonQuit}. }) layoutInset: 6. ! Item was changed: + ----- Method: KidNavigationMorph>>amountToShowWhenSmall (in category 'private - ui') ----- - ----- Method: KidNavigationMorph>>amountToShowWhenSmall (in category 'as yet unclassified') ----- amountToShowWhenSmall ^49! Item was changed: + ----- Method: KidNavigationMorph>>colorForButtons (in category 'buttons') ----- - ----- Method: KidNavigationMorph>>colorForButtons (in category 'as yet unclassified') ----- colorForButtons ^Color r: 0.613 g: 0.71 b: 1.0 ! Item was changed: + ----- Method: KidNavigationMorph>>fontForButtons (in category 'buttons') ----- - ----- Method: KidNavigationMorph>>fontForButtons (in category 'as yet unclassified') ----- fontForButtons ^Preferences standardEToysFont! Item was changed: + ----- Method: TextAnchorPlus>>emphasizeScanner: (in category 'visiting') ----- - ----- Method: TextAnchorPlus>>emphasizeScanner: (in category 'as yet unclassified') ----- emphasizeScanner: scanner anchoredMorph ifNil: [^self]. (anchoredMorph owner isKindOf: TextPlusPasteUpMorph) ifFalse: [^anchoredMorph := nil]. "follwing has been removed - there was no implementation for it" "scanner setYFor: anchoredMorph" !

1 0

The Trunk: Collections-ct.1056.mcz
by commits＠source.squeak.org 20 Nov '23

20 Nov '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1056.mcz ==================== Summary ==================== Name: Collections-ct.1056 Author: ct Time: 20 November 2023, 9:34:16.621505 pm UUID: 1bac04f6-8681-43b9-8df2-c60b49d1cd0f Ancestors: Collections-ct.1054 Implements missing hash on TextIndent. =============== Diff against Collections-ct.1054 =============== Item was added: + ----- Method: TextIndent>>hash (in category 'comparing') ----- + hash + + ^ self amount hash!

1 0

The Trunk: Morphic-mt.2140.mcz
by commits＠source.squeak.org 16 Nov '23

16 Nov '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2140.mcz ==================== Summary ==================== Name: Morphic-mt.2140 Author: mt Time: 16 November 2023, 3:20:33.050655 pm UUID: ed3d0e30-60de-8642-9758-0ae4ca2d26a3 Ancestors: Morphic-ct.2139 Makes scrolling in nested scroll panes more comfortable. If an inner pane cannot scroll any further, propagate the event one level up so that an outer pane can scroll instead. Also works with scroll-by-keyboard. =============== Diff against Morphic-ct.2139 =============== Item was changed: ----- Method: ScrollPane>>filterEvent:for: (in category 'event filtering') ----- filterEvent: aKeyboardEvent for: morphOrNil + "See #initialize. This filter should be installed as keyboard event filter during the bubbling phase to support nested scroll panes from innermost to outermost, like the default #mouseWheel: support does because of normal event dispatching." - "See #initialize. This filter should be installed as keyboard event filter during the capture phase." (aKeyboardEvent isKeystroke and: [self scrollByKeyboard: aKeyboardEvent]) ifTrue: [aKeyboardEvent ignore]. ^ aKeyboardEvent! Item was changed: ----- Method: ScrollPane>>handlesMouseWheel: (in category 'event handling') ----- handlesMouseWheel: evt + + evt isWheelUp ifTrue: [^ scrollBar value > scrollBar minimumValue]. + evt isWheelDown ifTrue: [^ scrollBar value < scrollBar maximumValue]. + evt isWheelLeft ifTrue: [^ hScrollBar value > hScrollBar minimumValue]. + evt isWheelRight ifTrue: [^ hScrollBar value < hScrollBar maximumValue]. + + ^ false! - ^ true! Item was changed: ----- Method: ScrollPane>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self initializePreferences. hasFocus := false. self initializeScrollBars. "" self extent: self defaultExtent. self updateMinimumExtent. self setDefaultParameters. + self addKeyboardBubbleFilter: self.! - self addKeyboardCaptureFilter: self.! Item was changed: ----- Method: ScrollPane>>scrollByKeyboard: (in category 'event handling') ----- scrollByKeyboard: event + "Backwards compatibility. If event is ctrl+up/down then scroll and answer true. Use mouse-wheel events by default, see #mouseWheel:." - "If event is ctrl+up/down then scroll and answer true. Backwards compatibility." + (event controlKeyPressed or: [event commandKeyPressed]) ifFalse: [^ false]. + + event keyCharacter = Character arrowUp ifTrue: [ + ^ scrollBar value > scrollBar minimumValue + ifTrue: [scrollBar scrollUp: 3. true] + ifFalse: [false] ]. + event keyCharacter = Character arrowDown ifTrue: [ + ^ scrollBar value < scrollBar maximumValue + ifTrue: [scrollBar scrollDown: 3. true] + ifFalse: [false] ]. + " + event keyCharacter = Character arrowRight ifTrue: [ + ^ hScrollBar value > hScrollBar minimumValue + ifTrue [hScrollBar scrollDown: 3. true] + ifFalse: [false] ]. + event keyCharacter = Character arrowLeft ifTrue: [ + ^ hScrollBar value < hScrollBar maximumValue + ifTrue: [hScrollBar scrollUp: 3. true] + ifFalse: [false] ]. + " + - (event controlKeyPressed or:[event commandKeyPressed "??? key decode table in event sensor does not change CTRL+up/down !!!!!!"]) ifFalse: [^ false]. - event keyCharacter = Character arrowUp - ifTrue: - [scrollBar scrollUp: 3. - ^ true]. - event keyCharacter = Character arrowDown - ifTrue: - [scrollBar scrollDown: 3. - ^ true]. - "event keyCharacter = Character arrowRight - ifTrue: - [hScrollBar scrollDown: 3. - ^ true]. - event keyCharacter = Character arrowLeft - ifTrue: - [hScrollBar scrollUp: 3. - ^ true]." ^ false!

1 0

The Trunk: Tools-ct.1096.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1096.mcz ==================== Summary ==================== Name: Tools-ct.1096 Author: ct Time: 11 November 2023, 5:30:40.1038 pm UUID: 8a3f14cf-d590-704b-a255-0603a2789a23 Ancestors: Tools-ct.1094 Proposal: Adds Process>>#browse. Is this of interest and is it okay to do this without a hop through the ToolSet? =============== Diff against Tools-ct.1094 =============== Item was added: + ----- Method: Process>>browse (in category '*Tools-Browsing') ----- + browse + + ^ ProcessBrowser browseProcess: self! Item was added: + ----- Method: ProcessBrowser class>>browseProcess: (in category 'instance creation') ----- + browseProcess: aProcess + + ^ self new + selectProcess: aProcess; + open! Item was changed: ----- Method: ProcessBrowser class>>open (in category 'instance creation') ----- open + + ^ self new open! - ^ToolBuilder open: self new! Item was added: + ----- Method: ProcessBrowser>>open (in category 'toolbuilder') ----- + open + + ^ ToolBuilder open: self! Item was added: + ----- Method: ProcessBrowser>>selectProcess: (in category 'accessing') ----- + selectProcess: aProcess + + self processListIndex: (self processList indexOf: aProcess).!

1 0

The Trunk: System-ct.1434.mcz
by commits＠source.squeak.org 13 Nov '23

13 Nov '23

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1434.mcz ==================== Summary ==================== Name: System-ct.1434 Author: ct Time: 13 November 2023, 8:09:52.690583 pm UUID: 0cb48482-6401-a642-bdbd-303b739ecd66 Ancestors: System-ct.1433 Complements Tools-ct.1239 (Process>>#browse). =============== Diff against System-ct.1433 =============== Item was added: + ----- Method: ToolSet class>>browseProcess: (in category 'browsing') ----- + browseProcess: aProcess + + self default ifNil: [^ self inform: 'Cannot browse process' translated]. + ^ self default browseProcess: aProcess!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2023