The Trunk: System-ct.1104.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: System-ct.1104.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:

==================== Summary ====================

Name: System-ct.1104
Author: ct
Time: 1 October 2019, 3:48:38.186339 pm
UUID: 4ce05ab9-d8fc-3d47-ab32-65fd3b2c2236
Ancestors: System-mt.1102

Adds utility to remove all empty change sets.

=============== Diff against System-mt.1102 ===============

Item was added:
+ ----- Method: ChangeSet class>>removeEmptyChangeSets (in category 'enumerating') -----
+ removeEmptyChangeSets
+ "Remove all change sets that are empty
+ and which are not nailed down by belonging to a Project."
+ "ChangeSet removeEmptyChangeSets"
+ | toGo |
+ toGo := self allChangeSets
+ select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]]
+ thenDo: [:cs | self removeChangeSet: cs].
+ self inform: toGo size printString, ' change set(s) removed.'!