equal
deleted
inserted
replaced
636 ] ifFalse:[ |
636 ] ifFalse:[ |
637 self ignoreCaseInNotContents value ifTrue:[ |
637 self ignoreCaseInNotContents value ifTrue:[ |
638 notContentsPattern := notContentsPattern asLowercase |
638 notContentsPattern := notContentsPattern asLowercase |
639 ] |
639 ] |
640 ]. |
640 ]. |
641 fileToCompareAgainst := (self sameContentsAsHolder value ? '') withoutSeparators. |
641 searchForSameContents value ifTrue:[ |
642 fileToCompareAgainst isEmpty ifTrue:[ |
642 fileToCompareAgainst := (self sameContentsAsHolder value ? '') withoutSeparators. |
643 fileToCompareAgainst := nil. |
643 fileToCompareAgainst isEmpty ifTrue:[ |
644 ] ifFalse:[ |
644 fileToCompareAgainst := nil. |
645 fileToCompareAgainst includesMatchCharacters ifFalse:[ |
645 ] ifFalse:[ |
646 fileToCompareAgainst asFilename exists ifFalse:[ |
646 fileToCompareAgainst includesMatchCharacters ifFalse:[ |
647 Dialog warn:('No such file: %1' bindWith:fileToCompareAgainst asString allBold). |
647 fileToCompareAgainst asFilename exists ifFalse:[ |
648 ^ self. |
648 Dialog warn:('No such file: %1' bindWith:fileToCompareAgainst asString allBold). |
|
649 ^ self. |
|
650 ]. |
|
651 fileToCompareAgainst asFilename isReadable ifFalse:[ |
|
652 Dialog warn:('Cannot read: %1' bindWith:fileToCompareAgainst asString allBold). |
|
653 ^ self. |
|
654 ] |
649 ]. |
655 ]. |
650 fileToCompareAgainst asFilename isReadable ifFalse:[ |
|
651 Dialog warn:('Cannot read: %1' bindWith:fileToCompareAgainst asString allBold). |
|
652 ^ self. |
|
653 ] |
|
654 ]. |
656 ]. |
655 ]. |
657 ]. |
656 |
658 |
657 searchTask := |
659 searchTask := |
658 [ |
660 [ |
1453 ! ! |
1455 ! ! |
1454 |
1456 |
1455 !FindFileApplication class methodsFor:'documentation'! |
1457 !FindFileApplication class methodsFor:'documentation'! |
1456 |
1458 |
1457 version |
1459 version |
1458 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.42 2004-03-22 15:21:19 cg Exp $' |
1460 ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.43 2004-03-22 17:09:29 cg Exp $' |
1459 ! ! |
1461 ! ! |