Packages June 2023

packages@lists.squeakfoundation.org

1 participants
65 discussions

The Trunk: Collections-ct.1046.mcz
by commits＠source.squeak.org 15 Jun '23

15 Jun '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1046.mcz ==================== Summary ==================== Name: Collections-ct.1046 Author: ct Time: 15 June 2023, 7:07:03.73828 pm UUID: de94f084-3e97-de4c-a498-39a097a8ebd9 Ancestors: Collections-ct.1045 Fixes regression in #asCommaStringAnd for two-item collections. Thanks to Levente (ul) for the report! =============== Diff against Collections-ct.1045 =============== Item was changed: ----- Method: Collection>>asCommaStringAnd (in category 'printing - obsolete') ----- asCommaStringAnd + "Return collection printed as 'a, b, and c' (Oxford comma)" - "Return collection printed as 'a, b, and c' " self flag: #deprecate. + ^ String streamContents: [:s | + self size = 2 + ifTrue: [self asStringOn: s delimiter: ' and '] + ifFalse: [self asStringOn: s delimiter: ', ' last: ', and ']]! - ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ', and '] - !

1 0

The Trunk: ToolsTests-mt.122.mcz
by commits＠source.squeak.org 14 Jun '23

14 Jun '23

Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-mt.122.mcz ==================== Summary ==================== Name: ToolsTests-mt.122 Author: mt Time: 14 June 2023, 9:23:31.13519 am UUID: fad51405-ac66-8b4b-bc0c-a9c86b77c64a Ancestors: ToolsTests-ct.121 Fixes #textBrowseHierarchy* tests. =============== Diff against ToolsTests-ct.121 =============== Item was changed: ----- Method: BrowseTest>>currentHierarchyBrowsers (in category 'private') ----- currentHierarchyBrowsers ^ (Project current world submorphsSatisfying: [:each | + each isSystemWindow + and: [each model respondsTo: #isHierarchy] + and: [each model isHierarchy]]) asSet! - (each isKindOf: SystemWindow) - and: [each model isKindOf: HierarchyBrowser]]) asSet!

1 0

The Trunk: Collections-ct.1045.mcz
by commits＠source.squeak.org 13 Jun '23

13 Jun '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1045.mcz ==================== Summary ==================== Name: Collections-ct.1045 Author: ct Time: 13 June 2023, 11:23:46.884003 pm UUID: 79db8083-31b4-554f-83bd-42c6aac35e64 Ancestors: Collections-ct.1044 Fixes comment in asCommaStringAnd. Sorry for the noise. =============== Diff against Collections-ct.1044 =============== Item was changed: ----- Method: Collection>>asCommaStringAnd (in category 'printing - obsolete') ----- asCommaStringAnd + "Return collection printed as 'a, b, and c' " - "Return collection printed as 'a, b and c' " self flag: #deprecate. ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ', and '] !

1 0

The Trunk: Collections-ct.930.mcz
by commits＠source.squeak.org 13 Jun '23

13 Jun '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.930.mcz ==================== Summary ==================== Name: Collections-ct.930 Author: ct Time: 11 March 2021, 10:56:52.528559 am UUID: 6b1a0ee3-8c2d-a547-9ee2-f029a32d07b7 Ancestors: Collections-nice.929 Uses oxford comma in #asCommaStringAnd. Full discussion is here: http://forum.world.st/The-Inbox-Tools-ct-1015-mcz-tp5124286p5127654.html =============== Diff against Collections-nice.929 =============== Item was changed: ----- Method: Collection>>asCommaStringAnd (in category 'printing - obsolete') ----- asCommaStringAnd "Return collection printed as 'a, b and c' " self flag: #deprecate. + ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ', and '] - ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ' and '] !

1 0

The Trunk: CollectionsTests-ct.397.mcz
by commits＠source.squeak.org 13 Jun '23

