equal
deleted
inserted
replaced
626 dir := self searchDirectoryHolder value. |
626 dir := self searchDirectoryHolder value. |
627 dir isNil ifTrue:[ |
627 dir isNil ifTrue:[ |
628 Dialog warn:'Missing directory name'. |
628 Dialog warn:'Missing directory name'. |
629 ^ self. |
629 ^ self. |
630 ]. |
630 ]. |
631 dir asFilename exists not ifTrue:[ |
631 dir asFilename exists ifFalse:[ |
632 Dialog warn:('No such directory: ''%1''' bindWith:dir asString allBold). |
632 Dialog warn:('No such directory: ''%1''' bindWith:dir asString allBold). |
633 ^ self. |
633 ^ self. |
634 ]. |
634 ]. |
635 |
635 |
636 searchTask notNil ifTrue:[ |
636 searchTask notNil ifTrue:[ |
1480 filesSize isNil ifTrue:[ |
1480 filesSize isNil ifTrue:[ |
1481 filesSize := fn asFilename fileSize. |
1481 filesSize := fn asFilename fileSize. |
1482 info at:1 put:filesSize. |
1482 info at:1 put:filesSize. |
1483 ]. |
1483 ]. |
1484 (idxInList := fileSizesToSearchFor indexOf:filesSize) ~~ 0 ifTrue:[ |
1484 (idxInList := fileSizesToSearchFor indexOf:filesSize) ~~ 0 ifTrue:[ |
1485 (setOfFilesToSearchFor includes:fn) not ifTrue:[ |
1485 (setOfFilesToSearchFor includes:fn) ifFalse:[ |
1486 fn asFilename exists ifFalse:[ |
1486 fn asFilename exists ifFalse:[ |
1487 info at:1 put:nil. |
1487 info at:1 put:nil. |
1488 info at:2 put:nil. |
1488 info at:2 put:nil. |
1489 ] ifTrue:[ |
1489 ] ifTrue:[ |
1490 filesMD5 := info at:2. |
1490 filesMD5 := info at:2. |
1626 ! ! |
1626 ! ! |
1627 |
1627 |
1628 !FindFileApplication class methodsFor:'documentation'! |
1628 !FindFileApplication class methodsFor:'documentation'! |
1629 |
1629 |
1630 version |
1630 version |
1631 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.69 2005-02-11 15:09:37 mb Exp $' |
1631 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.70 2005-04-14 09:12:17 cg Exp $' |
1632 ! ! |
1632 ! ! |