#REFACTORING by cg
class: FileApplicationNoteBook::ArchiveViewApplication
changed:
#postOpenWith:
#setColumnsForArchiver
class: FileApplicationNoteBook::ArchiveViewApplication::ArchivItem
changed: #hasDirectoryPart
--- a/FileApplicationNoteBook.st Tue Feb 05 10:25:34 2019 +0100
+++ b/FileApplicationNoteBook.st Tue Feb 05 11:12:03 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -2340,9 +2342,10 @@
].
].
self tableColumns value:newColumns.
- self columnDescriptors:(self tableColumns value).
+ self columnDescriptors:newColumns.
"Modified: / 27-03-2007 / 08:46:03 / cg"
+ "Modified: / 05-02-2019 / 10:28:04 / Claus Gittinger"
!
stopProcess
@@ -2774,7 +2777,7 @@
]
ifNone:[nil].
fileName isNil ifTrue:[
- Dialog warn:'cant find a Zip file in ' , currentDir asString.
+ Dialog warn:'can''t find a Zip file in ' , currentDir asString.
^ self
].
file := currentDir construct:fileName.
@@ -2786,6 +2789,8 @@
].
self listAllFiles.
super postOpenWith:aBuilder
+
+ "Modified: / 05-02-2019 / 10:17:23 / Claus Gittinger"
!
release
@@ -3172,8 +3177,15 @@
!FileApplicationNoteBook::ArchiveViewApplication::ArchivItem methodsFor:'queries'!
hasDirectoryPart
-
- ^ self fileName asFilename components size ~= 1
+ |components|
+
+ components := self fileName asFilename components.
+ components first = '.' ifTrue:[
+ ^ components size ~= 2
+ ].
+ ^ components size ~= 1
+
+ "Modified: / 05-02-2019 / 10:44:41 / Claus Gittinger"
! !
!FileApplicationNoteBook::CommandResult class methodsFor:'defaults'!