"/
"/ $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'.
Project current:p.
].
'patches [info]: installing patches...' infoPrintCR.
!
"/ read patches from two patch-directories, called 'stxPatches' and 'userPatches'.
"/ (in the future, patch-sets will be delivered for that directory in the future)
"/ This is not yet done, 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.
#(
'stxPatches'
'userPatches'
) do:[:patchDirName |
|patchDirOrNil patchDir|
patchDirOrNil := Smalltalk getSystemFileName:patchDirName.
patchDirOrNil notNil ifTrue:[
patchDir := patchDirOrNil 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 ...
"/
!