13 Jun '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.397.mcz ==================== Summary ==================== Name: CollectionsTests-ct.397 Author: ct Time: 13 June 2023, 11:07:56.508003 pm UUID: 79ef9ab5-6bbd-cd43-88cb-75b43177c28b Ancestors: CollectionsTests-ct.396 Complements Collections-ct.1044 (oxford comma in #asCommaStringAnd). =============== Diff against CollectionsTests-ct.396 =============== Item was changed: ----- Method: CollectionTest>>testAsCommaStringAnd (in category 'tests') ----- testAsCommaStringAnd {OrderedCollection new. Set new.} do: [ :coll | self assert: coll asCommaStringAnd = ''. coll add: 1. self assert: coll asCommaStringAnd = '1'. coll add: 2; add: 3. + self assert: coll asCommaStringAnd = '1, 2, and 3'].! - self assert: coll asCommaStringAnd = '1, 2 and 3'].! Item was changed: ----- Method: LinkedListTest>>testAsCommaStringMore (in category 'tests - comma and delimiter') ----- testAsCommaStringMore "self assert: self oneTwoThreeItemCol asCommaString = '1, 2, 3'. + self assert: self oneTwoThreeItemCol asCommaStringAnd = '1, 2, and 3' - self assert: self oneTwoThreeItemCol asCommaStringAnd = '1, 2 and 3' " | result resultAnd index allElementsAsString | result:= self nonEmpty asCommaString . resultAnd:= self nonEmpty asCommaStringAnd . index := 1. (result findBetweenSubStrs: ',' )do: [:each | index = 1 ifTrue: [self assert: each= ((self nonEmpty at:index)asString)] ifFalse: [self assert: each= (' ',(self nonEmpty at:index) asString)]. index:=index+1 ]. + "verifying resultAnd :" - "verifying esultAnd :" allElementsAsString:=(resultAnd findBetweenSubStrs: ',' ). 1 to: allElementsAsString size do: [:i | i<(allElementsAsString size ) ifTrue: [ i = 1 ifTrue:[self assert: (allElementsAsString at:i)=((self nonEmpty at:i) asString)] ifFalse:[self assert: (allElementsAsString at:i)=(' ',(self nonEmpty at:i) asString)] ]. i=(allElementsAsString size) ifTrue:[ i = 1 ifTrue:[self assert: (allElementsAsString at:i)=( (self nonEmpty at:i ) asString ,' and ', (self nonEmpty at: ( i + 1) ) asString )] + ifFalse:[self assert: (allElementsAsString at:i)=( ' and ', (self nonEmpty at: i ) asString )] - ifFalse:[self assert: (allElementsAsString at:i)=( ' ' , (self nonEmpty at:i ) asString ,' and ', (self nonEmpty at: ( i + 1) ) asString )] ]. ].!

1 0

The Trunk: Collections-ct.1044.mcz
by commits＠source.squeak.org 13 Jun '23

13 Jun '23

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1044.mcz ==================== Summary ==================== Name: Collections-ct.1044 Author: ct Time: 13 June 2023, 11:07:20.689003 pm UUID: 4944371b-f79b-5540-b1af-b1bb641f6a6f Ancestors: Collections-mt.1043, Collections-ct.930 Merges Collections-ct.930: Uses oxford comma in #asCommaStringAnd. =============== Diff against Collections-mt.1043 =============== Item was changed: ----- Method: Collection>>asCommaStringAnd (in category 'printing - obsolete') ----- asCommaStringAnd "Return collection printed as 'a, b and c' " self flag: #deprecate. + ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ', and '] - ^String streamContents: [:s | self asStringOn: s delimiter: ', ' last: ' and '] !

1 0

The Trunk: Collections-mt.1043.mcz
by commits＠source.squeak.org 12 Jun '23

