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!