Packages August 2023

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Monticello-ct.796.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.796.mcz ==================== Summary ==================== Name: Monticello-ct.796 Author: ct Time: 18 August 2023, 6:28:53.816796 pm UUID: 1ed3b793-07d1-5c4f-ab54-70c9eb99ccaf Ancestors: Monticello-ct.795 Improves readability of MCWorkingCopyBrowser>>#addWorkingCopy. Thanks to Marcel (mt) & Tim (tpr) for the feedback! =============== Diff against Monticello-ct.795 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions') ----- addWorkingCopy + | name packageInfo | - |name| name := Project uiManager request: 'Name of package:' translated. + name isEmptyOrNil ifTrue: [^ self]. + + packageInfo := PackageInfo registerPackageName: name. + name := packageInfo name. "PackageInfo might assign a different name, e.g., for sanitization (see PackageInfo class>>#sanitizeName:)" + workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). + workingCopyWrapper := nil. + + self repositorySelection: 0. - name isEmptyOrNil ifFalse: - [name := (PackageInfo registerPackageName: name) name. - workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). - workingCopyWrapper := nil. - self repositorySelection: 0]. self workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList. self changedButtons.!

1 0

The Trunk: Monticello-ct.793.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.793.mcz ==================== Summary ==================== Name: Monticello-ct.793 Author: ct Time: 17 August 2023, 9:56:07.31349 am UUID: bd190a4a-830f-4347-8b3f-75fc44316702 Ancestors: Monticello-tpr.792 Fixes regression in MCFileBasedRepository>>#versionNamed: that no longer answered nil for absent versions. Adds the comment from super to document this behavior clearer. =============== Diff against Monticello-tpr.792 =============== Item was changed: ----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') ----- versionNamed: aMCVersionName + "Answer the MCVersion with name, aMCVersionName, or nil if it doesn't exist in this repository." - "For FileBased repositories, aMCVersionName must have the appropriate extension!! Try to handle that " | version | version := self cache at: aMCVersionName ifAbsent: [[self loadVersionFromFileNamed: aMCVersionName ] on: FileDoesNotExistException , NotFound do: [:err| "in some cases we try to load package versions where aMCVersionName does not include the filename extension. Try again with the mcz extension; we might need to be even cleverer?" + [self loadVersionFromFileNamed: aMCVersionName, '.mcz'] + on: FileDoesNotExistException , NotFound + do: [:err2 | nil]] ]. - err return: (self loadVersionFromFileNamed: aMCVersionName, '.mcz')] ]. self resizeCache: cache. (version notNil and: [ version isCacheable ]) ifTrue: [ cache at: aMCVersionName asMCVersionName put: version ]. ^ version!

1 0