12 Jun '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1043.mcz ==================== Summary ==================== Name: Collections-mt.1043 Author: mt Time: 12 June 2023, 1:42:34.426515 pm UUID: 9cd16a22-7109-e245-8472-6666db485ccc Ancestors: Collections-ct.1042 Fix typo in comment =============== Diff against Collections-ct.1042 =============== Item was changed: SignedIntegerArray variableWordSubclass: #SignedWordArray instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Arrayed'! + !SignedWordArray commentStamp: 'mt 6/12/2023 13:42' prior: 0! + A SignedWordArray store 32bit signed Integer values in the range -16r80000000 (-2,147,483,648) to 16r7FFFFFFF (2,147,483,647) - !SignedWordArray commentStamp: 'nice 5/10/2020 17:22' prior: 0! - A SignedWordArray store 64bit signed Integer values in the range -16r80000000 (-2,147,483,648) to 16r7FFFFFFF (2,147,483,647) Negative values are stored as 2's complement.!

1 0

The Trunk: WebClient-Help-pre.14.mcz
by commits＠source.squeak.org 09 Jun '23

09 Jun '23

Patrick Rein uploaded a new version of WebClient-Help to project The Trunk: http://source.squeak.org/trunk/WebClient-Help-pre.14.mcz ==================== Summary ==================== Name: WebClient-Help-pre.14 Author: pre Time: 9 June 2023, 4:55:32.241055 pm UUID: 35b81cd9-5803-2e42-a541-1c4c60c7baf5 Ancestors: WebClient-Help-tpr.13 Fixes incorrect web server error handling documentation (#24 in the bug tracker). =============== Diff against WebClient-Help-tpr.13 =============== Item was changed: ----- Method: WebServerHelp class>>errorHandling (in category 'pages') ----- errorHandling "This method was automatically generated. Edit it using:" "WebServerHelp edit: #errorHandling" + <generated> + ^(HelpTopic - ^HelpTopic title: 'Error Handling' contents: 'By default WebServer will send a 500 response with a full debug stack when an error occurs. This may not be appropriate in production environments and consequently, the error handler can be customized. Typically, the error handler will perform one of the following actions: * Pass the error through. This is useful for debugging, when an error in WebServer should raise a notifier: + webServer errorHandler: [:err :request | err pass]. - webServer errorHandler:[:err :socket| err pass]. * Send the ''standard'' 500 response (including the full stack): You can simply use WebServer''s default action for this: + webServer errorHandler: [:err :request | webServer handleError: err request: request.]. - webServer errorHandler:[:err :socket| webServer handleError: err socket: socket.]. * Send a custom 500 response, or perform a redirect, for example: + webServer errorHandler: [:err :request | + [request send302Response: ''/error.html''] + on: Error + do: ["Ignore errors in error handling"] ]. - webServer errorHandler:[:err :socket| - [socket sendData: - ''HTTP/1.0 302 Temporary redirect'', String crlf, - ''Location: /error.html'', String crlf, - String crlf. - socket close] on: Error do:[ - "Ignore errors in error handling" - ]. - ]. Of course, you can use any possible combination; including the ability to turn error handling on and off via WebServer http requests.!! + ]style[(395 14 2 3 1 9 1 1 3 1 4 135 14 2 3 9 1 1 11 12 1 3 1 8 1 7 83 14 2 3 1 9 5 38 1 5 3 11 4 1 33 1 138),c000000118,,c000000118,,c000000118,cgray;,,c000000118,,c000000118,,c000000118,,c000000118,,c000000118,cgray;,,c000000118,,c000000118,,c000000118,,c000000118,,c000000118,,c000000118,,c000000118,cgray;,,c000118000,,c000000118,,c000000118,c000118000,,c000118000,!!' readStream nextChunkText) + key: #errorHandling; + shouldStyle: false; + yourself! - ]style[(384 11 13 2 3 2 6 1 1 3 1 4 2 123 10 13 2 3 2 6 1 11 12 1 3 1 7 1 6 3 69 11 13 2 3 2 6 1 3 1 6 1 9 4 33 1 8 5 4 23 1 8 5 11 4 4 6 1 5 1 1 3 7 3 1 4 33 3 1 5 135),cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cgray;,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cgray;,cblack;,c000126000,c000000126,cblack;,c000000126,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c126000126,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000000126,cblack;,c000000126,c000126000,cblack;,c000126126,cblack;,c000126000,cblack;,!!' readStream nextChunkText!

