equal
deleted
inserted
replaced
5009 |
5009 |
5010 |mimeTypes| |
5010 |mimeTypes| |
5011 |
5011 |
5012 "/ kludge to avoid making libview a prereq. of libbasic |
5012 "/ kludge to avoid making libview a prereq. of libbasic |
5013 (mimeTypes := Smalltalk at:#MIMETypes) notNil ifTrue:[ |
5013 (mimeTypes := Smalltalk at:#MIMETypes) notNil ifTrue:[ |
5014 ^ mimeTypes mimeTypeForFilename:(self name) |
5014 ^ mimeTypes mimeTypeForFilename:self |
5015 ]. |
5015 ]. |
5016 ^ nil |
5016 ^ nil |
5017 |
5017 |
5018 " |
5018 " |
5019 'Makefile' asFilename mimeTypeFromName |
5019 'Makefile' asFilename mimeTypeFromName |
5025 '../../rules/stmkmf' asFilename mimeTypeFromName |
5025 '../../rules/stmkmf' asFilename mimeTypeFromName |
5026 '/bläh' asFilename mimeTypeFromName |
5026 '/bläh' asFilename mimeTypeFromName |
5027 '/x.zip' asFilename mimeTypeFromName |
5027 '/x.zip' asFilename mimeTypeFromName |
5028 '/x.gz' asFilename mimeTypeFromName |
5028 '/x.gz' asFilename mimeTypeFromName |
5029 " |
5029 " |
|
5030 |
|
5031 "Modified: / 11-04-2017 / 09:36:30 / cg" |
5030 ! |
5032 ! |
5031 |
5033 |
5032 mimeTypeOfContents |
5034 mimeTypeOfContents |
5033 "this tries to guess the mime type of contents of |
5035 "this tries to guess the mime type of contents of |
5034 the file. Returns nil, if the file is unreadable, not a plain file |
5036 the file. Returns nil, if the file is unreadable, not a plain file |