changed signal hierarchy
authorStefan Vogel <sv@exept.de>
Wed, 04 Feb 2009 12:03:22 +0100
changeset 2104 5f800e5dbb46
parent 2103 f70d4a3e84e0
child 2105 3d4a536075f8
changed signal hierarchy
ZipArchive.st
--- a/ZipArchive.st	Mon Feb 02 15:35:38 2009 +0100
+++ b/ZipArchive.st	Wed Feb 04 12:03:22 2009 +0100
@@ -2966,7 +2966,7 @@
         ZipFileFormatErrorSignal nameClass:self message:#zipFileFormatErrorSignal.
         ZipFileFormatErrorSignal notifierString:'unrecognized/bad zip file format'.
 
-        UnsupportedZipFileFormatErrorSignal := Error newSignalMayProceed:true.
+        UnsupportedZipFileFormatErrorSignal := ZipFileFormatErrorSignal newSignal.
         UnsupportedZipFileFormatErrorSignal nameClass:self message:#unsupportedZipFileFormatErrorSignal.
         UnsupportedZipFileFormatErrorSignal notifierString:'unsupported zip file format'.
     ].
@@ -3794,7 +3794,10 @@
             and:[file next == 8r006]]]) ifTrue:[
                 ^ true                
             ].
-            file position <= searchEndPos ifTrue: [
+            file position0Based <= searchEndPos ifTrue: [
+                ^ false.
+            ].
+            pos0 == 0 ifTrue:[
                 ^ false.
             ].
             file position0Based: (pos0 := pos0 - 1).
@@ -4671,7 +4674,7 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.72 2009-01-14 11:38:57 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.73 2009-02-04 11:03:22 stefan Exp $'
 ! !
 
 ZipArchive initialize!