1 0

The Trunk: EToys-mt.499.mcz
by commits＠source.squeak.org 09 Jun '23

09 Jun '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.499.mcz ==================== Summary ==================== Name: EToys-mt.499 Author: mt Time: 9 June 2023, 1:54:14.992748 pm UUID: bb35e295-68b6-4f4c-af52-67627cf71c50 Ancestors: EToys-mt.498 Complement Morphic-mt.2112 =============== Diff against EToys-mt.498 =============== Item was removed: - ----- Method: SimpleHierarchicalListMorph class>>on:list:selected:changeSelected:menu:keystroke:autoExpand: (in category '*Etoys-Squeakland-instance creation') ----- - on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel autoExpand: aBoolean - "Create a 'pluggable' list view on the given model parameterized by the given message selectors. See ListView>>aboutPluggability comment." - - ^ self new - on: anObject - list: getListSel - selected: getSelectionSel - changeSelected: setSelectionSel - menu: getMenuSel - keystroke: keyActionSel - autoExpand: aBoolean - ! Item was removed: - ----- Method: SimpleHierarchicalListMorph>>on:list:selected:changeSelected:menu:keystroke:autoExpand: (in category '*Etoys-Squeakland-initialization') ----- - on: anObject list: getListSel selected: getSelectionSel changeSelected: setSelectionSel menu: getMenuSel keystroke: keyActionSel autoExpand: aBoolean - - self setProperty: #autoExpand toValue: aBoolean. - self model: anObject. - getListSelector := getListSel. - getSelectionSelector := getSelectionSel. - setSelectionSelector := setSelectionSel. - getMenuSelector := getMenuSel. - keystrokeActionSelector := keyActionSel. - autoDeselect := true. - self borderWidth: 1. - self list: self getList. - !

1 0

The Trunk: ToolBuilder-Morphic-mt.344.mcz
by commits＠source.squeak.org 09 Jun '23

