508 ]. |
508 ]. |
509 ]. |
509 ]. |
510 ] |
510 ] |
511 ]. |
511 ]. |
512 filesOnlyInDirectory1 notEmpty ifTrue:[ |
512 filesOnlyInDirectory1 notEmpty ifTrue:[ |
513 Transcript showCR:('%1 files only in directory1' bindWith:filesOnlyInDirectory1 size). |
513 Transcript showCR:'%1 files only in directory1' with:filesOnlyInDirectory1 size. |
514 ]. |
514 ]. |
515 filesOnlyInDirectory2 notEmpty ifTrue:[ |
515 filesOnlyInDirectory2 notEmpty ifTrue:[ |
516 Transcript showCR:('%1 files only in directory2' bindWith:filesOnlyInDirectory2 size). |
516 Transcript showCR:'%1 files only in directory2' with:filesOnlyInDirectory2 size. |
517 ]. |
517 ]. |
518 directoriesOnlyInDirectory1 notEmpty ifTrue:[ |
518 directoriesOnlyInDirectory1 notEmpty ifTrue:[ |
519 Transcript showCR:('%1 directories only in directory1' bindWith:directoriesOnlyInDirectory1 size). |
519 Transcript showCR:'%1 directories only in directory1' with:directoriesOnlyInDirectory1 size. |
520 ]. |
520 ]. |
521 directoriesOnlyInDirectory2 notEmpty ifTrue:[ |
521 directoriesOnlyInDirectory2 notEmpty ifTrue:[ |
522 Transcript showCR:('%1 directories only in directory2' bindWith:directoriesOnlyInDirectory2 size). |
522 Transcript showCR:'%1 directories only in directory2' with:directoriesOnlyInDirectory2 size. |
523 ]. |
523 ]. |
524 filesWhichAreDifferent notEmpty ifTrue:[ |
524 filesWhichAreDifferent notEmpty ifTrue:[ |
525 Transcript showCR:('%1 files are different' bindWith:filesWhichAreDifferent size). |
525 Transcript showCR:'%1 files are different' with:filesWhichAreDifferent size. |
526 ] |
526 ] |
527 ] |
527 ] |
528 name:'Directory Diff'. |
528 name:'Directory Diff'. |
529 |
529 |
530 "Created: / 12-01-2012 / 01:07:20 / cg" |
530 "Created: / 12-01-2012 / 01:07:20 / cg" |
|
531 "Modified: / 15-02-2019 / 09:42:51 / Claus Gittinger" |
531 ! ! |
532 ! ! |
532 |
533 |
533 !DirectoryDifferenceViewApplication methodsFor:'startup & release'! |
534 !DirectoryDifferenceViewApplication methodsFor:'startup & release'! |
534 |
535 |
535 postOpenWith:aBuilder |
536 postOpenWith:aBuilder |