--- a/STXInstaller.st Thu Dec 23 23:31:03 1999 +0100
+++ b/STXInstaller.st Fri Dec 24 01:14:08 1999 +0100
@@ -232,9 +232,11 @@
( 'projects/smalltalk/include' #lib nil true '644' )
( 'projects/smalltalk/*.rc' #lib nil true '644' )
( 'projects/smalltalk/patches' #lib nil true '644' )
- ( 'COPYRIGHT' #lib nil true '644' )
- ( 'doc/online/german/LICENCE.STX.html' nil 'doc/online/german' true '644' )
- ( 'doc/online/english/LICENCE.STX.html' nil 'doc/online/english' true '644' )
+ ( 'COPYRIGHT' nil nil true '644' )
+ ( 'doc/online/german/LICENCE_STX.html' nil 'doc/online/german' true '644' )
+ ( 'doc/online/english/LICENCE_STX.html' nil 'doc/online/english' true '644' )
+ ( 'doc/online/german/LICENCE_DEMO_STX.html' nil 'doc/online/german' true '644' )
+ ( 'doc/online/english/LICENCE_DEMO_STX.html' nil 'doc/online/english' true '644' )
).
installDocFiles ifTrue:[
@@ -264,8 +266,8 @@
^ fileSpec
- "Modified: / 30.4.1999 / 18:02:22 / cg"
"Created: / 2.5.1999 / 13:17:37 / cg"
+ "Modified: / 24.12.1999 / 01:16:42 / cg"
!
specOfFilesToCopy
@@ -809,7 +811,7 @@
].
commandTraceView endEntry.
].
- srcF directory directoryContents do:[:fileName |
+ (srcF directory directoryContents ? #()) do:[:fileName |
(srcBaseName match:fileName) ifTrue:[
(#(
'CVS'
@@ -846,7 +848,7 @@
(d exists) ifFalse:[
d makeDirectory.
].
- srcF directoryContents do:[:fileName |
+ (srcF directoryContents ? #()) do:[:fileName |
self recursiveCopy:(srcF construct:fileName)
to:d
print:false
@@ -857,7 +859,7 @@
"/ ]
"Created: / 31.5.1999 / 13:05:09 / cg"
- "Modified: / 23.12.1999 / 22:07:41 / cg"
+ "Modified: / 23.12.1999 / 23:36:53 / cg"
! !
!STXInstaller methodsFor:'startup'!