09 Jun '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.344.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.344 Author: mt Time: 9 June 2023, 1:53:39.558748 pm UUID: 3ee84953-f0e8-db43-85c1-b0c8203d2a1b Ancestors: ToolBuilder-Morphic-ct.343 Complement Morphic-mt.2112 =============== Diff against ToolBuilder-Morphic-ct.343 =============== Item was changed: ----- Method: PluggableTreeMorph>>filterTreeNow (in category 'filtering') ----- filterTreeNow self hasFilter ifFalse: [^ self removeFilter]. "Show all current items again before filtering them out." self items do: [:item | item removeFilter]. (self filterMode caseOf: { [#siblings] -> [self filterTreeNowSiblings "default"]. [#visible] -> [self filterTreeNowVisible]. [#all] -> [self filterTreeNowAll] }) ifFalse: [ "Remove the last character and try filtering again." lastKeystrokes := lastKeystrokes allButLast: 1. ^ self filterTreeNow]. + + self itemsChanged.! - - self adjustSubmorphPositions.! Item was changed: ----- Method: PluggableTreeMorph>>fixateSelectionDuring: (in category 'selection') ----- fixateSelectionDuring: aBlock | vDelta | selectedMorph ifNil: [aBlock value. ^ self]. vDelta := ((selectedMorph localPointToGlobal: selectedMorph topLeft) - (scroller localPointToGlobal: scroller topLeft)) y. aBlock value. (selectedMorph notNil and: [selectedMorph visible]) ifTrue: [ + self fullBounds. "Compute layout for correct scrolling." self scrollToBottom. self scrollToShow: (selectedMorph bounds outsetBy: (0@vDelta corner: 0@0))].! Item was changed: ----- Method: PluggableTreeMorph>>removeFilter (in category 'filtering') ----- removeFilter "Remove the current filter. Keep the current selection stable unless it is expanded and needs more space for its children. Note that we must not check for #hasFilter here but in the sender if needed; see #filterTreeNow." lastKeystrokes := String empty. self filterMode = #all ifTrue: [ self items do: [:item | item removeFilter]. self collapseAllButSelection] ifFalse: [ self fixateSelectionDuring: [ self items do: [:item | item removeFilter]. + self itemsChanged]]. - self adjustSubmorphPositions]]. "Try to show all children again for the current selection." self scrollSelectionAndChildrenIntoView. self scrollSelectionAndExtraIntoView.! Item was changed: ----- Method: PluggableTreeMorph>>selectPath: (in category 'selection') ----- selectPath: path "Select the given path. Do not tell the model. Just update the view." | newSelection | path ifNil: [^ self]. path ifEmpty: [^ self selectedMorph: nil]. self items ifEmpty: [^ self]. newSelection := self selectPath: path in: self items first. + self itemsChanged. - self adjustSubmorphPositions. "First adjust, then select to keep selection visible." self selectedMorph: newSelection.! Item was changed: ----- Method: PluggableTreeMorph>>selectPath:in: (in category 'selection') ----- selectPath: path in: listItem + "Private. Use #selectPath: because this here does not invalidate the item's layout for performance reasons." - "Private. Use #selectPath:." listItem withSiblingsDo: [:each | each complexContents item = path first ifTrue: [ each extension visible: true. "Ensure visibility in case of a filter." path size = 1 ifTrue: [ "Complete match. Finished." ^ each]. each isExpanded ifFalse: [ each toggleExpandedState]. ^ each firstChild ifNotNil: [:firstChild | "Partial match. Go on..." self selectPath: path allButFirst in: firstChild]]]. ^ nil! Item was changed: ----- Method: PluggableTreeMorph>>toggleExpandedState: (in category 'keyboard navigation') ----- toggleExpandedState: aMorph aMorph toggleExpandedState. - self adjustSubmorphPositions. aMorph isExpanded ifTrue: [self scrollSelectionAndChildrenIntoView] ifFalse: [self scrollSelectionAndExtraIntoView].! Item was changed: ----- Method: PluggableTreeMorph>>update:with: (in category 'updating') ----- update: what with: anObject super update: what with: anObject. what == #objectChanged ifTrue: [ ^ self updateFromChangedObject: anObject]. what == #expandAllNodesRequested ifTrue: [ "EX: model changed: #expandAllNodesRequested with: #classChildren:." "EX: model changed: #expandAllNodesRequested with: {#classChildren:. Morph}." | scope item | scope := anObject isArray ifTrue: [anObject first] ifFalse: [anObject]. item := anObject isArray ifTrue: [anObject second]. getChildrenSelector == scope ifTrue: [ item ifNil: [self roots do: [:ea | self expandAll: ea]] ifNotNil: [self expandAll: (self items detect: [:ea | ea complexContents item == item])]. - self adjustSubmorphPositions. ^ self]]. what == #expandNodeRequested ifTrue: [ "EX: model changed: #expandNodeRequested with: {#classChildren:. Morph}." | scope item | scope := anObject first. item := anObject second. getChildrenSelector == scope ifTrue: [ self items detect: [:ea | ea complexContents item == item] ifFound: [:morph | (morph canExpand and: [morph isExpanded not]) ifTrue: [self toggleExpandedState: morph]]. ^ self]].! Item was changed: ----- Method: PluggableTreeMorph>>updateMorph: (in category 'updating') ----- updateMorph: morph morph complexContents refresh. morph refresh. morph isExpanded ifFalse: [self changed] ifTrue: [ morph toggleExpandedState; + toggleExpandedState]. - toggleExpandedState. - self adjustSubmorphPositions]. !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2023