The Trunk: ReleaseBuilder-mt.149.mcz

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.149.mcz

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

Name: ReleaseBuilder-mt.149
Author: mt
Time: 12 August 2016, 10:28:22.806343 am
UUID: e0a9276b-28a4-7e41-8c55-72c373516a2d
Ancestors: ReleaseBuilder-mt.148

Use #sorted: instead of #sortBy: to better indicate that it is a copy and not an in-place update like #sort:.

=============== Diff against ReleaseBuilder-mt.148 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>checkForDirtyPackages (in category 'scripts - support') -----
  checkForDirtyPackages
 
  | modifiedWorkingCopies unmergedWorkingCopies |
  MCWorkingCopy checkModified: true.
  modifiedWorkingCopies := MCWorkingCopy allManagers
  select: [:wc | wc ancestors size = 1 and: [wc modified] ].
  unmergedWorkingCopies := MCWorkingCopy allManagers
  select: [:wc | (wc ancestors size = 1) not ].
 
  unmergedWorkingCopies ifNotEmpty: [
  "Sort to simplify exploration. MC browser does also show packages sorted."
+ (modifiedWorkingCopies sorted: [:wc1 :wc2 | wc1 packageName <= wc2 packageName]) explore.
- (modifiedWorkingCopies sortBy: [:wc1 :wc2 | wc1 packageName <= wc2 packageName]) explore.
  Warning signal: 'There are unmerged packages.'].
 
  modifiedWorkingCopies ifNotEmpty: [
  "Sort to simplify exploration. MC browser does also show packages sorted."
+ (modifiedWorkingCopies sorted: [:wc1 :wc2 | wc1 packageName <= wc2 packageName]) explore.
- (modifiedWorkingCopies sortBy: [:wc1 :wc2 | wc1 packageName <= wc2 packageName]) explore.
 
  (Project current uiManager
  confirm: 'Do you want to discard all local changes?'
  orCancel: [^ Error signal: 'Release building canceled.']
  title: 'Dirty Packages Found')
  ifTrue: [modifiedWorkingCopies do: [:wc |
  [(self buildRepository versionWithInfo: wc ancestors first) load]
  on: Warning do: [:warning | warning resume]]]].!