Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 24 Dec 1999 01:14:08 +0100
changeset 1284 9f4ba1b3b604
parent 1283 f34c53bb7503
child 1285 6373771ca727
checkin from browser
STXInstaller.st file | annotate | diff | comparison | revisions 
--- 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'!
hg/stx-libtool2