# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1549361523 -3600
# Node ID bb82c421ccef4b430e474f1d9868ba281277b316
# Parent  c707daaac50b6f210cf05cccb7477e9f8f3a9b16
#REFACTORING by cg
class: FileApplicationNoteBook::ArchiveViewApplication
changed:
	#postOpenWith:
	#setColumnsForArchiver

class: FileApplicationNoteBook::ArchiveViewApplication::ArchivItem
changed: #hasDirectoryPart

diff -r c707daaac50b -r bb82c421ccef FileApplicationNoteBook.st
--- 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'!