MCRepositoryBrowser.st
changeset 777 e37741a76b01
parent 773 2f780b5aa85b
child 779 708d7b360e51
--- a/MCRepositoryBrowser.st	Tue Apr 02 21:24:41 2013 +0200
+++ b/MCRepositoryBrowser.st	Tue Apr 02 21:28:18 2013 +0200
@@ -1195,7 +1195,12 @@
 
     self withWaitCursorDo:[
         selectedVersionDetailsHolder value:'Reading ',versionEntry name,'...'.
-        version := versionEntry asMCVersion.
+        ZipArchive zipFileFormatErrorSignal handle:[:ex |
+            (Dialog confirm:'Zipfile format error encountered while reading (corrupt file?).\\Debug?' withCRs)
+                ifTrue:[ex reject].
+        ] do:[
+            version := versionEntry asMCVersion.
+        ].
         version ifNotNil:[
             selectedVersionDetailsHolder value: version summary
         ]
@@ -1209,11 +1214,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.24 2013-03-30 22:27:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.25 2013-04-02 19:28:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.24 2013-03-30 22:27:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.25 2013-04-02 19:28:18 cg Exp $'
 !
 
 version_SVN