"/
"/ $Header$
"/
"/ This file is processed very early at initial startup (before any rc script)
"/ - not when resuming an image.
"/

"/
"/ set the package for changes done below
"/
Project notNil ifTrue:[
    |p|

    p := Project new.
    p package:#'patches'.
    p comment:'only for patches'.
    Project current:p.
].

'patches [info]: installing patches...' infoPrintCR.
!

"/ future systems will read patches from a patch-directory,
"/ called stxPatches. (we will deliver patch-sets in the future)
"/ This is not yet implemented, but we are prepared here for
"/ this ...
"/ patches from that directory are read in alphabetic order;
"/ patches will be named them p_nnnn.st, where nnnn is a sequence-nr.

|patchDir|

patchDir := 'stxPatches' asFilename.
(patchDir exists and:[patchDir isDirectory and:[patchDir isReadable]]) ifTrue:[
    patchDir directoryContents sort do:[:f |
	|fn|

	fn := (patchDir construct:f) name.
	('patches [info]: reading patchFile ''' , fn , '''...') infoPrintCR.
	Smalltalk fileIn:fn.
    ]
].
!

"/
"/ the following patches where added by the changesBrowsers 'make change a patch'
"/ function ...
"/
!