The Trunk: ReleaseBuilder-fbs.88.mcz

Frank Shearar uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-fbs.88.mcz

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

Name: ReleaseBuilder-fbs.88
Author: fbs
Time: 21 December 2012, 2:55:49.256 pm
UUID: 2fd13b5c-8e1c-4375-a25e-2ada41f48db4
Ancestors: ReleaseBuilder-fbs.87

Force the image's packages to the versions in Trunk.

=============== Diff against ReleaseBuilder-fbs.87 ===============

Item was added:
+ ----- Method: ReleaseBuilder class>>cleanPackages (in category 'scripts') -----
+ cleanPackages
+ "Force-load the packages to ensure the image has what Trunk says it should."
+ | trunk |
+ trunk := MCRepositoryGroup default repositories detect:
+   [:repo | repo description = 'http://source.squeak.org/trunk'].
+ MCWorkingCopy allManagers
+ do: [:wc |
+ wc ancestors size = 1 ifFalse: [
+ self error: 'Package must have single parent: ', wc packageName].
+ wc modified: true. "make sure actual diff is performed"
+ [(trunk versionWithInfo: wc ancestors first) load]
+ on: Warning do: [:w | w resume]]
+ displayingProgress: 'Cleaning packages'.!

Item was changed:
  ----- Method: ReleaseBuilder class>>prepareNewBuild (in category 'scripts') -----
  prepareNewBuild
  "ReleaseBuilderTrunk prepareNewBuild"
  "Prepare everything that should be done for a new image build"
  TTCFont registerAll.
  RealEstateAgent standardSize: 600@400.
  SystemVersion newVersion: self versionString.
  SMLoaderPlus
  setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable).
  self setDisplayExtent: 800 @ 600;
  setPreferences;
  switchToNewRepository;
  openWelcomeWorkspaces.
  "Make DependencyBrowser accessible on the open menu."
  DependencyBrowser initialize.
+ self cleanPackages.
  Smalltalk cleanUp: true except: #() confirming: false.
  Undeclared removeUnreferencedKeys.
  Smalltalk garbageCollect!