#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 23 Jun 2017 13:27:06 +0200
changeset 17556 623c0e2a579d
parent 17555 7444ab2a2d5d
child 17557 97a1ae3f0b02
#FEATURE by cg class: FileApplicationNoteBook changed: #openApplByFileItem: class: FileApplicationNoteBook::ArchiveViewApplication changed: #listFiles:
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Thu Jun 22 13:42:42 2017 +0200
+++ b/FileApplicationNoteBook.st	Fri Jun 23 13:27:06 2017 +0200
@@ -541,6 +541,7 @@
             itemClass := self class classFor:applItem.
             Error handle:[:ex |
                 "/ catching the error, so we can still show text
+                ('[FileApplication] ignored error: ',ex description,' - showing text') errorPrintCR.
             ] do:[
                 appl := self openApplicationClass:itemClass withItem:anItem withType:itemType.
                 appl notNil ifTrue:[ ^ appl].
@@ -561,7 +562,7 @@
 
     ^ self openDefaultApplicationByItem:anItem.
 
-    "Modified: / 16-09-2011 / 16:17:58 / cg"
+    "Modified: / 22-06-2017 / 18:43:15 / cg"
 !
 
 openApplicationClass:aClass withItem:anItem withType:aType
@@ -2487,21 +2488,25 @@
     self listFiles:nil
 !
 
-listFiles:aColOfFilesOrNil 
+listFiles:aColOfFilesOrNil
+    |a|
+    
     process notNil ifTrue:[
         process waitUntilTerminated
     ].
 
-    archiver notNil ifTrue:[
-        self archiver 
+    (a := archiver) notNil ifTrue:[
+        a
             outStream:(self getOutStream)
             errorStream:(self getErrorStream)
             synchron:true.
 
         self 
-            makeProcessFor:[self archiver listFiles:aColOfFilesOrNil]
+            makeProcessFor:[a listFiles:aColOfFilesOrNil]
             with:'List files'
     ]
+
+    "Modified: / 22-06-2017 / 18:44:15 / cg"
 ! !
 
 !FileApplicationNoteBook::ArchiveViewApplication methodsFor:'commands remove'!