DirectoryContents.st
changeset 679 ce7aed726aff
parent 620 2a40beccf337
child 695 368ddb719976
equal deleted inserted replaced
678:6b13c1fcd039 679:ce7aed726aff
   309 
   309 
   310 isObsolete
   310 isObsolete
   311     "returns true if directory contents is obsolete
   311     "returns true if directory contents is obsolete
   312     "
   312     "
   313     ^ (     directory exists not
   313     ^ (     directory exists not
   314         or:[timeStamp < directory modificationTime]
   314         or:[timeStamp notNil and:[timeStamp < directory modificationTime]]
   315       )
   315       )
       
   316 
       
   317     "Modified: / 17.8.1998 / 10:05:23 / cg"
   316 !
   318 !
   317 
   319 
   318 notEmpty
   320 notEmpty
   319     "returns true if directory is not empty
   321     "returns true if directory is not empty
   320     "
   322     "
   322 ! !
   324 ! !
   323 
   325 
   324 !DirectoryContents class methodsFor:'documentation'!
   326 !DirectoryContents class methodsFor:'documentation'!
   325 
   327 
   326 version
   328 version
   327     ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.3 1998-03-09 16:14:06 ca Exp $'
   329     ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.4 1998-08-17 08:06:01 cg Exp $'
   328 ! !
   330 ! !