equal
deleted
inserted
replaced
964 fileToCompareAgainst isEmpty ifTrue:[ |
964 fileToCompareAgainst isEmpty ifTrue:[ |
965 fileToCompareAgainst := nil. |
965 fileToCompareAgainst := nil. |
966 ] ifFalse:[ |
966 ] ifFalse:[ |
967 fileToCompareAgainst includesMatchCharacters ifFalse:[ |
967 fileToCompareAgainst includesMatchCharacters ifFalse:[ |
968 (fn := fileToCompareAgainst asFilename) exists ifFalse:[ |
968 (fn := fileToCompareAgainst asFilename) exists ifFalse:[ |
969 Dialog warn:('No such file: %1' bindWith:fileToCompareAgainst allBold). |
969 Dialog warn:'No such file: %1' with:fileToCompareAgainst allBold. |
970 ^ self. |
970 ^ self. |
971 ]. |
971 ]. |
972 fn isReadable ifFalse:[ |
972 fn isReadable ifFalse:[ |
973 Dialog warn:('Cannot read: %1' bindWith:fileToCompareAgainst allBold). |
973 Dialog warn:'Cannot read: %1' with:fileToCompareAgainst allBold. |
974 ^ self. |
974 ^ self. |
975 ] |
975 ] |
976 ]. |
976 ]. |
977 ]. |
977 ]. |
978 ]. |
978 ]. |
996 |
996 |
997 ] |
997 ] |
998 name:('FindFile[', dir asFilename baseName, ']') |
998 name:('FindFile[', dir asFilename baseName, ']') |
999 |
999 |
1000 "Modified: / 16-03-2012 / 09:37:13 / cg" |
1000 "Modified: / 16-03-2012 / 09:37:13 / cg" |
|
1001 "Modified: / 10-07-2019 / 18:26:13 / Claus Gittinger" |
1001 ! |
1002 ! |
1002 |
1003 |
1003 fileInInBrowser |
1004 fileInInBrowser |
1004 |sel entry application| |
1005 |sel entry application| |
1005 |
1006 |