equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 |
13 |
|
14 |
|
15 "{ Package: 'stx:libbasic2' }" |
14 |
16 |
15 Object subclass:#DirectoryContents |
17 Object subclass:#DirectoryContents |
16 instanceVariableNames:'directory timeStamp names files types' |
18 instanceVariableNames:'directory timeStamp names files types' |
17 classVariableNames:'List' |
19 classVariableNames:'List' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
345 1 to:size do:[:i| aOneArgBlock value:i] |
347 1 to:size do:[:i| aOneArgBlock value:i] |
346 ! ! |
348 ! ! |
347 |
349 |
348 !DirectoryContents methodsFor:'queries'! |
350 !DirectoryContents methodsFor:'queries'! |
349 |
351 |
350 isEmpty |
|
351 "retuirns true if directory is empty |
|
352 " |
|
353 ^ names size == 0 |
|
354 ! |
|
355 |
|
356 isObsolete |
352 isObsolete |
357 "returns true if directory contents is obsolete |
353 "returns true if directory contents is obsolete |
358 " |
354 " |
359 ^ ( directory exists not |
355 ^ ( directory exists not |
360 or:[timeStamp notNil and:[timeStamp < directory modificationTime]] |
356 or:[timeStamp notNil and:[timeStamp < directory modificationTime]] |
361 ) |
357 ) |
362 |
358 |
363 "Modified: / 17.8.1998 / 10:05:23 / cg" |
359 "Modified: / 17.8.1998 / 10:05:23 / cg" |
|
360 ! ! |
|
361 |
|
362 !DirectoryContents methodsFor:'testing'! |
|
363 |
|
364 isEmpty |
|
365 "retuirns true if directory is empty |
|
366 " |
|
367 ^ names size == 0 |
364 ! |
368 ! |
365 |
369 |
366 notEmpty |
370 notEmpty |
367 "returns true if directory is not empty |
371 "returns true if directory is not empty |
368 " |
372 " |
370 ! ! |
374 ! ! |
371 |
375 |
372 !DirectoryContents class methodsFor:'documentation'! |
376 !DirectoryContents class methodsFor:'documentation'! |
373 |
377 |
374 version |
378 version |
375 ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.9 2000-02-11 13:15:06 cg Exp $' |
379 ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.10 2000-08-22 13:47:38 cg Exp $' |
376 ! ! |
380 ! ! |