[GOODIE] installer template

Jason McVay jmcvay at bigfoot.com
Sun Sep 26 13:11:15 UTC 1999


i don't know about the rest of ya, but i do clean installs from time to time
and i DON'T like manually installing each and every [ENH], [GOODIE], or
[FIX] i've picked up along the way. a possible solution:

the following is a template that i stole--er, adapted [smile]--from mr.
stephen pope. the adaptation here is that the files are logged in in their
own changesets... the 1st part is the blank template. the 2nd is my personal
template as an example of how to use the danged thing.

instructions:
- you should edit this template and put it wherever (but most likely where
your squeak image is because that's where the FileList 1st pops you to).
- in the FileList, select the file (i call mine INSTALL-OUTLINE.st)
- select all the text (cmd-a)
- doIt (cmd-d).

you should then have a sparkling new image just the way you like it. hope
you all like it. i use it often.

"-----start here-----"

| ff |
"Preparation (i.e. things that need to be done 1st so that the rest of the
installation goes smooth"

  "Give path to where the file-ins are -- "
  "absolute or relative path name, edit to taste"
  Smalltalk at: #RootDir put: ':'.

  #(  "Array of files to be read in"

''
''

) do: [ :file | ff _ ((file findTokens: FileDirectory pathNameDelimiter
asString) last findTokens: '.') first.
 ChangeSorter newChangesFromStream: (CrLfFileStream readOnlyFileNamed:
((Smalltalk at: #RootDir), file)) named: ff].


"----------------------------DONE WITH FILE-IN----------------------------"

"Finalize Things--execute these one at a time."

"Clean up..."
 Smalltalk noChanges.
 Undeclared removeUnreferencedKeys.

"other finalization things"

 Smalltalk removeKey: #RootDir

"------end here------"

===========
===========

and here's mine as an example:

| ff |
"Preparation"
 Preferences disable: #confirmFirstUseOfStyle.

   "Give path to where the file-ins are -- "
  "absolute or relative path name, edit to taste"
  Smalltalk at: #RootDir put: 'Documents:Programming:Squeak:stuffeses:'.

  #(  "Array of files to be read in"

"First things first..."
 'mines:DookieTweaks.22Sep1202pm.cs' "the _Dookie_ is an inside joke ya'll"
 'mines:Preferences cl...indowColors.st'
 'mines:PastelWindowColors.st'

"other people's stuff"
 'SocketsGC.cs'
 'SyntaxMorph.24Aug623pm.cs'
 'novicedebugger.23Aug1242am.cs'
 'Comparison.18Aug114pm.cs'
 'TextColours.5Sept1240am.cs'
 'BrowserENH.16Sep1124am.cs'
 'SortCriteria_v1.16Sep1121am.cs'
 'Whisker-dew.2.5.cs'
 'TimeProfileBrowser.cs'
 'reframe-bf.6Sept1154am.cs'
 '3dlook-bf.cs'
 'ParagraphFix.23Sep1057am.cs'
 'BobArningFixes.23Sep425pm.cs'

"mines"
 'mines:SyntaxMorphTweek.01Sep401pm.cs'
 'mines:promptForCancel.07Sep1055pm.cs'
 'mines:ParagraphEdito.11Sep401pm.cs'
 'mines:ListItemSelect...07Sep1049pm.cs'
 'mines:History.22Sep439am.cs'
 'mines:BrowserHistory.22Sep502am.cs'
 'mines:ColorSyntax.22Sep537pm.cs'

) do: [ :file | ff _ ((file findTokens: FileDirectory pathNameDelimiter
asString) last findTokens: '.') first.
 ChangeSorter newChangesFromStream: (CrLfFileStream readOnlyFileNamed:
((Smalltalk at: #RootDir), file)) named: ff].


"----------------------------DONE WITH FILE-IN----------------------------"

"Finalize Things--execute these one at a time."

"Clean up..."
 Smalltalk noChanges.
 Undeclared removeUnreferencedKeys.

"Morphic GUI Preferences -- Do this in a Morphic Project"
 Preferences enable: #allowLabelDragging.
 Preferences enable: #browseWithPrettyPrint.
 Preferences disable: #disableSounds.
 Preferences enable: #fastDragWindowForMorphic.
 Preferences enable: #ignoreAllUsesOfStyle.
 Preferences disable: #inboardScrollbars.
 Preferences enable: #leftHandScrollbars.
 Preferences enable: #reverseWindowStagger.
 Preferences enable: #showTimeStampsInMenuTitles.
 Preferences enable: #thoroughSenders.
 Preferences enable: #uniformWindowColors.
 Preferences enable: #userPlacement.
 Preferences enable: #useGlobalFlaps.
 Preferences enable: #warnIfNoChangesFile.
 Preferences enable: #warnIfNoSourcesFile.
 Utilities reinstateDefaultFlaps.
 (Object currentWorld) setStandardTexture.


 Smalltalk removeKey: #RootDir





More information about the Squeak-dev mailing list