MCDirectoryRepository.st
branchjv
changeset 1121 c5661215109c
parent 1115 12c55ec23e26
child 1142 f43bfccabfdb
--- a/MCDirectoryRepository.st	Fri Jul 03 16:01:53 2020 +0100
+++ b/MCDirectoryRepository.st	Sat Jul 04 08:14:13 2020 +0100
@@ -1,5 +1,10 @@
+"
+COPYRIGHT (c) 2020 LabWare
+"
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 MCFileBasedRepository subclass:#MCDirectoryRepository
 	instanceVariableNames:'directory'
 	classVariableNames:''
@@ -7,6 +12,15 @@
 	category:'SCM-Monticello-Repositories'
 !
 
+!MCDirectoryRepository class methodsFor:'documentation'!
+
+copyright
+"
+COPYRIGHT (c) 2020 LabWare
+
+
+"
+! !
 
 !MCDirectoryRepository class methodsFor:'initialization'!
 
@@ -144,12 +158,9 @@
 !MCDirectoryRepository methodsFor:'queries'!
 
 allFileNames
-    | files |
-    files := directory directoryContentsAsFilenames asArray.
-    files sort: [:a :b | a modificationTime >= b modificationTime].
-    ^ files collect: [:each | each baseName ].
+    ^ (directory directoryContentsAsFilenames asArray sortBy: [:a :b | a modificationTime >= b modificationTime]) collect: [:ea | ea baseName]
 
-    "Modified: / 25-08-2020 / 10:07:29 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 03-07-2020 / 20:30:51 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !MCDirectoryRepository class methodsFor:'documentation'!