The Trunk: ReleaseBuilder-cmm.51.mcz

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-cmm.51.mcz

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

Name: ReleaseBuilder-cmm.51
Author: cmm
Time: 3 January 2011, 4:27:01.328 pm
UUID: 979a51ad-1a7e-4a67-aef8-fc3eba94df45
Ancestors: ReleaseBuilder-nice.50

Updated ReleaseBuilder for 4.2.

=============== Diff against ReleaseBuilder-nice.50 ===============

Item was changed:
  ----- Method: ReleaseBuilderTrunk classSide>>prepareNewBuild (in category 'scripts') -----
  prepareNewBuild "ReleaseBuilderTrunk prepareNewBuild"
  "Prepare everything that should be done for a new image build"
+ self
+ setDisplayExtent: 800@600 ;
+ setBackground ;
+ setPreferences.
+ Smalltalk cleanUp: true.
- Smalltalk cleanUpUndoCommands.
  Undeclared removeUnreferencedKeys.
- StandardScriptingSystem initialize.
- GradientFillStyle initPixelRampCache.
- (NaturalLanguageFormTranslator bindingOf: #CachedTranslations) value: nil.
- (NaturalLanguageTranslator bindingOf: #CachedTranslations) value: nil.
- (NaturalLanguageTranslator bindingOf: #AllKnownPhrases) value: nil.
- PaintBoxMorph classPool at: #ColorChart put: nil.
- (Utilities bindingOf: #ScrapsBook) value: nil.
- CommandHistory resetAllHistory.
- Smalltalk at: #Browser ifPresent:[:br| br initialize].
- DataStream initialize.
- Smalltalk at: #ListParagraph ifPresent: [:lp | lp initialize].
- PopUpMenu initialize.
- Smalltalk forgetDoIts.
- Smalltalk flushClassNameCache.
- ScrollBar initializeImagesCache.
- Behavior flushObsoleteSubclasses.
- AppRegistry withAllSubclassesDo:[:reg| reg removeObsolete].
- FileServices removeObsolete.
- ExternalDropHandler resetRegisteredHandlers.
- SystemOrganization removeEmptyCategories.
- MCFileBasedRepository flushAllCaches.
- MCMethodDefinition shutDown.
- MCDefinition clearInstances.
- HashedCollection rehashAll.
- ChangeSet removeChangeSetsNamedSuchThat:
- [:cs| cs name ~= ChangeSet current name].
- ChangeSet current clear.
- ChangeSet current name: 'Unnamed1'.
- BitBlt recreateColorMaps.
- TextOnCurve reset.
- StrikeFont allInstancesDo:[:sf| sf reset].
  Smalltalk garbageCollect.
- MethodDictionary compactAllInstances.
  3 timesRepeat: [
  Smalltalk garbageCollect.
  Symbol compactSymbolTable.
  ].!

Item was added:
+ ----- Method: ReleaseBuilderTrunk classSide>>setBackground (in category 'private') -----
+ setBackground
+ "World Color"
+ World fillStyle: ((GradientFillStyle colors: {Color white. Color lightGray. Color blue adjustSaturation: -0.85 brightness: -0.1. Color gray}) radial: true;
+ origin: 10 @ 30;
+ direction: Display center;
+ normal: nil;
+ yourself)!

Item was added:
+ ----- Method: ReleaseBuilderTrunk classSide>>setDisplayExtent: (in category 'private') -----
+ setDisplayExtent: extent
+ DisplayScreen
+ depth: 32
+ width: extent x
+ height: extent y
+ fullscreen: false.
+ Display extent = extent ifFalse: [ self error: 'Display extent not set.' ]!

Item was added:
+ ----- Method: ReleaseBuilderTrunk classSide>>setPreferences (in category 'private') -----
+ setPreferences
+ Preferences
+ setPreference: #swapMouseButtons toValue: true ;
+ setPreference: #annotationPanes toValue: true.!