"This is the build script to construct STP's image on top of the Squeak 3.0 release.

DO NOT FILE THIS IN -- READ IT AND FOLLOW THE INSTRUCTIONS.

Steps:
	Fire up a new Squeak 3.0 image (or your favorite 3.0-based image).
	Configure the GUI to your taste. (I set rounded corners, larger fonts, 
		turn flaps on, and change a few of the default window colors.)
	Open file list on the STP12 directory.
	Open the file STP12.3.0.bld (this file).
	Read through these instructions, the file list, and the comments.
	Comment-out any files you don't want.
	Edit the base directory and possibly replace the filename separator 
		from ':' to whatever works on your platform.
	Double-click just inside the open bracket bracket on the following 
		line to select the entire file-in expression.
	Doit!
	Then read and step through the blocks that follow the file-in list.

[	"Block for file-ins; double-click just inside the bracket and do-it"

"Preparation"
	Preferences setPreference: #confirmFirstUseOfStyle toValue: false.

"Give path to where the file-ins are (absolute) -- edit to taste"

"	Smalltalk at: #STP12RootDir put: 'Nomad:Squeak:STP12 Goodies:3.0:'. "	"Mac"
	Smalltalk at: #STP12RootDir put: '/home/stp/st/STP12.3.0/'.				"UNIX"
	Smalltalk at: #FileSep put: FileDirectory pathNameDelimiter asString.

#(		"Array of files to be read in"

"First things first..."
	'System:TranscriptStream-limit.st'

"System & Kernel Extensions"

	'System:CaseStatement.st'
	'System:CodeGen.st'
	'System:CollectionAdds.st'
	'System:ColorForm-offsetColors.st'
	'System:Dictionary-associations.st'
	'System:FileStr-creation.st'
	'System:Float-printPlaces.st'
	'System:Float-twopi.st'
	'System:FlushChangesOnFileOut.st'
	'System:FormattedStr.cs'
	'System:IgnoreFontsInCode.st'
	'System:Interval-extent.st'
	'System:MultiModel.st'
	'System:Object-dependency.st'
	'System:Object-safeHalt.st'
	'System:Object-testing.st'
	'System:Point-accessing.st'
"	'System:Printing.st'	"			"optional"
	'System:PStream-skipSeparators.st'
	'System:RandomAdds.st'
	'System:ScreenAdds.st'
	'System:StreamIO.st'
	'System:String-conversions.cs'
	'System:StringAdds.st'
	'System:TextEmphasis-storeOn.st'
	'System:Utilities-html.st'
	'System:ZPoint.st'

"Development Tool Extensions"

	'Tools:Browser-additions.st'
	'Tools:ChangeList-recent.cs'
	'Tools:FileList-directory.st'
	'Tools:FileList-readContentsHex.st'
	'Tools:FileList-recent.cs'
	'Tools:MessageTally-toFileNamed.st'
	'Tools:RedComments.st'
	'Tools:StringHolder-contentsText.st'
	'Tools:TemplateMorph.st'

"Assorted GUI Changes (optional)"

	'GUI:DisplayScreen-splash.st'
	'GUI:FindSelAssign.cs'
	'GUI:GrowBox.cs'
	'GUI:PluggableButton-action.st'
	'GUI:Preferences-desktopGIFs.st'
	'GUI:RealEstate.cs'
	'GUI:SSView-modelLabelMinSize.st'
	'GUI:SSView-resizeInitially.st'
	'GUI:View-addSubView.st'

"Display List Graphics Framework"

	'Graphics:Color-depth.st'
	'Graphics:display-compatibility.st'
	'Graphics:Graphics-3D.st'
	'Graphics:Graphics-Containers.st'
	'Graphics:ZPoint-perspective.st'

"Add-on Packages"

	'Packages:Kernel-Values.st'
	'Packages:LauncherView.st'
	'Packages:OutlineSupport.st'
	'Packages:Tools-Outlines.st'

) do: [ :file | | realName |
	file replaceAll: $: with: FileDirectory pathNameDelimiter.
	Transcript cr; show: file.
	(FileStream readOnlyFileNamed: (Smalltalk at: #STP12RootDir), file) fileIn]].


----------------------------DONE WITH BULK FILE-IN----------------------------


Now look in the Fixes directory and file in anything found there.

[	((FileDirectory on: (STP12RootDir, 'Fixes')) fileNamesMatching: '*') do:
		[ :file | 
		Transcript cr; show: file.
		(FileStream readOnlyFileNamed: 
					(Smalltalk at: #STP12RootDir), 'Fixes', FileSep, file) fileIn]]

Finalize Things--execute these one at a time.

Clean up...

[	Smalltalk noChanges.
	Undeclared removeUnreferencedKeys]

Morphic GUI Preferences -- Do this in a Morphic project (optional).

[	Preferences setPreference: #browserShowsPackagePane toValue: true.
	Preferences setPreference: #reverseWindowStagger toValue: false.
	Preferences setPreference: #thoroughSenders toValue: true.
	Preferences setPreference: #disableSounds toValue: false.
	Preferences setPreference: #fileListSortMode toValue: #name.

	Preferences setPreference: #inboardScrollbars toValue: true.
	Preferences setPreference: #scrollBarsOnRight toValue: false.
	Preferences setPreference: #scrollBarsNarrow toValue: true.
	Preferences setPreference: #scrollBarsWithoutMenuButton toValue: true.

	Preferences setPreference: #roundedWindowCorners toValue: true.
	Preferences setPreference: #allowLabelDragging toValue: true.
	Preferences setPreference: #fastDragWindowForMorphic toValue: true.
	Preferences setPreference: #useGlobalFlaps toValue: true.
	Preferences setPreference: #ignoreAllUsesOfStyle toValue: true.
	Preferences setParameter: #menuColor to: Color lightBlue.
	Utilities reinstateDefaultFlaps]

Load default 128@128 desktop patterns.

[	Preferences loadDesktopPatterns: STP12RootDir, 'DesktopGIFs', FileSep.
	Preferences pickDesktopPattern]

OR, load a full-screen background picture

[	Preferences desktopFromGIFFile: STP12RootDir, 'DesktopPictures', FileSep, 'Droplets.GIF'
"	Preferences desktopFromGIFFile: STP12RootDir, 'DesktopPictures', FileSep, 'Blocks.GIF' "]

Open the system outline.

[	Smalltalk at: #SystemOutline put: (Outline load: STP12RootDir, 'Squeak3.0.outline').
	OutlineBrowser openSystemOutline]

If setting up "Getting Started" image

[	Smalltalk at: #StartupOutline put: (Outline load: STP12RootDir, 'Starter.outline').
	OutlineBrowser openOn: StartupOutline label: 'Getting Started with Squeak' ]

Now you'll have to copy/paste the first section's text from the 'Welcome to..." window in the top MVC project.

Open a launcher view.

[	LauncherView open]


Now make a snapshot!