equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
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 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 AbstractFileFinderApplicationComponent subclass:#DirectoryDifferenceViewApplication |
16 AbstractFileFinderApplicationComponent subclass:#DirectoryDifferenceViewApplication |
15 instanceVariableNames:'directory1Holder directory2Holder directory1 directory2 |
17 instanceVariableNames:'directory1Holder directory2Holder directory1 directory2 |
16 filesOnlyInDirectory1 filesOnlyInDirectory2 |
18 filesOnlyInDirectory1 filesOnlyInDirectory2 |
17 filesWhichAreDifferent directoriesOnlyInDirectory1 |
19 filesWhichAreDifferent directoriesOnlyInDirectory1 |
382 entry := self shownList at:entries first. |
384 entry := self shownList at:entries first. |
383 file := entry first. |
385 file := entry first. |
384 |
386 |
385 fn1 := self directory1Holder value asFilename construct:file. |
387 fn1 := self directory1Holder value asFilename construct:file. |
386 fn2 := self directory2Holder value asFilename construct:file. |
388 fn2 := self directory2Holder value asFilename construct:file. |
387 fn1 exists ifTrue:[ |
389 (fn1 exists and:[fn1 isRegularFile]) ifTrue:[ |
388 text1 := fn1 contentsAsString. |
390 text1 := fn1 contentsAsString. |
389 ]. |
391 ]. |
390 fn2 exists ifTrue:[ |
392 (fn2 exists and:[fn2 isRegularFile]) ifTrue:[ |
391 text2 := fn2 contentsAsString. |
393 text2 := fn2 contentsAsString. |
392 ]. |
394 ]. |
393 differ := builder componentAt:'DiffTextView'. |
395 differ := builder componentAt:'DiffTextView'. |
394 differ text1:(text1 ? '') text2:(text2 ? ''). |
396 differ text1:(text1 ? '') text2:(text2 ? ''). |
395 |
397 |
538 ! ! |
540 ! ! |
539 |
541 |
540 !DirectoryDifferenceViewApplication class methodsFor:'documentation'! |
542 !DirectoryDifferenceViewApplication class methodsFor:'documentation'! |
541 |
543 |
542 version |
544 version |
543 ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.7 2014-06-14 09:30:58 cg Exp $' |
545 ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.8 2015-02-10 19:05:44 cg Exp $' |
544 ! |
546 ! |
545 |
547 |
546 version_CVS |
548 version_CVS |
547 ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.7 2014-06-14 09:30:58 cg Exp $' |
549 ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.8 2015-02-10 19:05:44 cg Exp $' |
548 ! ! |
550 ! ! |
549 |
551 |