equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1991 by Claus Gittinger |
4 COPYRIGHT (c) 1991 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1765 "Created: / 14.8.1998 / 19:17:02 / cg" |
1767 "Created: / 14.8.1998 / 19:17:02 / cg" |
1766 "Modified: / 14.8.1998 / 19:17:17 / cg" |
1768 "Modified: / 14.8.1998 / 19:17:17 / cg" |
1767 ! |
1769 ! |
1768 |
1770 |
1769 hasZipFileSelected |
1771 hasZipFileSelected |
1770 |sel fileName suff| |
1772 |sel fileName suff mime| |
1771 |
1773 |
1772 sel := fileListView selectionValue. |
1774 sel := fileListView selectionValue. |
1773 sel size == 1 ifFalse:[^ false]. |
1775 sel size == 1 ifFalse:[^ false]. |
1774 |
1776 |
1775 fileName := sel first. |
1777 fileName := sel first. |
1777 fileName := fileName string withoutSeparators asFilename. |
1779 fileName := fileName string withoutSeparators asFilename. |
1778 |
1780 |
1779 suff := fileName suffix asLowercase. |
1781 suff := fileName suffix asLowercase. |
1780 (suff = 'zip' or:[suff = 'jar']) ifTrue:[^ true]. |
1782 (suff = 'zip' or:[suff = 'jar']) ifTrue:[^ true]. |
1781 |
1783 |
1782 ^ fileName mimeTypeOfContents = 'application/x-zip-compressed' |
1784 mime := fileName mimeTypeOfContents. |
|
1785 "/ prepare for change (iana has obsoleted the x- types) |
|
1786 ^ (mime = 'application/x-zip-compressed') or:[mime = 'application/zip'] |
1783 |
1787 |
1784 "Modified: / 14-02-2011 / 17:21:37 / cg" |
1788 "Modified: / 14-02-2011 / 17:21:37 / cg" |
1785 ! |
1789 ! |
1786 |
1790 |
1787 hasZipFileSelectedHolder |
1791 hasZipFileSelectedHolder |