#FEATURE by cg
class: FileApplicationNoteBook
changed: #openApplByFileItem:
class: FileApplicationNoteBook::ArchiveViewApplication
changed: #listFiles:
--- 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'!