[squeak-dev] The Inbox: SystemReporter-ct.53.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Oct 18 16:54:25 UTC 2021
A new version of SystemReporter was added to project The Inbox:
http://source.squeak.org/inbox/SystemReporter-ct.53.mcz
==================== Summary ====================
Name: SystemReporter-ct.53
Author: ct
Time: 18 October 2021, 6:54:23.938498 pm
UUID: e1a37454-a58c-1b4d-9a8f-a91c4b6e7de6
Ancestors: SystemReporter-eem.52
Fixes a slip in the new "Image Packages" page of the SystemReporter.
=============== Diff against SystemReporter-eem.52 ===============
Item was changed:
----- Method: SystemReporter>>reportImagePackages: (in category 'reporting') -----
reportImagePackages: aStream
| organizer trunk treated inbox release releaseRepo attribute others |
organizer := PackageOrganizer default.
self header: 'System Categories with Unknown Package' on: aStream.
SystemOrganization categories
select: [:category | (organizer packageOfSystemCategory: category ifNone: []) isNil]
thenDo: [:category | aStream nextPutAll: category; cr].
aStream cr.
self header: 'Packages with Only Cache Repository' on: aStream.
organizer packages
select: [:package |
| repos |
repos := package mcPackage workingCopy repositoryGroup repositories.
repos size = 1 and: [repos first == MCRepository packageCache]]
thenDo: [:package | aStream nextPutAll: package mcPackage workingCopy description; cr].
aStream cr.
self header: 'Official Packages' on: aStream.
others := OrderedCollection new.
trunk := MCRepository trunk allVersionNames.
inbox := MCRepository inbox allVersionNames.
treated := MCRepository treated allVersionNames.
releaseRepo := [[ReleaseBuilder releaseRepository] valueSupplyingAnswer: {'*'. true}] on: ReleaseBuilderFailed do: [:ex | nil].
release := releaseRepo ifNotNil: [:repo | repo allVersionNames] ifNil: [#()].
(organizer packages sorted: [:a :b | a packageName <= b packageName])
collect: [:package | package mcPackage workingCopy]
thenDo: [:workingCopy | | version repo |
version := workingCopy ancestry ancestors ifNotEmpty: [:a | a first].
version ifNotNil: [version := version name].
attribute := TextEmphasis normal.
(release includes: version)
ifTrue: [repo := releaseRepo]
ifFalse: [(trunk includes: version)
ifTrue: [repo := MCRepository trunk]
ifFalse: [(inbox includes: version)
ifTrue: [repo := MCRepository inbox. attribute := TextEmphasis bold]
ifFalse: [(treated includes: version)
+ ifTrue: [repo := MCRepository treated. attribute := TextColor gray]
- ifTrue: [repo := treated. attribute := TextColor gray]
ifFalse: [others add: workingCopy]]].
repo ifNotNil: [ "Only official packages here."
aStream withAttribute: attribute do: [
aStream
nextPutAll: workingCopy description;
nextPutAll: ' --- ';
nextPutAll: repo description; cr]]]].
aStream cr.
self header: 'Other Packages' on: aStream.
others
select: [:workingCopy | workingCopy repositoryGroup repositories size > 1]
thenDo: [:workingCopy |
aStream
nextPutAll: workingCopy description;
nextPutAll: ' --- ';
nextPutAll: workingCopy repositoryGroup repositories second description; cr]
!
More information about the Squeak-dev
mailing list
|