[squeak-dev] The Trunk: ReleaseBuilder-fbs.96.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 3 11:37:02 UTC 2013


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

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

Name: ReleaseBuilder-fbs.96
Author: fbs
Time: 2 May 2013, 10:47:53.918 pm
UUID: 51612e6c-fec4-4b99-bb3f-d6b5d51bb61f
Ancestors: ReleaseBuilder-fbs.95

Delete all obsolete ReleaseBuilders. Move the special-case builders - Nihongo, Squeakland - to 45Deprecated. (They're not deprecated as such, but they don't belong in trunk.)

=============== Diff against ReleaseBuilder-fbs.95 ===============

Item was changed:
  Object subclass: #ReleaseBuilder
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ReleaseBuilder'!
  
+ !ReleaseBuilder commentStamp: 'fbs 5/2/2013 22:36' prior: 0!
+ I'm the script that prepares a trunk image for release. Which version of Squeak I release is stored in ReleaseBuilder class >> squeakVersion.!
- !ReleaseBuilder commentStamp: 'bp 12/4/2009 10:39' prior: 0!
- I'm responsible to help people releasing various distributions of Squeak.!

Item was added:
+ ----- Method: ReleaseBuilder class>>loadWellKnownPackages (in category 'private') -----
+ loadWellKnownPackages
+ 	"Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
+ 	#('311Deprecated'
+ 	'39Deprecated'
+ 	'45Deprecated'
+ 	'Nebraska'
+ 	'Universes'
+ 	'XML-Parser') do: [:pkgName |
+ 		Installer squeak
+ 			project: 'trunk';
+ 			install: pkgName].!

Item was added:
+ ----- Method: ReleaseBuilder class>>openWelcomeWorkspaces (in category 'private') -----
+ openWelcomeWorkspaces
+ 	TheWorldMainDockingBar instance
+ 		showWelcomeText: #squeakUserInterface
+ 		label: 'Squeak User Interface'
+ 		in: (40 @ 40 extent: 500 @ 300).
+ 	TheWorldMainDockingBar instance
+ 		showWelcomeText: #workingWithSqueak
+ 		label: 'Working With Squeak'
+ 		in: (80 @ 80 extent: 500 @ 300).
+ 	TheWorldMainDockingBar instance
+ 		showWelcomeText: #licenseInformation
+ 		label: 'License Information'
+ 		in: (120 @ 120 extent: 500 @ 300).
+ 	TheWorldMainDockingBar instance
+ 		showWelcomeText: #welcomeFutureDirections
+ 		label: 'Future Directions'
+ 		in: (160 @ 160 extent: 500 @ 300).
+ 	TheWorldMainDockingBar instance
+ 		showWelcomeText: #welcomeToSqueak
+ 		label: 'Welcome to Squeak 4.5'
+ 		in: (200 @ 200 extent: 500 @ 300)!

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 at 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.
+ 	self loadWellKnownPackages.
+ 	TextDomainManager clearAllDomains.
+ 	MCMockPackageInfo initialize.
+ 	Compiler recompileAll.!
- 	Smalltalk garbageCollect!

Item was added:
+ ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') -----
+ releaseRepository
+ 	"At release time, change 'trunk' to 'squeak45'."
+ 	^ MCHttpRepository
+ 		location: 'http://source.squeak.org/trunk'
+ 		user: 'squeak'
+ 		password: 'squeak'!

Item was added:
+ ----- Method: ReleaseBuilder class>>setDisplayExtent: (in category 'private') -----
+ setDisplayExtent: extent
+ "Uncomment next line when the primitives become available in the Squeak VM."
+ "	DisplayScreen hostWindowSize: extent."
+ 	Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!

Item was added:
+ ----- Method: ReleaseBuilder class>>setPreferences (in category 'private') -----
+ setPreferences
+ 	Preferences 
+ 		installBrightWindowColors ;
+ 		setPreference: #scrollBarsWithoutMenuButton toValue: true ;
+ 		setPreference: #swapMouseButtons toValue: true ;
+ 		setPreference: #annotationPanes toValue: true ;
+ 		setPreference: #showSplitterHandles toValue: false ;
+ 		setPreference: #showBoundsInHalo toValue: true ;
+ 		setPreference: #alternateHandlesLook toValue: false ;
+ 		setPreference: #roundedMenuCorners toValue: false ;
+ 		setPreference: #roundedWindowCorners toValue: false.
+ 	PluggableButtonMorph roundedButtonCorners: false.
+ 	FillInTheBlankMorph roundedDialogCorners: false.
+ 	Workspace shouldStyle: false.
+ 	NetNameResolver enableIPv6: true.!

Item was changed:
  ----- Method: ReleaseBuilder class>>switchToNewRepository (in category 'private') -----
  switchToNewRepository
+ 	| old44Repository |
+ 	MCMcmUpdater defaultUpdateURL: self releaseRepository description.
+ 	old44Repository := MCRepositoryGroup default repositories
+ 				detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
+ 	old44Repository
+ 		ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
+ 	MCRepositoryGroup default addRepository: self releaseRepository!
- 	self subclassResponsibility!

Item was added:
+ ----- Method: ReleaseBuilder class>>versionString (in category 'private') -----
+ versionString
+ 	^ 'Squeak4.5'.!

Item was removed:
- ----- Method: ReleaseBuilder>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- 	"Clean up the change sets"
- 
- 	"ReleaseBuilder new cleanUpChanges"
- 	
- 	| projectChangeSetNames |
- 
- 	"Delete all changesets except those currently used by existing projects."
- 	projectChangeSetNames := Project allSubInstances collect: [:proj | proj changeSet name].
- 	ChangeSet removeChangeSetsNamedSuchThat:
- 		[:cs | (projectChangeSetNames includes: cs) not].
- !

Item was removed:
- ----- Method: ReleaseBuilder>>cleanUpEtoys (in category 'utilities') -----
- cleanUpEtoys
- 	"ReleaseBuilder new cleanUpEtoys"
- 
- 
- 	StandardScriptingSystem removeUnreferencedPlayers.
- 
- 	(self confirm: 'Remove all projects and players?')
- 		ifFalse: [^self].
- 	Project removeAllButCurrent.
- 
- 	#('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' )
- 		do: [:each | SystemOrganization removeSystemCategory: each]!

Item was removed:
- ----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') -----
- finalCleanup
- 	"ReleaseBuilder new finalCleanup"
- 
- 
- 	DataStream initialize.
- 	Behavior flushObsoleteSubclasses.
- 
- 	"The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings"
- 	MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil].
- 
- 	self cleanUpEtoys.
- 	SmalltalkImage current fixObsoleteReferences.
- 
- 	Smalltalk flushClassNameCache.
- 	Symbol compactSymbolTable.!

Item was removed:
- ----- Method: ReleaseBuilder>>finalStripping (in category 'utilities') -----
- finalStripping
- 	"ReleaseBuilder new finalStripping"
- !