The Trunk: Monticello-ct.795.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.795.mcz ==================== Summary ==================== Name: Monticello-ct.795 Author: ct Time: 18 August 2023, 6:08:35.533379 pm UUID: b2acee72-e230-624f-b0da-50a78828eba4 Ancestors: Monticello-ct.794, Monticello-ct.793 Merges Monticello-ct.793 (fixes regression in MCFileBasedRepository>>#versionNamed:). =============== Diff against Monticello-ct.794 =============== Item was changed: ----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') ----- versionNamed: aMCVersionName + "Answer the MCVersion with name, aMCVersionName, or nil if it doesn't exist in this repository." - "For FileBased repositories, aMCVersionName must have the appropriate extension!! Try to handle that " | version | version := self cache at: aMCVersionName ifAbsent: [[self loadVersionFromFileNamed: aMCVersionName ] on: FileDoesNotExistException , NotFound do: [:err| "in some cases we try to load package versions where aMCVersionName does not include the filename extension. Try again with the mcz extension; we might need to be even cleverer?" + [self loadVersionFromFileNamed: aMCVersionName, '.mcz'] + on: FileDoesNotExistException , NotFound + do: [:err2 | nil]] ]. - err return: (self loadVersionFromFileNamed: aMCVersionName, '.mcz')] ]. self resizeCache: cache. (version notNil and: [ version isCacheable ]) ifTrue: [ cache at: aMCVersionName asMCVersionName put: version ]. ^ version!

1 0

The Trunk: Morphic-mt.2123.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2123.mcz ==================== Summary ==================== Name: Morphic-mt.2123 Author: mt Time: 18 August 2023, 11:50:17.756619 am UUID: 50623e86-951e-4644-8755-68603d683800 Ancestors: Morphic-mt.2122 Remove some dead code that has been around since 4.3 but was never used. #isParagraphAttribute was also never implemented. See #changeEmphasis:. There, #replaceSelectionWith: works just fine. =============== Diff against Morphic-mt.2122 =============== Item was removed: - ----- Method: TextEditor>>applyAttribute: (in category 'private') ----- - applyAttribute: aTextAttribute - "The user selected aTextAttribute via shortcut, menu or other means. - If there is a selection, apply the attribute to the selection. - In any case use the attribute for the user input (emphasisHere)" - | interval | - - emphasisHere := Text addAttribute: aTextAttribute toArray: emphasisHere. - - interval := self selectionInterval. - (interval isEmpty and: [ aTextAttribute isParagraphAttribute not ]) - ifTrue: [ ^self ]. - - self text addAttribute: aTextAttribute from: interval first to: interval last. - paragraph recomposeFrom: interval first to: interval last delta: 0. - self recomputeSelection. "Needed so visible selection is updated to reflect new visual extent of selection" - morph changed! Item was removed: - ----- Method: TextEditor>>unapplyAttribute: (in category 'private') ----- - unapplyAttribute: aTextAttribute - "The user selected aTextAttribute to be removed. - If there is a selection, unapply the attribute to the selection. - In any case do not use the attribute for the user input (emphasisHere)" - - | interval | - - emphasisHere := emphasisHere copyWithout: aTextAttribute. - - interval := self selectionInterval. - (interval isEmpty and: [ aTextAttribute isParagraphAttribute not ]) - ifTrue: [ ^self ]. - - self text removeAttribute: aTextAttribute from: interval first to: interval last. - paragraph recomposeFrom: interval first to: interval last delta: 0. - self recomputeSelection. "Needed so visible selection is updated to reflect new visual extent of selection" - morph changed!

1 0

The Trunk: Graphics-mt.542.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.542.mcz ==================== Summary ==================== Name: Graphics-mt.542 Author: mt Time: 18 August 2023, 11:42:10.100619 am UUID: 89ffc0c0-851f-f84b-9354-149830215c19 Ancestors: Graphics-ct.541 Complements EToys-mt.500 =============== Diff against Graphics-ct.541 =============== Item was added: + ----- Method: Rectangle>>intersectsAny: (in category 'testing') ----- + intersectsAny: someRectangles + "Answer whether the receiver intersects any of someRectangles." + + ^ someRectangles anySatisfy: [:anotherRectangle | + self intersects: anotherRectangle]!

1 0

The Trunk: EToys-mt.500.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.500.mcz ==================== Summary ==================== Name: EToys-mt.500 Author: mt Time: 18 August 2023, 11:41:34.646619 am UUID: f5a034b3-a503-dd4a-a52f-c568156f3cd5 Ancestors: EToys-mt.499 Rescue #intersectsAny: from EToys over to Graphics package. =============== Diff against EToys-mt.499 =============== Item was removed: - ----- Method: Rectangle>>intersectsAny: (in category '*Etoys-Squeakland-testing') ----- - intersectsAny: rectangleList - "Answer whether aRectangle intersects any of a list of other rectangles." - - rectangleList do: [:r | (self intersects: r) ifTrue: [^ true]]. - ^ false!

1 0

The Trunk: CommandLine-mt.25.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Marcel Taeumel uploaded a new version of CommandLine to project The Trunk: http://source.squeak.org/trunk/CommandLine-mt.25.mcz ==================== Summary ==================== Name: CommandLine-mt.25 Author: mt Time: 18 August 2023, 11:34:53.591619 am UUID: 16762c26-4653-5d48-8626-a4124294ae86 Ancestors: CommandLine-ct.24 Replace not-implemented send to #imageEntry. =============== Diff against CommandLine-ct.24 =============== Item was changed: ----- Method: CommandLineToolSet class>>handleError: (in category 'debugging - handlers') ----- handleError: anError "Print out a sensible stack trace and bail" + self saveSnapshotOnError ifTrue: [ Smalltalk saveAs: 'Debug-' , (FileDirectory localNameFor: Smalltalk imageName) ]. - self saveSnapshotOnError ifTrue: [ Smalltalk saveAs: 'Debug-' , Smalltalk imageEntry name ]. anError printVerboseOn: FileStream stderr. FileStream stderr flush. Smalltalk snapshot: false andQuit: true! Item was changed: ----- Method: CommandLineToolSet class>>handleUserInterruptRequest: (in category 'debugging - handlers') ----- handleUserInterruptRequest: aString + self saveSnapshotOnError ifTrue: [ Smalltalk saveAs: 'Debug-' , (FileDirectory localNameFor: Smalltalk imageName) ]. - self saveSnapshotOnError ifTrue: [ Smalltalk saveAs: 'Debug-' , Smalltalk imageEntry name ]. FileStream stderr nextPutAll: aString. FileStream stderr flush. Smalltalk snapshot: false andQuit: true!

1 0

The Trunk: HelpSystem-Core-ct.143.mcz
by commits＠source.squeak.org 18 Aug '23

18 Aug '23

Christoph Thiede uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-ct.143.mcz ==================== Summary ==================== Name: HelpSystem-Core-ct.143 Author: ct Time: 18 August 2023, 12:32:57.339041 am UUID: e8fa3f5f-0f7a-f747-a9c9-d978156280fa Ancestors: HelpSystem-Core-mt.142 Slightly refactors SearchTopic by extracting some methods. This makes it possible to customize search in subclasses by overriding #doSearch and #writeResultText (which I am doing in another project). =============== Diff against HelpSystem-Core-mt.142 =============== Item was added: + ----- Method: SearchTopic>>doSearch (in category 'private') ----- + doSearch + + (self topicsToSearch + sorted: [:t1 :t2 | t1 priorityForSearch <= t2 priorityForSearch]) + do: [:topic | + | nestedResults | + nestedResults := OrderedCollection new. + self mutex critical: [results add: topic -> nestedResults]. + self find: self term in: {topic} results: nestedResults]. + + results add: 'Search finished.'.! Item was changed: ----- Method: SearchTopic>>startSearch (in category 'private') ----- startSearch self stopSearch. results := OrderedCollection new. self topicsToSearch ifEmpty: [ self changed: #contents. ^ self]. process := [ + self doSearch. - (self topicsToSearch - sorted: [:t1 :t2 | t1 priorityForSearch <= t2 priorityForSearch]) - do: [:topic | - | nestedResults | - nestedResults := OrderedCollection new. - self mutex critical: [results add: topic -> nestedResults]. - self find: self term in: {topic} results: nestedResults]. - results add: 'Search finished.'. self triggerUpdateContents. ] forkAt: 35.! Item was changed: ----- Method: SearchTopic>>updateResultText (in category 'private') ----- updateResultText resultText := '' asText. self mutex critical: [ + self writeResultText]. - results ifNil: [^ resultText]. - results do: [:topicToResult | - topicToResult isString - ifTrue: [resultText append: ( - (topicToResult, String cr) asText - addAttribute: (TextColor color: (Color gray: 0.7)); - yourself)] - ifFalse: [ - resultText append: ( - ('\----- Matches found in ''', topicToResult key title, ''' -----\\') withCRs asText - addAttribute: (TextColor color: (Color gray: 0.7))). - topicToResult value do: [:entry | - resultText append: (self printResultEntry: entry)] - ]]]. ^ resultText! Item was added: + ----- Method: SearchTopic>>writeResultText (in category 'private') ----- + writeResultText + + results ifNil: [^ resultText]. + results do: [:topicToResult | + topicToResult isString + ifTrue: [resultText append: ( + (topicToResult, String cr) asText + addAttribute: (TextColor color: (Color gray: 0.7)); + yourself)] + ifFalse: [ + resultText append: ( + ('\----- Matches found in ''', topicToResult key title, ''' -----\\') withCRs asText + addAttribute: (TextColor color: (Color gray: 0.7))). + topicToResult value do: [:entry | + resultText append: (self printResultEntry: entry)] + ]]!

1 0

The Trunk: PackageInfo-Base-ct.78.mcz
by commits＠source.squeak.org 17 Aug '23

17 Aug '23

Christoph Thiede uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-ct.78.mcz ==================== Summary ==================== Name: PackageInfo-Base-ct.78 Author: ct Time: 17 August 2023, 1:51:29.772905 pm UUID: e4da93e5-272c-3340-9faf-f83b13c31a79 Ancestors: PackageInfo-Base-ct.77 Complements Kernel-ct.1522 (merges sanitize-cat-names.1.cs, step 2/2). Must be loaded after PackageInfo-Base-ct.77 (step 1/2). =============== Diff against PackageInfo-Base-ct.77 =============== Item was changed: ----- Method: PackageInfo class>>named: (in category 'packages access') ----- named: aString + ^ Environment current packageOrganizer packageNamed: (self sanitizeName: aString) ifAbsent: [(self new packageName: aString) register]! - ^ Environment current packageOrganizer packageNamed: aString ifAbsent: [(self new packageName: aString) register]! Item was changed: ----- Method: PackageInfo>>packageName: (in category 'naming') ----- packageName: aString + packageName := (self class sanitizeName: aString)! - packageName := aString! Item was changed: ----- Method: PackageOrganizer>>packageNamed:ifAbsent: (in category 'searching') ----- packageNamed: aString ifAbsent: errorBlock + ^ packages at: (PackageInfo sanitizeName: aString) ifAbsent: errorBlock! - ^ packages at: aString ifAbsent: errorBlock! Item was changed: ----- Method: PackageOrganizer>>packageNamed:ifPresent: (in category 'searching') ----- packageNamed: aString ifPresent: aBlock + ^ packages at: (PackageInfo sanitizeName: aString) ifPresent: aBlock! - ^ packages at: aString ifPresent: aBlock! Item was changed: ----- Method: PackageOrganizer>>packageNamed:ifPresent:ifAbsent: (in category 'searching') ----- packageNamed: aString ifPresent: aBlock ifAbsent: errorBlock + ^ packages at: (PackageInfo sanitizeName: aString) ifPresent: aBlock ifAbsent: errorBlock! - ^ packages at: aString ifPresent: aBlock ifAbsent: errorBlock! Item was changed: ----- Method: PackageOrganizer>>registerPackage: (in category 'registering') ----- registerPackage: aPackageInfo packages at: aPackageInfo packageName put: aPackageInfo. self changed: #packages; changed: #packageNames. + ^ aPackageInfo! - ! Item was changed: + ----- Method: PackageServices class>>allServices (in category 'services') ----- - ----- Method: PackageServices class>>allServices (in category 'as yet unclassified') ----- allServices ^ ServiceClasses gather: [:ea | ea services]! Item was changed: + ----- Method: PackageServices class>>initialize (in category 'class initialization') ----- - ----- Method: PackageServices class>>initialize (in category 'as yet unclassified') ----- initialize ServiceClasses := Set new! Item was changed: + ----- Method: PackageServices class>>register: (in category 'services') ----- - ----- Method: PackageServices class>>register: (in category 'as yet unclassified') ----- register: aClass ServiceClasses add: aClass! Item was changed: + ----- Method: PackageServices class>>unregister: (in category 'services') ----- - ----- Method: PackageServices class>>unregister: (in category 'as yet unclassified') ----- unregister: aClass ServiceClasses remove: aClass!

1 0

The Trunk: Monticello-ct.794.mcz
by commits＠source.squeak.org 17 Aug '23

17 Aug '23

Christoph Thiede uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.794.mcz ==================== Summary ==================== Name: Monticello-ct.794 Author: ct Time: 17 August 2023, 1:50:47.850905 pm UUID: 029d6e34-ea91-6643-b3c0-0a6fffd47a99 Ancestors: Monticello-tpr.792 Complements Kernel-ct.1522 (merges sanitize-cat-names.1.cs, step 2/2). =============== Diff against Monticello-tpr.792 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions') ----- addWorkingCopy |name| name := Project uiManager request: 'Name of package:' translated. name isEmptyOrNil ifFalse: + [name := (PackageInfo registerPackageName: name) name. - [PackageInfo registerPackageName: name. workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). workingCopyWrapper := nil. self repositorySelection: 0]. self workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList. self changedButtons.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2023