[Pkg] The Trunk: ReleaseBuilder-cmm.51.mcz

[commits at source.squeak.org]

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 at 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.!