Item was removed:
- ----- Method: ReleaseBuilder>>fixObsoleteReferences (in category 'utilities') -----
- fixObsoleteReferences
- 	"ReleaseBuilder new fixObsoleteReferences"
- 
- 	
- 	Preference allInstances do: [:each | | informee | 
- 		informee := each instVarNamed: #changeInformee.
- 		((informee isKindOf: Behavior)
- 			and: [informee isObsolete])
- 			ifTrue: [
- 				Transcript show: each name; cr.
- 				each instVarNamed: #changeInformee put: (Smalltalk at: (informee name copyReplaceAll: 'AnObsolete' with: '') asSymbol)]].
-  
- 	CompiledMethod allInstances do: [:method |
- 		| obsoleteBindings |
- 		obsoleteBindings := method literals select: [:literal |
- 			literal isVariableBinding
- 				and: [literal value isBehavior
- 				and: [literal value isObsolete]]].
- 		obsoleteBindings do: [:binding |
- 			| obsName realName realClass |
- 			obsName := binding value name.
- 			Transcript show: obsName; cr.
- 			realName := obsName copyReplaceAll: 'AnObsolete' with: ''.
- 			realClass := Smalltalk at: realName asSymbol ifAbsent: [UndefinedObject].
- 			binding isSpecialWriteBinding
- 				ifTrue: [binding privateSetKey: binding key value: realClass]
- 				ifFalse: [binding key: binding key value: realClass]]].
- 
- 
- 	Behavior flushObsoleteSubclasses.
- 	Smalltalk garbageCollect; garbageCollect.
- 	SystemNavigation default obsoleteBehaviors size > 0
- 		ifTrue: [SystemNavigation default inspect]!

Item was removed:
- ----- Method: ReleaseBuilder>>initialCleanup (in category 'utilities') -----
- initialCleanup
- 	"Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- 	"ReleaseBuilder new initialCleanup"
- 	
- 	Undeclared removeUnreferencedKeys.
- 	StandardScriptingSystem initialize.
- 
- 	(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents'].
- 	Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
- 
- 	Smalltalk at: #Browser ifPresent:[:br| br initialize].
- 	ScriptingSystem deletePrivateGraphics.  "?"
- 	
- 	self cleanUpChanges.
- 	ChangeSet current clear.
- 	ChangeSet current name: 'Unnamed1'.
- 	Smalltalk garbageCollect.
- 
- 	"Reinitialize DataStream; it may hold on to some zapped entitities"
- 	DataStream initialize.
- 
- 	Smalltalk garbageCollect.
- 	ScheduledControllers := nil.
- 	Smalltalk garbageCollect.
- 	
- 	SMSqueakMap default purge.
- 	
- !

Item was removed:
- ----- Method: ReleaseBuilder>>installPreferences (in category 'utilities') -----
- installPreferences
- 	Preferences initialize.
- 	Preferences chooseInitialSettings.
- !

Item was removed:
- ----- Method: ReleaseBuilder>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- 	"ReleaseBuilder new installReleaseSpecifics"
- !

Item was removed:
- ----- Method: ReleaseBuilder>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- 	"ReleaseBuilder new installVersionInfo"
- !

Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandRelease (in category 'squeakland') -----
- makeSqueaklandRelease
- 	"ReleaseBuilder new makeSqueaklandRelease"
- 
- 	self 
- 		makeSqueaklandReleasePhasePrepare; 		makeSqueaklandReleasePhaseStripping; 		makeSqueaklandReleasePhaseFinalSettings; 		makeSqueaklandReleasePhaseCleanup!

Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category 'squeakland') -----
- makeSqueaklandReleasePhaseCleanup
- 	"ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
- 
- 	Smalltalk at: #Browser ifPresent:[:br| br initialize].
- 	ChangeSet 
- 		removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
- 	ChangeSet current clear.
- 	ChangeSet current name: 'Unnamed1'.
- 	Smalltalk garbageCollect.
- 	"Reinitialize DataStream; it may hold on to some zapped entitities"
- 	DataStream initialize.
- 	"Remove existing player references"
- 	References keys do: [:k | References removeKey: k].
- 	Smalltalk garbageCollect.
- 	ScheduledControllers := nil.
- 	Behavior flushObsoleteSubclasses.
- 	Smalltalk
- 		garbageCollect;
- 		garbageCollect.
- 	SystemNavigation default obsoleteBehaviors isEmpty 
- 		ifFalse: [self error: 'Still have obsolete behaviors'].
- 
- 	"Reinitialize DataStream; it may hold on to some zapped entitities"
- 	DataStream initialize.
- 	Smalltalk fixObsoleteReferences.
- 	Smalltalk abandonTempNames.
- 	Smalltalk zapAllOtherProjects.
- 	Smalltalk flushClassNameCache.
- 	Symbol compactSymbolTable!

Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseFinalSettings (in category 'squeakland') -----
- makeSqueaklandReleasePhaseFinalSettings
- 	"ReleaseBuilder new makeSqueaklandReleasePhaseFinalSettings"
- 
- 	| serverName serverURL serverDir updateServer highestUpdate newVersion |
- 
- 	ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
- 
- 	"Dump all morphs so we don't hold onto anything"
- 	World submorphsDo:[:m| m delete].
- 
- 	#(
- 		(honorDesktopCmdKeys false)
- 		(warnIfNoChangesFile false)
- 		(warnIfNoSourcesFile false)
- 		(showDirectionForSketches true)
- 		(menuColorFromWorld false)
- 		(unlimitedPaintArea true)
- 		(useGlobalFlaps false)
- 		(mvcProjectsAllowed false)
- 		(projectViewsInWindows false)
- 		(automaticKeyGeneration true)
- 		(securityChecksEnabled true)
- 		(showSecurityStatus false)
- 		(startInUntrustedDirectory true)
- 		(warnAboutInsecureContent false)
- 		(promptForUpdateServer false)
- 		(fastDragWindowForMorphic false)
- 
- 		(externalServerDefsOnly true)
- 		(expandedFormat false)
- 		(eToyFriendly true)
- 		(eToyLoginEnabled true)
- 		(magicHalos true)
- 		(mouseOverHalos true)
- 		(biggerHandles false)
- 		(selectiveHalos true)
- 		(includeSoundControlInNavigator true)
- 		(readDocumentAtStartup true)
- 		(preserveTrash true)
- 		(slideDismissalsToTrash true)
- 
- 	) do:[:spec|
- 		Preferences setPreference: spec first toValue: spec last].
- 	"Workaround for bug"
- 	Preferences enable: #readDocumentAtStartup.
- 
- 	World color: (Color r: 0.9 g: 0.9 b: 1.0).
- 
- 	"Clear all server entries"
- 	ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- 	SystemVersion current resetHighestUpdate.
- 
- 	"Add the squeakalpha update stream"
- 	serverName := 'Squeakalpha'.
- 	serverURL := 'squeakalpha.org'.
- 	serverDir := serverURL , '/'.
- 
- 	updateServer := ServerDirectory new.
- 	updateServer
- 		server: serverURL;
- 		directory: 'updates/';
- 		altUrl: serverDir;
- 		user: 'sqland';
- 		password: nil.
- 	Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- 
- 	"Add the squeakland update stream"
- 	serverName := 'Squeakland'.
- 	serverURL := 'squeakland.org'.
- 	serverDir := serverURL , '/'.
- 
- 	updateServer := ServerDirectory new.
- 	updateServer
- 		server: serverURL;
- 		directory: 'public_html/updates/';
- 		altUrl: serverDir.
- 	Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- 
- 	highestUpdate := SystemVersion current highestUpdate.
- 	(self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
- 		ifTrue: [SystemVersion current highestUpdate: 0].
- 
- 	newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString. 
- 	SystemVersion newVersion: newVersion.
- 	(self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !

Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category 'squeakland') -----
- makeSqueaklandReleasePhasePrepare
- 	"ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
- 
- 	Undeclared removeUnreferencedKeys.
- 	StandardScriptingSystem initialize.
- 	Preferences initialize.
- 	"(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
- 	Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
- 
- 	"Dump all projects"
- 	Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
- 
- 	"Set new look so we don't need older fonts later"
- 	StandardScriptingSystem applyNewEToyLook.
- 
- 	Smalltalk at: #Browser ifPresent:[:br| br initialize].
- 	ScriptingSystem deletePrivateGraphics.
- 	ChangeSet removeChangeSetsNamedSuchThat:
- 		[:cs| cs name ~= ChangeSet current name].
- 	ChangeSet current clear.
- 	ChangeSet current name: 'Unnamed1'.
- 	Smalltalk garbageCollect.
- 	"Reinitialize DataStream; it may hold on to some zapped entitities"
- 	DataStream initialize.
- 	"Remove existing player references"
- 	References keys do:[:k| References removeKey: k].
- 
- 	Smalltalk garbageCollect.
- 	ScheduledControllers := nil.
- 	Smalltalk garbageCollect.
- !

Item was removed:
- ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category 'squeakland') -----
- makeSqueaklandReleasePhaseStripping
- 	"ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
- 
- 	#(#Helvetica #Palatino #Courier #ComicSansMS )
- 		do: [:n | TextConstants
- 				removeKey: n
- 				ifAbsent: []].
- 	Smalltalk
- 		at: #Player
- 		ifPresent: [:superCls | superCls
- 				allSubclassesDo: [:cls | 
- 					cls isSystemDefined
- 						ifFalse: [cls removeFromSystem]]].
- 	Smalltalk garbageCollect.
- 	Smalltalk discardFFI; discardSUnit; discardSpeech.
- 	"discardMVC;"
- 	SystemOrganization removeEmptyCategories.
- 	Smalltalk garbageCollect.
- 	ScheduledControllers := nil.
- 	Behavior flushObsoleteSubclasses.
- 	Smalltalk garbageCollect; garbageCollect.
- 	DataStream initialize.
- 	Smalltalk fixObsoleteReferences!

Item was removed:
- ----- Method: ReleaseBuilder>>prepareReleaseImage (in category 'utilities') -----
- prepareReleaseImage
- 	"Perform various image cleanups in preparation for making a Squeak gamma release candidate image."
- 	"ReleaseBuilder new prepareReleaseImage"
- 	
- 	(self confirm: 'Are you sure you want to prepare a release image?
- This will perform several irreversible cleanups on this image.')
- 		ifFalse: [^ self].
- 
- 	self
- 		initialCleanup;
- 		installPreferences;
- 		finalStripping;
- 		installReleaseSpecifics;
- 		finalCleanup;
- 		installVersionInfo
- !

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderDeveloper
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!
- 
- !ReleaseBuilderDeveloper commentStamp: 'gk 2/28/2005 13:27' prior: 0!
- This release builder subclass is used for the official Squeak distribution Basic, which currently is the base image of Squeak.
- Full is then built on top of Basic using a loadscript from SqueakMap. Minimal is constructed using another script from SqueakMap that removes packages that are included in Basic.!

Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>cleanUpChanges (in category 'utilities') -----
- cleanUpChanges
- 	"Clean up the change sets"
- 
- 	"ReleaseBuilderDeveloper new cleanUpChanges"
- 	
- !

Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installPreferences (in category 'utilities') -----
- installPreferences
- 	super installPreferences.
- 	#(
- 		(updateFromServerAtStartup true)
- 
- 	) do:[:spec|
- 		Preferences setPreference: spec first toValue: spec last]!

Item was removed:
- ----- Method: ReleaseBuilderDeveloper>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- 	"Currently just clear and add the ServerDirectories
- 	and update streams we want as default."
- 
- 	"Clear all server entries"
- 	ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- 
- 	"Add default entries, added an entry for the new file area.
- 	The others are the current ones that see to work 
- 	as of 2005-02-28 and I recreated them using source."
- 	ServerDirectory addServer: (ServerDirectory new 
- 		type: #ftp;
- 		user: '';
- 		server: 'box1.squeakfoundation.org';
- 		altUrl: 'http://box1.squeakfoundation.org/files';
- 		directory: 'files';
- 		keepAlive: false) named: 'Squeak.org Archive'.
- 	ServerDirectory addServer: (ServerDirectory new 
- 		type: #ftp;
- 		server: 'st.cs.uiuc.edu';
- 		user: 'anonymous';
- 		directory: '/Smalltalk/Squeak';
- 		keepAlive: false) named: 'UIUC Archive'.	
- 	ServerDirectory addServer: (ServerDirectory new 
- 		type: #ftp;
- 		server: 'ftp.create.ucsb.edu';
- 		user: 'anonymous';
- 		directory: '/pub/Smalltalk/Squeak';
- 		keepAlive: false) named: 'UCSBCreate Archive'.
- 	ServerDirectory addServer: SuperSwikiServer defaultSuperSwiki named: 'Bob SuperSwiki'.
- 	ServerDirectory addServer: (SuperSwikiServer new 
- 		type: #http;
- 		server: 'squeakland.org:8080';
- 		altUrl: 'http://www.squeakland.org/uploads';
- 		directory: '/super/SuperSwikiProj';
- 		keepAlive: false;
- 		acceptsUploads: true) named: 'Squeakland SuperSwiki'.
- 	ServerDirectory addServer: (HTTPServerDirectory new 
- 		type: #ftp;
- 		user: 'sqland';
- 		server: 'www.squeakland.org';
- 		altUrl: 'http://www.squeakland.org/projects';
- 		directory: 'projects';
- 		keepAlive: false) named: 'Squeakland Projects'.
- 
- "Add the update streams here just as Squeakland does?
- 	serverName := 'Squeakland'.
- 	serverURL := 'squeakland.org'.
- 	serverDir := serverURL , '/'.
- 	updateServer := ServerDirectory new.
- 	updateServer
- 		server: serverURL;
- 		directory: 'public:=html/updates/';
- 		altUrl: serverDir.
- 	Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- "
- !

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor3dot10
- 	instanceVariableNames: 'repository packagesList mantisNo'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!
- ReleaseBuilderFor3dot10 class
- 	instanceVariableNames: 'current'!
- 
- !ReleaseBuilderFor3dot10 commentStamp: 'edc 4/5/2007 10:06' prior: 0!
- This class has two functions.  One is to hold a few methods that are used by the release team to make an initial or a final release.  These will not be used much.  The other is to manage the update stream.  In general, an update will be a set of Montecello versions.  There will be a "packages" method that lists them, and an "update" method that loads them.  The actual update file will just load these two methods from Montecello and execute them.
- 
- Once the 3.10 release cycle is over, this class will be useless except for tracking history.
- 
- For do a new update:
- With a regular web browser like Firefox you go to http://bugs.squeak.org/view.php?id= nnnn
- If you think what this should go into image, then in a Workspace do
- 
- Installer mantis createRBforBug: nnnn !
- ReleaseBuilderFor3dot10 class
- 	instanceVariableNames: 'current'!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>clear (in category 'instance creation') -----
- clear
- 
- " ReleaseBuilderFor3dot10 clear "
- 	current:= nil!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10 class>>current (in category 'instance creation') -----
- current
- 
- " ReleaseBuilderFor3dot10 current inspect "
- 	^current ifNil: [current := (self new) newUpdate]!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>addRepositoryToPackageNamed: (in category 'managing updates') -----
- addRepositoryToPackageNamed: aString
- 	
- 	|pa|
- 	pa := MCPackage named: aString.
- 	pa workingCopy repositoryGroup addRepository: self repository.
- 	^pa workingCopy repositoryGroup
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>advanceToThreeDotTenAlpha (in category 'squeakThreeTen') -----
- advanceToThreeDotTenAlpha
- 
- "Offer the chance to advance the version number."
- (self confirm: 'There are no further updates for Squeak 3.9.
- Do you wish to advance to version 3.10alpha?
- [Yes] Your system will be marked as 3.10alpha, and you will
- subsequently receive ''test pilot'' updates for 3.10.
- [No] Your system will be marked as 3.9, allowing you
- to receive only final fixes for the 3.9 stable release.
- [Neither] You may choose No, and immediately quit without saving,
- allowing you to make a backup copy before adopting this change.
- DO YOU WANT TO ADVANCE to Version 3.10alpha now?')
- 	ifTrue: [SystemVersion newVersion: 'Squeak3.10alpha'.
- 			SystemVersion current date: Time now asDate.
- 			self inform: 'You may now save this Version 3.10alpha image
- and retrieve updates again for 3.10alpha and beyond.']
- 	ifFalse: [SystemVersion current version: 'Squeak3.9'; date: Time now asDate..
- 			self inform: 'You may now save this Version 3.9 final image
- and retrieve updates again for any final fixes to 3.9.
- - - - - -
- (If you quit without saving now, your image will revert to
- 3.9without any of the updates you just loaded)']!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>cleanUnwantedCs (in category 'updates') -----
- cleanUnwantedCs
- 	ChangeSet 
- 		removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet
- current name].
- 	ChangeSet current clear.
- 	ChangeSet current name: 'Unnamed1'.
- 	Smalltalk garbageCollect.!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>createBackgroundColor (in category 'squeakThreeTen') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle  ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- 	gf	origin: 0 @ 0;
- 		direction: 0 at 400;
- 		normal: 640 at 0;
- 		radial: false.
- World fillStyle: gf
- 
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>flushCaches (in category 'managing updates') -----
- flushCaches
- 
- 	MCFileBasedRepository flushAllCaches.
- 	MCDefinition clearInstances.
- 	Smalltalk garbageCollect.
- 	
- 	"Initialization required for tests: strange why this is not a teardwon method"
- 	Smalltalk at: #SendCaches ifPresent:[:aClass| aClass initializeAllInstances].!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>installInBoxAnd310 (in category 'packages') -----
- installInBoxAnd310
- 	
- 	
- 	MCWorkingCopy allManagers do: [:each | 
- 		each  repositoryGroup
- 			addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/310' ; user: 'squeak'; password: 'squeak');
- 			addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/inbox' ; user: '' ; password: '')].!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLast: (in category 'updates') -----
- loadLast: aPackageName
- | package |
- package := self repository readableFileNames detect:[:ea| ea beginsWith: aPackageName] ifNone:[]. package ifNotNil: [
- 	(repository  loadVersionFromFileNamed: package) load]
- ifNil: [ ^ self error: aPackageName ,' is not on this repository '].
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadLastVersion: (in category 'packages') -----
- loadLastVersion: aListOfPackageNames 
- | mcw montiNames version |
- mcw := MCWorkingCopyBrowser new repository: (MCHttpRepository
- 				location: 'http://source.squeakfoundation.org/39a'
- 				user: ''
- 				password: '').
- mcw repository ifNotNil: [:repos | montiNames := repos readableFileNames ].
- 	
- 	aListOfPackageNames do: [:mo | | package |
- 	
- 	package := (montiNames detect:[:ea| ea beginsWith: mo] ifNone:[] ) .
- 	package ifNotNil: [
- 	version := mcw repository loadVersionFromFileNamed: package.
- 	version load]].
- ^version!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadPackages: (in category 'managing updates') -----
- loadPackages: packageNames
- 	self loadTogether: (packageNames findTokens: ' ', String cr) merge: false!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>loadTogether:merge: (in category 'managing updates') -----
- loadTogether: aCollection merge: aBoolean
- 	| loader mcc |
- 	loader := aBoolean
- 		ifTrue: [ MCVersionMerger new ]
- 		ifFalse: [ MCVersionLoader new].
- 	aCollection do: [:eachVersion | self addRepositoryToPackageNamed: (eachVersion copyUpTo: $- )].
- 	(self newerVersionsIn: aCollection)
- 		do: [:fn | Transcript show: fn;cr.
- 			loader addVersion: (self repository loadVersionFromFileNamed: fn)]
-   	  	displayingProgress: 'Adding versions...'.
- 	aBoolean
- 		ifTrue: [[loader merge] on: MCMergeResolutionRequest do: [:request |
- 					request merger conflicts isEmpty
- 						ifTrue: [request resume: true]
- 						ifFalse: [request pass]]]
- 		ifFalse: [loader load].
- 		SystemNavigation default obsoleteBehaviors size > 0
-         ifTrue: [
-             SystemNavigation default obsoleteBehaviors inspect.
-             self error:'The changes should be reviewed'].
- self flushCaches.
- 
- mcc := MCWorkingCopyBrowser new.
- mcc  repository: MCCacheRepository default.
- mcc workingCopies select:
- 		[:wc |
- 		(wc modified = true)] thenDo: [:ea| 
- 		mcc workingCopy: ea.
- 		ea modified: false
- 		 ]
- 
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakRelease (in category 'squeakThreeTen') -----
- makeSqueakRelease
- 	| monti |
- 		
- 	self unloadSome.
- 	
- 	monti := MCWorkingCopyBrowser new.
- 	monti unsortedWorkingCopies
- 		do: [:ea | ((PackageOrganizer default packageNames) includes: (ea package name)) ifFalse:[ ea unregister]].
- 	monti flushAllCaches.
- 	
- 	
- 	Smalltalk garbageCollect.
- 	DataStream initialize.
- 	Flaps replaceGlobalFlapwithID: 'Tools' translated.
- 	Flaps replaceGlobalFlapwithID: 'Widgets' translated.
- 	self cleanUpEtoys.
- 	SmalltalkImage current fixObsoleteReferences.
- 	
- 	Smalltalk garbageCollect.
- 	ScheduledControllers := nil.
- 	Behavior flushObsoleteSubclasses.
- 	Smalltalk garbageCollect!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenRelease (in category 'squeakThreeTen') -----
- makeSqueakThreeTenRelease
- 	"ReleaseBuilderFor3dot10 new makeSqueakThreeTenRelease"
- 
- 	self 
- 		makeSqueakThreeTenReleasePhasePrepare;
- 		makeSqueakRelease; 		
- 		makeSqueakThreeTenReleasePhaseCleanup;
- 		installInBoxAnd310;
- 	updateFrom7067;
- 		createBackgroundColor!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhaseCleanup (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhaseCleanup
- 	"ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhaseCleanup"
- | newVersion |
- 	Smalltalk at: #Browser ifPresent:[:br| br initialize].
- self cleanUnwantedCs.
- 	"Remove existing player references"
- 	References keys do: [:k | References removeKey: k].
- 	Smalltalk garbageCollect.
- 	ScheduledControllers := nil.
- 	Behavior flushObsoleteSubclasses.
- 	SystemNavigation default obsoleteBehaviors isEmpty 
- 		ifFalse: [self error: 'Still have obsolete behaviors'].
- 
- 	"Reinitialize DataStream; it may hold on to some zapped entitities"
- 	DataStream initialize.
- 	self fixObsoleteReferences.
- 	"Smalltalk abandonTempNames."
- 	Smalltalk zapAllOtherProjects.
- 	Smalltalk flushClassNameCache.
- 	Symbol compactSymbolTable.
- "SystemVersion current registerUpdate: 7069." "We only need for when start the release"
- 	newVersion := 'Squeak3.10alpha.' , SystemVersion current
- highestUpdate printString. 
- 
- 	newVersion := newVersion ,'.'.
- 	(SourceFiles at: 2) ifNotNil:
- 		[SmalltalkImage current closeSourceFiles; "so copying the
- changes file will always work"
- 			 saveChangesInFileNamed: (SmalltalkImage current
- fullNameForChangesNamed: newVersion)].
- 	SmalltalkImage current saveImageInFileNamed: (SmalltalkImage current
- fullNameForImageNamed: newVersion)
- 		!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhasePrepare (in category 'squeakThreeTen') -----
- makeSqueakThreeTenReleasePhasePrepare
- 	"ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhasePrepare"
- 
- 	Undeclared removeUnreferencedKeys.
- 	StandardScriptingSystem initialize.
- 	Preferences initialize.
- 	"(Object classPool at: #DependentsFields) size > 1 ifTrue: [self
- error:'Still have dependents']."
- 	Undeclared isEmpty ifFalse: [self error:'Please clean out
- Undeclared'].
- 
- 	"Dump all projects"
- 	Project allSubInstancesDo:[:prj| prj == Project current
- ifFalse:[Project deletingProject: prj]].
- 
- 	"Set new look so we don't need older fonts later"
- 	StandardScriptingSystem applyNewEToyLook.
- 
- 	Smalltalk at: #Browser ifPresent:[:br| br initialize].
- 	ScriptingSystem deletePrivateGraphics.
- 	self cleanUnwantedCs.
- 	"Reinitialize DataStream; it may hold on to some zapped entitities"
- 	DataStream initialize.
- 	"Remove existing player references"
- 	References keys do:[:k| References removeKey: k].
- 
- 	Smalltalk garbageCollect.
- 	ScheduledControllers := nil.
- 	Smalltalk garbageCollect.
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdate (in category 'updates') -----
- newUpdate
- packagesList := Set new!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newUpdateFor: (in category 'updates') -----
- newUpdateFor: aBugNo
- "  ReleaseBuilderFor3dot10 new  newUpdateFor: nnnn"
- |cs updateNo  newName newSet lastName|
- mantisNo := aBugNo.
- updateNo := SystemVersion current highestUpdate + 1.
- 
- lastName := ChangeSet allChangeSetNames last.
- 	newName := UIManager default
- 		request: 'Please name the new change set:'
- 		initialAnswer: updateNo asString, lastName.
- 	newName isEmptyOrNil ifTrue:
- 		[^ nil].
- 	newSet := ChangeSet basicNewChangeSet: newName.
- 	newSet ifNotNil:
- 		[ChangeSet  newChanges: newSet].
- 	
- 
- cs := newSet .
- cs preamble:  '"',(Installer mantis preambleCsForRB: aBugNo) withSqueakLineEndings asUnHtml , '"'.
- cs postscript: '"', self postcriptTemplate, aBugNo asString, '"
- 
- ReleaseBuilderFor3dot10 new updatePackages: '.
- self updateToNext.
- cs editPostscript!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>newerVersionsIn: (in category 'managing updates') -----
- newerVersionsIn: aCollection
- 	^aCollection reject: [:each |
- 		MCWorkingCopy allManagers anySatisfy: [:workingcopy |
- 			workingcopy ancestry ancestorString , '.mcz' = each]].!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packages7067 (in category 'packages') -----
- packages7067
- 	^ 'System-edc.102(sd.101).mcd
- Tests-edc.20(sd.19).mcd
- Kernel-edc.151(sd.150).mcd
- ST80-edc.38.mcz
- Monticello-edc.311.mcz
- CollectionsTests-edc.35.mcz
- Graphics-edc.40(ar.39).mcd
- SystemChangeNotification-Tests-edc.7.mcz
- GraphicsTests-edc.10(ar.9).mcd
- SMBase-edc.86(sd.85).mcd
- KernelTests-edc.51(sd.50).mcd
- Traits-edc.226.mcz
- Files-edc.20.mcz
- ToolBuilder-Kernel-rej.18.mcz
- XML-Parser-mir.3.mcz
- Universes-ls.19.mcz'!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced (in category 'packages') -----
- packagesInfluenced
- 
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
-  "
- | monti fileName cs |
- monti := Set new.
- fileName := UIManager default chooseFileMatching: #('st' 'cs').
- cs := FilePackage fromFileNamed: fileName.
- cs classes do: [:cl| | realClass cat p |
- 	realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-     
-     p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
-     (p includes: cat) ifTrue:[ monti add: cat]].
- ^ monti.!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesInfluenced:named: (in category 'packages') -----
- packagesInfluenced: aStream named: aFileName
- 
- " This is a partial response to Ralph request.
- Lets know what packages could touch some code file what we wish go into image.
- Intended to load Mantis fix and convert the result to Monticello "
- "
- ReleaseBuilderFor3dot10 new packagesInfluenced
-  "
- | monti cs |
- monti := Set new.
- 
- cs := FilePackage new fromStream: aStream reset named: aFileName.
- cs classes do: [:cl| | p realClass cat |
- 	realClass := Smalltalk at: cl name ifAbsent: [ self error: 'This image do not have ', cl asString] .cat := (realClass category findTokens: '-') first.
-     
-     p := (PackageInfo allPackages collect:[:pi| pi packageName]) .
-     (p includes: cat) ifTrue:[ monti add: cat]].
- packagesList addAll:  monti.!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>packagesList (in category 'accessing') -----
- packagesList
-  | mcc lista |
- lista := OrderedCollection new.
- mcc := MCWorkingCopyBrowser new.
- mcc  repository: MCCacheRepository default.
- lista := mcc workingCopies select:
- 		[:wc |
- 		((wc modified = true) & wc ancestors notEmpty)] thenCollect: [:ea| | packName pos| 
- 		packName := ea  ancestry ancestors first name.
- 		pos := packName indexOf: $-.
- 		packName := packName copyFrom: 1 to: pos -1.
- 		lista add: packName].
- 	^ lista!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>postcriptTemplate (in category 'updates') -----
- postcriptTemplate
- ^'To follow this see
- http://bugs.squeak.org/view.php?id= '!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>repository (in category 'updates') -----
- repository 
-   repository isNil ifTrue: [
- 		repository := MCHttpRepository
-                 location: 'http://source.squeakfoundation.org/310'
-                 user: ''
-                 password: ''.].
-   ^repository!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>saveNewVersion: (in category 'packages') -----
- saveNewVersion: v
- 
- v repositoryGroup: (self addRepositoryToPackageNamed: v package name).
- repository user ifEmpty:[
- repository user:  (UIManager default request: '3.10 Repository username').
- repository	password: (UIManager default request: '3.10 Repository  password')].
- 
- repository storeVersion:  (v newVersionWithName: v uniqueVersionName message: self postcriptTemplate, mantisNo asString)  .
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>testObsolete (in category 'squeakThreeTen') -----
- testObsolete
- "if we do some classes go, also his test should go"
- ^#(WatchMorphTest)!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadMorphicClasses (in category 'squeakThreeTen') -----
- unloadMorphicClasses
- 
- "These classes don't seem to be used, so unload them.  They always can be loaded later."
- 
- SystemOrganization classifyAll: #(BorderedStringMorph MouseActionIndicatorMorph CommandTilesMorph
- TestClickExerciser SpectrumAnalyzerMorph FishEyeMorph SoundDemoMorph
- MultiuserTinyPaint KidNavigationMorph CodecDemoMorph BlobMorph
-  SoundMorph SubpaneDividerMorph
- RolloverButtonMorph ClipboardMorph VeryPickyMorph
- ClassRepresentativeMorph PhraseWrapperMorph WatchMorph
- UpdatingTextMorph PluggableTabBarMorph PartsWindow HeadingMorph
- ZoomMorph UpdatingStringMorphWithArgument SoundSequencerMorph
- ImageMorphWithSpotlight TinyPaint InfoStringMorph
- UpdatingBooleanStringMorph DrawErrorMorph ViewerRow
- BalloonRectangleMorph  ViewerEntry MidiInputMorph
- CachingMorph MovingEyeMorph MIDIPianoKeyboardMorph
- DoubleClickExample MorphExample RulerMorph LabelStringMorph) under:
- 'Morphic-CandidatesForGo'.
- 
- (MCPackage named: 'Morphic-CandidatesForGo') unload .
- #(TheWorldMenu FileServices AppRegistry Preferences FileList) do: [:cl|
- (Smalltalk at: cl) removeObsolete].
- self testObsolete do: [:cl|
- Smalltalk removeClassNamed: cl].
- Smalltalk garbageCollect.!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>unloadSome (in category 'squeakThreeTen') -----
- unloadSome
- 	World removeAllMorphs.
- 	CommandHistory resetAllHistory.
- 	#('Flash' 'StarSqueak' 'SmaCC' 'Speech' 'Movies' 'FixUnderscores' 'OB' 'OmniBrowser' )
- 		do: [:ea | (MCPackage named: ea) unload.
- 			PackageOrganizer default unregisterPackageNamed: ea].
- 	#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- 		do: [:cl | (Smalltalk at: cl) removeObsolete].
- 		self unloadMorphicClasses.
- 	SystemOrganization removeEmptyCategories.
- 	!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateFrom7067 (in category 'updates') -----
- updateFrom7067
- 	"ReleaseBuilderFor3dot10 new updateFrom7067"
- 	self updatePackages: 'Monticello-rej.309.mcz'.
- 	"Enable atomic loading"
- 	self addRepositoryToPackageNamed: 'SystemChangeNotification-Tests'.
- 	self updatePackages: self packages7067.
- 	self flushCaches!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updatePackages: (in category 'managing updates') -----
- updatePackages: packageNames
- 	self loadTogether: (packageNames findTokens: ' ', String cr) merge: true!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7070 (in category 'updates') -----
- updateTo7070
- ^'EToys-edc.23(md.22).mcd'!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateTo7071 (in category 'updates') -----
- updateTo7071
- ^'Collections-edc.72(md.71).mcd
- CollectionsTests-edc.36(35).mcd
- '!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot10>>updateToNext (in category 'updates') -----
- updateToNext
- 
- | stream mcc |
- stream := RWBinaryOrTextStream on: String new.
- mcc := MCWorkingCopyBrowser new.
- mcc  repository: MCCacheRepository default.
- mcc workingCopies select:
- 		[:wc |
- 		(wc modified = true)] thenDo: [:ea| | number p1 packString pos |
- 		self saveNewVersion: ea.
- 		
- 		packString :=  ea ancestry ancestorString .
- 		pos := packString indexOf: $..
- 		p1 := packString copyFrom: 1 to: pos -1.
- 		number := (packString copyFrom: pos + 1 to: packString size) asNumber.
- 		packString := p1 ,'.', number  asString , '(', (number - 1) asString ,').mcd'.
- 		packString := packString, Character cr asString.
- 		stream nextPutAll: packString
- 		].
- ChangeSet current postscript: ChangeSet current postscript, stream contents!

Item was removed:
- ReleaseBuilderFor3dot10 subclass: #ReleaseBuilderFor3dot11
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhaseFinal (in category 'cleaning') -----
- cleanupPhaseFinal
- " ReleaseBuilderFor3dot11 new cleanupPhaseFinal "
- | tasks |
-     tasks := OrderedCollection new
-         
-                 add: [Smalltalk removeEmptyMessageCategories];
-                 add: [Workspace
-                         allSubInstancesDo: [:each | each initializeBindings]];
-                 add: [Undeclared removeUnreferencedKeys];
-                 add: [Categorizer sortAllCategories];
-                 add: [Symbol compactSymbolTable];
- 	add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
- 		do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
-                  add: [HandMorph releaseCachedState;
- 	initForEvents.self fixObsoleteReferences];
-                 add: [
- 
- 	DataStream initialize.
- 	Behavior flushObsoleteSubclasses.
- 
- 	"The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings"
- 	MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil].Smalltalk garbageCollectMost];
-                  yourself.
- Utilities
-         informUserDuring: [:bar | tasks
-                 do: [:block |
-                     bar value: block printString.
-                     block
-                         on: Error
-                         do: [:error | Transcript show: error;
-                                  cr]]].
-  SystemNavigation default obsoleteClasses isEmpty
-         ifTrue: [SmalltalkImage current saveSession]
-         ifFalse: [SystemNavigation default obsoleteClasses
-                 do: [:each | .self halt.[PointerFinder on: each]
-                         on: Error
-                         do: [:error | Transcript show: error; cr]]]
- 
- 
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>cleanupPhasePrepare (in category 'cleaning') -----
- cleanupPhasePrepare
- self cleanUnwantedCs.
-                 "SMSqueakMap default clearCaches."
- " Commented out for no Undeclared on image "
- #(zapMVCprojects zapAllOtherProjects discardFlash discardFFI
- computeImageSegmentation discardSpeech ) do:[:ea| 
- SystemDictionary removeSelector:ea].
- #( reserveUrl: saveAsResource saveDocPane saveOnURL saveOnURL:
- saveOnURLbasic isTurtleRow objectViewed inATwoWayScrollPane) do:[:ea| 
- Morph removeSelector: ea].
- 
- #(playfieldOptionsMenu presentPlayfieldMenu allScriptEditors
- attemptCleanupReporting: modernizeBJProject
- scriptorForTextualScript:ofPlayer:) do:[:ea| 
- PasteUpMorph removeSelector:   ea].
- #(isUniversalTiles noteDeletionOf:fromWorld: scriptorsForSelector:inWorld: tilesToCall: handMeTilesToFire) do:[:ea| 
- Player removeSelector:   ea].
- Player class removeCategory: 'turtles'.
- Player removeCategory: 'slots-user'.
- Morph removeCategory: 'scripting'.
- ColorType removeCategory: 'tiles'.
- TheWorldMainDockingBar removeSelector: #hideAllViewersIn: .
- SystemOrganization removeCategoriesMatching: 'UserObjects'.
- FileList2 class organization classify: #morphicViewOnDirectory: under: 'morphic ui'.
- FileList2 class organization classify: #morphicView under: 'morphic ui'.
- SystemOrganization classifyAll: #(AbstractMediaEventMorph ColorSwatch) under: 'MorphicExtras-AdditionalSupport'.!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createBackgroundColor (in category 'squeakThreeEleven') -----
- createBackgroundColor
- | gf |
- gf := GradientFillStyle  ramp: {0.0->(Color r: 0.97 g: 0.98 b: 1.0) .
- 1.0->(Color r: 0.0 g: 0.658 b: 0.474)}.
- 	gf	origin: 0 @ 0;
- 		direction: 0 at 400;
- 		normal: 640 at 0;
- 		radial: false.
- World fillStyle: gf!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
- createCompressedSources
- " ReleaseBuilderFor3dot11 new createCompressedSources"
- 
- ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir | 
- 	dir := self createDirIfnotExists:cl category.
- 	
- 	
- 	Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
- 		nameToUse :=  cl printString , FileDirectory dot, ImageSegment compressedFileExtension. 
- 		(dir fileExists: nameToUse) ifFalse:[
- 			unzipped :=RWBinaryOrTextStream on: ''.
- 			unzipped header; timeStamp.
- 	 cl  fileOutOn: unzipped moveSource: false toFile: 0.
- 	unzipped trailer.
- 	
- 			unzipped reset.
- 			zipped := dir newFileNamed: (nameToUse).
- 	zipped binary.
- 	zipped := GZipWriteStream on: zipped.
- 	buffer := ByteArray new: 50000.
- 	'Compressing ', nameToUse displayProgressFrom: 0 to: unzipped size
- 		during:[:bar|
- 			[unzipped atEnd] whileFalse:[
- 				bar value: unzipped position.
- 				zipped nextPutAll: (unzipped nextInto: buffer)].
- 			zipped close.
- 			unzipped close]]]] startingLevel: 0!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>createDirIfnotExists: (in category 'sources managment') -----
- createDirIfnotExists: aDirName
- (FileDirectory default directoryExists:aDirName)
- 		ifFalse: [FileDirectory default createDirectory: aDirName].
- 	^FileDirectory default directoryNamed: aDirName!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>getRidOfUnwantedMorphs (in category 'cleaning') -----
- getRidOfUnwantedMorphs
- | objFl aButton  partBin unwantedMorph |
- aButton := SimpleButtonMorph new label: 'Tools'.
- 			aButton actWhen: #buttonDown.
- objFl := Flaps globalFlapTabWithID: 'Objects'.
- objFl referent showCategory: 'Tools' fromButton: aButton.
- partBin := objFl referent submorphs at: 1.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.
- 2 timesRepeat: [unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: []. "we have two of this "
- unwantedMorph delete].
- objFl := Flaps globalFlapTabWithID: 'Tools'.
- partBin := objFl referent.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: [].
- unwantedMorph delete.
- unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
- unwantedMorph delete.!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>groupingTests (in category 'unloadPackages') -----
- groupingTests
- " this is how I build Tests-edc.35 for unload "
- | classList |
- 
- classList := OrderedCollection new.
- 	#(TestCase TestResource) do: [:cl|  (Smalltalk at:  cl)
- 		allSubclassesWithLevelDo: [:c :i | classList addFirst: c]
- 		startingLevel: 0].		
- 				 
- 	Smalltalk organization addCategory: 'Tests-Others'.
- 	 classList select: [:ea| ((ea basicCategory asString) beginsWith: 'Tests') not] thenDo: [:any|  SystemOrganization classify: any name under: 'Tests-Others']
- 	
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>installtrunk (in category 'updates') -----
- installtrunk
- 
- " ReleaseBuilderFor3dot11 new installtrunk"
- 
- 	MCWorkingCopy allManagers
- 		do: [:each | each repositoryGroup addRepository: (MCHttpRepository new location: 'http://source.squeakfoundation.org/trunk/';
- 					 user: 'squeak';
- 					 password: 'squeak')]!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>loadLastVersion: (in category 'updates') -----
- loadLastVersion: aListOfPackageNames 
- 	| mcw montiNames version |
- 	mcw := MCWorkingCopyBrowser new
- 				repository: (MCHttpRepository
- 						location: 'http://source.squeakfoundation.org/trunk'
- 						user: ''
- 						password: '').
- 	mcw repository
- 		ifNotNil: [:repos | montiNames := repos readableFileNames].
- 	aListOfPackageNames
- 		do: [:mo | | package | 
- 			package := montiNames
- 						detect: [:ea | (ea findTokens: '-' ) first = mo]
- 						ifNone: [].
- 			package
- 				ifNotNil: [version := mcw repository loadVersionFromFileNamed: package.
- 					version load]].
- 	^ version!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>makeSqueakThreeTenEleven (in category 'squeakThreeEleven') -----
- makeSqueakThreeTenEleven
- 	"ReleaseBuilderFor3dot11 new makeSqueakThreeTenEleven"
- 	"World removeAllMorphs."
- 	Transcript open.
- 	self cleanupPhasePrepare;getRidOfUnwantedMorphs
- 	"prepareforUnloadBookMorphandFriends;"
- 	;prepareforUnloadEtoys;
- 	prepareforUnloadNebraska
- 	;groupingTests;
- 	unloadSomeMore;unloadSomeMore3;cleanupPhaseFinal;createBackgroundColor!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadBookMorphandFriends (in category 'cleaning') -----
- prepareforUnloadBookMorphandFriends
- SystemOrganization addCategory: #BookMorphandFriends.
- 
- SystemOrganization classifyAll: #( BookMorph BookPageSorterMorph BookPageThumbnailMorph BooklikeMorph FlexMorph FloatingBookControlsMorph KedamaMorph MethodMorph  MorphThumbnail   StoryboardBookMorph ) under: 'BookMorphandFriends'.
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadEtoys (in category 'cleaning') -----
- prepareforUnloadEtoys
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- SystemOrganization classifyAll: #(ActorState MethodMorph Player Presenter StickySketchMorph UnscriptedPlayer SlotInformation UnscriptedCardPlayer) under: 'MorphicExtras-EToys-Scripting'.
- #( actorState actorState: isPartsDonor isPartsDonor: player player:) do: [:method|
- MorphExtension organization classify: method under: '*MorphicExtras-accessing' suppressIfDefault: false].
- HaloMorph organization classify: #doMakeSiblingOrDup:with: under: 'Old Etoys-handles'.
- HaloMorph organization classify: #doDupOrMakeSibling:with: under: 'Old Etoys-handles'.
- "self loadTogether: #('Morphic-CandidatesForGo-edc.3.mcz' ) merge: false."
- SystemOrganization classifyAll: #(ScriptEditorMorph TwoWayScrollPane TabSorterMorph) under:
- 'Morphic-CandidatesForGo'.
- 
- #('*eToys-queries' '*eToys-eToy vocabularies' '*eToys-color' '*eToys-customevents-custom events' '*eToys-type vocabularies') do:[:ea| 
- Vocabulary class removeCategory: ea].
- 
- #('*flexibleVocabularies-flexiblevocabularies-scripting' '*flexibleVocabularies-flexibleVocabularies' '*eToys-scripting' '*eToys-new-morph participation' '*eToys-customevents-user events') do:[:ea|
- Morph class removeCategory:  ea].
- #(nascentUserScriptInstance userScriptForPlayer: selector:  ) do:[:ea|
- Player class removeSelector:  ea].
- Smalltalk removeClassNamed: #FlexibleVocabulariesInfo.
- Preferences removePreference: #allowEtoyUserCustomEvents. 
- Morph organization classify: #partName:categories:documentation:sampleImageForm: under: '*MorphicExtras-new-morph participation'.
- #(possiblyReplaceEToyFlaps twiddleSuppliesButtonsIn:) do: [:ea| 
- Flaps class removeSelector:   ea].
- Flaps clobberFlapTabList.
- Flaps addStandardFlaps.
- SystemOrganization classifyAll: #(ComponentLikeModel) under: 'MorphicExtras-Components'
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>prepareforUnloadNebraska (in category 'cleaning') -----
- prepareforUnloadNebraska
- SystemOrganization addCategory: #'Nebraska-Refactoring'.
- 
- SystemOrganization classifyAll: #(EToyGenericDialogMorph EToyProjectDetailsMorph EToyProjectHistoryMorph EToyProjectQueryMorph EToyProjectRenamerMorph EtoyUpdatingThreePhaseButtonMorph) under: 'Nebraska-Refactoring'.
- WorldState organization classify: #remoteCanvasesDo: under: '*MorphicExtras-nebraska compatible'.
- !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>repository (in category 'updates') -----
- repository
- 	repository isNil
- 		ifTrue: [repository := MCHttpRepository
- 						location: 'http://source.squeakfoundation.org/trunk/'
- 						user: ''
- 						password: ''].
- 	^ repository!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>saveInTrunk: (in category 'squeakThreeEleven') -----
- saveInTrunk: packageName 
- 
- " ReleaseBuilderFor3dot11 new saveInTrunk: Foo"
- 	| monti repo |
- 	monti := MCWorkingCopyBrowser new.
- 	repo := MCHttpRepository
- 				location: 'http://source.squeak.org/trunk'
- 				user: ''
- 				password: ''.
- 	
- 	
- 	(SystemOrganization categoriesMatching: packageName , '*')
- 		do: [:cat | 
- 			| workingCopy message | 
- 			PackageInfo registerPackageName: cat asString.
- 			workingCopy := MCWorkingCopy
- 						forPackage: (MCPackage new name: cat asString).
- 			workingCopy repositoryGroup addRepository: repo.
- 			repo user
- 				ifEmpty: [repo
- 						user: (UIManager default request: 'Trunk Repository username').
- 					repo
- 						password: (UIManager default request: 'Trunk Repository  password')].
- 				message := 	UIManager default 
- 			request: 'Please type comments for this package:' translated
- 			initialAnswer: 'a good comment' translated.
- 			
- 			repo
- 						storeVersion: (workingCopy newVersionWithName: workingCopy uniqueVersionName message: message)].
- 					
- 			monti workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore (in category 'unloadPackages') -----
- unloadSomeMore
- #('Tests' 'SMLoader' 'SMBase' 'SUnit' 'SUnitGUI' 'ScriptLoader' 'Universes' 'Installer' 'XML-Parser' )
- 		do: [:ea | (MCPackage named: ea) unload].
- 		self fixObsoleteReferences !

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore2 (in category 'unloadPackages') -----
- unloadSomeMore2
- "ReleaseBuilderFor3dot11 new unloadSomeMore2;cleanupPhaseFinal "
- #('BookMorphandFriends'   )
- 		do: [:ea | (MCPackage named: ea) unload].self fixObsoleteReferences!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadSomeMore3 (in category 'unloadPackages') -----
- unloadSomeMore3
- "ReleaseBuilderFor3dot11 new unloadSomeMore3;cleanupPhaseFinal;cleanUnwantedCs "
- #('MorphicExtras-Demo'  'Morphic-CandidatesForGo' 'Nebraska' )
- 		do: [:ea | (MCPackage named: ea) unload].
- 		SystemOrganization removeCategoriesMatching: 'EToys*'.
- 		self fixObsoleteReferences!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraits (in category 'unloadPackages') -----
- unloadTraits
- 	"ReleaseBuilderFor3dot11 new unloadTraits"
- 	" self saveInLadrillos: 'Traits'."
- 	self unloadTraitsClearRefs.
- 	(MCPackage named: 'Traits') unload.
- 	self unloadTraitsTraitsStubs.
- 	self fixObsoleteReferences!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsClearRefs (in category 'unloadPackages') -----
- unloadTraitsClearRefs
- 
- | loader |
- 	loader := CodeLoader new.
- 	loader baseURL:'http://installer.pbwiki.org/f/'.
- 	
- 	"Sources and segments can be loaded in parallel"
- 	loader loadSourceFiles: #('UnloadTraits-ClearRefs.cs' ).
- 	!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsStubOutAcessors (in category 'unloadPackages') -----
- unloadTraitsStubOutAcessors
- 
- | loader |
- 	loader := CodeLoader new.
- 	loader baseURL:'http://installer.pbwiki.org/f/'.
- 	
- 	"Sources and segments can be loaded in parallel"
- 	loader loadSourceFiles: #('UnloadTraits-StubOutAcessors.cs' ).
- 	!

