DirectoryDifferenceViewApplication.st
changeset 15245 824d31e08f0f
parent 14500 dac4006a72c5
child 15566 184cea584be5
child 17708 a6aa502cde52
--- a/DirectoryDifferenceViewApplication.st	Tue Feb 10 19:46:10 2015 +0100
+++ b/DirectoryDifferenceViewApplication.st	Tue Feb 10 20:05:44 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 AbstractFileFinderApplicationComponent subclass:#DirectoryDifferenceViewApplication
 	instanceVariableNames:'directory1Holder directory2Holder directory1 directory2
 		filesOnlyInDirectory1 filesOnlyInDirectory2
@@ -384,10 +386,10 @@
 
     fn1 := self directory1Holder value asFilename construct:file.
     fn2 := self directory2Holder value asFilename construct:file.
-    fn1 exists ifTrue:[
+    (fn1 exists and:[fn1 isRegularFile]) ifTrue:[
         text1 := fn1 contentsAsString.
     ].
-    fn2 exists ifTrue:[
+    (fn2 exists and:[fn2 isRegularFile]) ifTrue:[
         text2 := fn2 contentsAsString.
     ].
     differ := builder componentAt:'DiffTextView'.
@@ -540,10 +542,10 @@
 !DirectoryDifferenceViewApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.7 2014-06-14 09:30:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.8 2015-02-10 19:05:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.7 2014-06-14 09:30:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryDifferenceViewApplication.st,v 1.8 2015-02-10 19:05:44 cg Exp $'
 ! !