--- a/Filename.st	Thu May 15 18:33:09 2003 +0200
+++ b/Filename.st	Fri May 16 12:47:49 2003 +0200
@@ -3413,6 +3413,27 @@
 
 !Filename methodsFor:'queries-contents'!
 
+mimeTypeFromName
+    "return the mimeType as guessed from the files name/and or extension.
+     This could be less accurate than mimeTypeOfContents, but avoids
+     reading the file (is therefore much faster).
+     Also it works with non-existing files.
+     Returns nil for directories and other non-regular files."
+
+    ^ MIMETypes mimeTypeForFilename:(self name)
+
+    "
+     'Makefile' asFilename mimeTypeFromName     
+     '.' asFilename mimeTypeFromName            
+     '/dev/null' asFilename mimeTypeFromName   
+     '/tmp/.X11-unix/X0' asFilename mimeTypeFromName  
+     'smalltalk.rc' asFilename mimeTypeFromName     
+     'bitmaps/SBrowser.xbm' asFilename mimeTypeFromName    
+     '../../rules/stmkmf' asFilename mimeTypeFromName  
+     '/bläh' asFilename mimeTypeFromName               
+    "
+!
+
 mimeTypeOfContents
     "this tries to guess the mime type of contents of
      the file. Returns nil, if the file is unreadable, not a plain file
@@ -4796,7 +4817,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.253 2003-05-07 14:30:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.254 2003-05-16 10:47:49 cg Exp $'
 ! !
 
 Filename initialize!