Item was removed:
- ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsTraitsStubs (in category 'unloadPackages') -----
- unloadTraitsTraitsStubs
- 
- | loader |
- 	loader := CodeLoader new.
- 	loader baseURL:'http://installer.pbwiki.org/f/'.
- 	
- 	"Sources and segments can be loaded in parallel"
- 	loader loadSourceFiles: #('UnloadTraits-TraitsStubs.cs' ).
- 	!

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot3
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!
- 
- !ReleaseBuilderFor4dot3 commentStamp: 'fbs 12/3/2012 09:47' prior: 0!
- This is the release builder for Squeak 4.3. It was formerly known as ReleaseBuilderTrunk.!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #squeakUserInterface
- 		label: 'Squeak User Interface'
- 		in: (40 @ 40 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #workingWithSqueak
- 		label: 'Working With Squeak'
- 		in: (80 @ 80 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #licenseInformation
- 		label: 'License Information'
- 		in: (120 @ 120 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #welcomeFutureDirections
- 		label: 'Future Directions'
- 		in: (160 @ 160 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #welcomeToSqueak43
- 		label: 'Welcome to Squeak 4.3'
- 		in: (200 @ 200 extent: 500 @ 300)!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>releaseRepository (in category 'private') -----
- releaseRepository
- 	^ MCHttpRepository
- 		location: self repositoryUrl , '/squeak43'
- 		user: 'squeak'
- 		password: 'squeak'!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- "	DisplayScreen hostWindowSize: extent."
- 	Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>setPreferences (in category 'private') -----
- setPreferences
- 	Preferences 
- 		installBrightWindowColors ;
- 		setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- 		setPreference: #swapMouseButtons toValue: true ;
- 		setPreference: #annotationPanes toValue: true ;
- 		setPreference: #showSplitterHandles toValue: false ;
- 		setPreference: #showBoundsInHalo toValue: true ;
- 		setPreference: #alternateHandlesLook toValue: false ;
- 		setPreference: #roundedMenuCorners toValue: false ;
- 		setPreference: #roundedWindowCorners toValue: false.
- 	PluggableButtonMorph roundedButtonCorners: false.
- 	FillInTheBlankMorph roundedDialogCorners: false.
- 	Workspace shouldStyle: false!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- 	| old42Repository |
- 	MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak43'.
- 	old42Repository := MCRepositoryGroup default repositories
- 				detect: [:each | each description includesSubString: 'squeak42'] ifNone: [nil].
- 	old42Repository
- 		ifNotNil: [MCRepositoryGroup default removeRepository: old42Repository].
- 	MCRepositoryGroup default addRepository: self releaseRepository!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot3 class>>versionString (in category 'as yet unclassified') -----
- versionString
- 	^ 'Squeak4.3'.!

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot4
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!
- 
- !ReleaseBuilderFor4dot4 commentStamp: 'fbs 10/24/2012 09:20' prior: 0!
- The release builder for Squeak 4.4!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #squeakUserInterface
- 		label: 'Squeak User Interface'
- 		in: (40 @ 40 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #workingWithSqueak
- 		label: 'Working With Squeak'
- 		in: (80 @ 80 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #licenseInformation
- 		label: 'License Information'
- 		in: (120 @ 120 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #welcomeFutureDirections
- 		label: 'Future Directions'
- 		in: (160 @ 160 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #welcomeToSqueak
- 		label: 'Welcome to Squeak 4.4'
- 		in: (200 @ 200 extent: 500 @ 300)!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- 	super prepareNewBuild.
- 	MCMockPackageInfo initialize.!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>releaseRepository (in category 'private') -----
- releaseRepository
- 	^ MCHttpRepository
- 		location: 'http://source.squeak.org/squeak44'
- 		user: 'squeak'
- 		password: 'squeak'!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- "	DisplayScreen hostWindowSize: extent."
- 	Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>setPreferences (in category 'private') -----
- setPreferences
- 	Preferences 
- 		installBrightWindowColors ;
- 		setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- 		setPreference: #swapMouseButtons toValue: true ;
- 		setPreference: #annotationPanes toValue: true ;
- 		setPreference: #showSplitterHandles toValue: false ;
- 		setPreference: #showBoundsInHalo toValue: true ;
- 		setPreference: #alternateHandlesLook toValue: false ;
- 		setPreference: #roundedMenuCorners toValue: false ;
- 		setPreference: #roundedWindowCorners toValue: false.
- 	PluggableButtonMorph roundedButtonCorners: false.
- 	FillInTheBlankMorph roundedDialogCorners: false.
- 	Workspace shouldStyle: false.
- 	NetNameResolver enableIPv6: false.!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- 	| old43Repository |
- 	MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- 	old43Repository := MCRepositoryGroup default repositories
- 				detect: [:each | each description includesSubString: 'squeak43'] ifNone: [nil].
- 	old43Repository
- 		ifNotNil: [MCRepositoryGroup default removeRepository: old43Repository].
- 	MCRepositoryGroup default addRepository: self releaseRepository!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot4 class>>versionString (in category 'private') -----
- versionString
- 	^ 'Squeak4.4'.!

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderFor4dot5
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!
- 
- !ReleaseBuilderFor4dot5 commentStamp: 'fbs 1/1/2013 20:25' prior: 0!
- The release builder for Squeak 4.5!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>loadWellKnownPackages (in category 'private') -----
- loadWellKnownPackages
- 	"Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact."
- 	#('311Deprecated'
- 	'39Deprecated'
- 	'45Deprecated'
- 	'Nebraska'
- 	'Universes'
- 	'XML-Parser') do: [:pkgName |
- 		Installer squeak
- 			project: 'trunk';
- 			install: pkgName].!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>openWelcomeWorkspaces (in category 'private') -----
- openWelcomeWorkspaces
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #squeakUserInterface
- 		label: 'Squeak User Interface'
- 		in: (40 @ 40 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #workingWithSqueak
- 		label: 'Working With Squeak'
- 		in: (80 @ 80 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #licenseInformation
- 		label: 'License Information'
- 		in: (120 @ 120 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #welcomeFutureDirections
- 		label: 'Future Directions'
- 		in: (160 @ 160 extent: 500 @ 300).
- 	TheWorldMainDockingBar instance
- 		showWelcomeText: #welcomeToSqueak
- 		label: 'Welcome to Squeak 4.5'
- 		in: (200 @ 200 extent: 500 @ 300)!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>prepareNewBuild (in category 'scripts') -----
- prepareNewBuild
- 	super prepareNewBuild.
- 	self loadWellKnownPackages.
- 	TextDomainManager clearAllDomains.
- 	MCMockPackageInfo initialize.
- 	Compiler recompileAll.!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>releaseRepository (in category 'private') -----
- releaseRepository
- 	"At release time, change 'trunk' to 'squeak45'."
- 	^ MCHttpRepository
- 		location: 'http://source.squeak.org/trunk'
- 		user: 'squeak'
- 		password: 'squeak'!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setDisplayExtent: (in category 'private') -----
- setDisplayExtent: extent
- "Uncomment next line when the primitives become available in the Squeak VM."
- "	DisplayScreen hostWindowSize: extent."
- 	Display extent = extent ifFalse: [ Warning signal: 'Display extent not set to ', extent ]!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>setPreferences (in category 'private') -----
- setPreferences
- 	Preferences 
- 		installBrightWindowColors ;
- 		setPreference: #scrollBarsWithoutMenuButton toValue: true ;
- 		setPreference: #swapMouseButtons toValue: true ;
- 		setPreference: #annotationPanes toValue: true ;
- 		setPreference: #showSplitterHandles toValue: false ;
- 		setPreference: #showBoundsInHalo toValue: true ;
- 		setPreference: #alternateHandlesLook toValue: false ;
- 		setPreference: #roundedMenuCorners toValue: false ;
- 		setPreference: #roundedWindowCorners toValue: false.
- 	PluggableButtonMorph roundedButtonCorners: false.
- 	FillInTheBlankMorph roundedDialogCorners: false.
- 	Workspace shouldStyle: false.
- 	NetNameResolver enableIPv6: true.!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>switchToNewRepository (in category 'private') -----
- switchToNewRepository
- 	| old44Repository |
- 	MCMcmUpdater defaultUpdateURL: self releaseRepository description.
- 	old44Repository := MCRepositoryGroup default repositories
- 				detect: [:each | each description includesSubString: 'squeak44'] ifNone: [nil].
- 	old44Repository
- 		ifNotNil: [MCRepositoryGroup default removeRepository: old44Repository].
- 	MCRepositoryGroup default addRepository: self releaseRepository!

Item was removed:
- ----- Method: ReleaseBuilderFor4dot5 class>>versionString (in category 'private') -----
- versionString
- 	^ 'Squeak4.5'.!

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderNihongo
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!

Item was removed:
- ----- Method: ReleaseBuilderNihongo>>release (in category 'release') -----
- release
- 	"self release"
- 	
- 	Utilities emptyScrapsBook.
- 
- 	Display setExtent: 960 at 720 depth: 16.
- 	World color: (Color r: 0.935 g: 0.935 b: 0.935).
- 
- 	"Preferences takanawa."
- 	Preferences setPreference: #magicHalos toValue: false.
- 	Preferences setPreference: #magicHalos toValue: true.
- 	Preferences setPreference: #mouseOverHalos toValue: false.
- 	Preferences setPreference: #mouseOverHalos toValue: true.
- 
- 	Player abandonUnnecessaryUniclasses.
- 	Player freeUnreferencedSubclasses.
- 	Player removeUninstantiatedSubclassesSilently.
- 
- 	PartsBin initialize.
- 	Flaps disableGlobalFlaps: false.
- 	Flaps addAndEnableEToyFlaps.
- 	ActiveWorld addGlobalFlaps.
- 	Flaps sharedFlapsAlongBottom.
- 
- 	Locale currentPlatform: (Locale isoLanguage: 'ja').
- 	Locale switchToID: (LocaleID isoLanguage: 'ja').
- 	Preferences restoreDefaultFonts.
- 	StrikeFont setupDefaultFallbackFont.
- 	Project current updateLocaleDependents.
- 
- 	"Dump all projects"
- 	Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
- 
- 	ChangeSet current clear.
- 	ChangeSet current name: 'Unnamed1'.
- 	Smalltalk garbageCollect.
- 
- 
- !

Item was removed:
- ReleaseBuilder subclass: #ReleaseBuilderSqueakland
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ReleaseBuilder'!

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalCleanup (in category 'utilities') -----
- finalCleanup
- 	"ReleaseBuilder new initialCleanup"
- 
- 
- 	Smalltalk abandonTempNames.
- 	Smalltalk zapAllOtherProjects.
- 	
- 	super finalCleanup!

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
- finalStripping
- 	"ReleaseBuilderSqueakland new finalStripping"
- 
- 	#(#Helvetica #Palatino #Courier #ComicSansMS )
- 		do: [:n | TextConstants
- 				removeKey: n
- 				ifAbsent: []].
- 	Smalltalk
- 		at: #Player
- 		ifPresent: [:superCls | superCls
- 				allSubclassesDo: [:cls | 
- 					cls isSystemDefined
- 						ifFalse: [cls removeFromSystem]]].
- 	Smalltalk garbageCollect.
- 	Smalltalk discardFFI; discardSUnit; discardSpeech.
- 	"discardMVC;"
- 	SystemOrganization removeEmptyCategories.
- !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>initialCleanup (in category 'utilities') -----
- initialCleanup
- 	"ReleaseBuilder new initialCleanup"
- 
- 	Smalltalk at: #Browser ifPresent:[:br| br initialize].
- 	ChangeSet removeChangeSetsNamedSuchThat:
- 		[:cs| cs name ~= ChangeSet current name].
- 
- 	super initialCleanup!

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installPreferences (in category 'utilities') -----
- installPreferences
- 
- 	#(
- 		(honorDesktopCmdKeys false)
- 		(warnIfNoChangesFile false)
- 		(warnIfNoSourcesFile false)
- 		(showDirectionForSketches true)
- 		(menuColorFromWorld false)
- 		(unlimitedPaintArea true)
- 		(useGlobalFlaps false)
- 		(mvcProjectsAllowed false)
- 		(projectViewsInWindows false)
- 		(automaticKeyGeneration true)
- 		(securityChecksEnabled true)
- 		(showSecurityStatus false)
- 		(startInUntrustedDirectory true)
- 		(warnAboutInsecureContent false)
- 		(promptForUpdateServer false)
- 		(fastDragWindowForMorphic false)
- 
- 		(externalServerDefsOnly true)
- 		(expandedFormat false)
- 		(eToyFriendly true)
- 		(eToyLoginEnabled true)
- 		(magicHalos true)
- 		(mouseOverHalos true)
- 		(biggerHandles false)
- 		(selectiveHalos true)
- 		(includeSoundControlInNavigator true)
- 		(readDocumentAtStartup true)
- 		(preserveTrash true)
- 		(slideDismissalsToTrash true)
- 		(propertySheetFromHalo true)
- 
- 	) do:[:spec|
- 		Preferences setPreference: spec first toValue: spec last].
- 	"Workaround for bug"
- 	Preferences enable: #readDocumentAtStartup.
- !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installReleaseSpecifics (in category 'utilities') -----
- installReleaseSpecifics
- 	"ReleaseBuilderSqueakland new installReleaseSpecifics"
- 
- 	| serverName serverURL serverDir updateServer |
- 
- 	ProjectLauncher splashMorph: (FileDirectory default readOnlyFileNamed: 'scripts\SqueaklandSplash.morph') fileInObjectAndCode.
- 
- 	"Dump all morphs so we don't hold onto anything"
- 	World submorphsDo:[:m| m delete].
- 
- 	World color: (Color r: 0.9 g: 0.9 b: 1.0).
- 
- 	"Clear all server entries"
- 	ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- 	SystemVersion current resetHighestUpdate.
- 
- 	"Add the squeakalpha update stream"
- 	serverName := 'Squeakalpha'.
- 	serverURL := 'squeakalpha.org'.
- 	serverDir := serverURL , '/'.
- 
- 	updateServer := ServerDirectory new.
- 	updateServer
- 		server: serverURL;
- 		directory: 'updates/';
- 		altUrl: serverDir;
- 		user: 'sqland';
- 		password: nil.
- 	Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- 
- 	"Add the squeakland update stream"
- 	serverName := 'Squeakland'.
- 	serverURL := 'squeakland.org'.
- 	serverDir := serverURL , '/'.
- 
- 	updateServer := ServerDirectory new.
- 	updateServer
- 		server: serverURL;
- 		directory: 'public_html/updates/';
- 		altUrl: serverDir.
- 	Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
- 
- !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>installVersionInfo (in category 'utilities') -----
- installVersionInfo
- 	"ReleaseBuilderSqueakland new installVersionInfo"
- 
- 	| highestUpdate newVersion |
- 	highestUpdate := SystemVersion current highestUpdate.
- 	(self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
- 		ifTrue: [SystemVersion current highestUpdate: 0].
- 
- 	newVersion := UIManager default request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString. 
- 	SystemVersion newVersion: newVersion.
- 	(self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !

Item was removed:
- ----- Method: ReleaseBuilderSqueakland>>setupLanguageSpecifics (in category 'utilities') -----
- setupLanguageSpecifics
- 	"ReleaseBuilderSqueakland new setupLanguageSpecifics"
- 	Locale current languageEnvironment setupSqueaklandSpecifics!



More information about the Squeak-dev mailing list