--- a/Filename.st Wed May 07 22:35:44 2008 +0200
+++ b/Filename.st Thu May 08 11:00:30 2008 +0200
@@ -4033,8 +4033,9 @@
#(
( 'lnk' #[16r4C 16r00 16r00 16r00 16r01 16r14 16r02 16r00 16r00 16r00 16r00 16r00 16rC0 16r00 16r00 16r00 16r00 16r00 16r00 16r46]
- 'application/x-ms-shortcut' )
- ( 'top' 'WALTOP' 'application/x-waltop-digital-notepad' )
+ #'application/x-ms-shortcut' )
+ ( 'top' 'WALTOP'
+ #'application/x-waltop-digital-notepad' )
) triplesDo:[:suffixMatch :pattern :what |
|patternString|
@@ -4047,24 +4048,24 @@
].
#(
- ('<body:' 'text/html')
- ('%!!ps-adobe' 'application/postscript')
- ('%PDF-' 'application/pdf')
- ('#!! /bin/sh' 'application/x-sh')
- ('#!!/bin/sh' 'application/x-sh')
+ ('<body:' #'text/html')
+ ('%!!ps-adobe' #'application/postscript')
+ ('%PDF-' #'application/pdf')
+ ('#!! /bin/sh' #'application/x-sh')
+ ('#!!/bin/sh' #'application/x-sh')
"/ ('#!! /bin/bash' 'application/x-bash')
"/ ('#!!/bin/bash' 'application/x-bash')
- ('<?xml version=' 'text/xml')
+ ('<?xml version=' #'text/xml')
- ('from dolphin' 'application/x-smalltalk-source')
- ('from visualworks' 'application/x-smalltalk-source')
- ('categoriesforclass' 'application/x-smalltalk-source')
- ('methodsfor!!' 'application/x-smalltalk-source')
- ('subclass:' 'application/x-smalltalk-source')
- ('methodsfor:' 'application/x-smalltalk-source')
- ('interchangeversion:' 'application/x-smalltalk-source-sif')
- ('subclass:' 'application/x-smalltalk-source')
- ('methodsfor:' 'application/x-smalltalk-source')
+ ('from dolphin' #'application/x-smalltalk-source')
+ ('from visualworks' #'application/x-smalltalk-source')
+ ('categoriesforclass' #'application/x-smalltalk-source')
+ ('methodsfor!!' #'application/x-smalltalk-source')
+ ('subclass:' #'application/x-smalltalk-source')
+ ('methodsfor:' #'application/x-smalltalk-source')
+ ('interchangeversion:' #'application/x-smalltalk-source-sif')
+ ('subclass:' #'application/x-smalltalk-source')
+ ('methodsfor:' #'application/x-smalltalk-source')
) pairsDo:[:pattern :what |
(lcBuffer findString:pattern) ~~ 0 ifTrue:[
@@ -4082,14 +4083,14 @@
or:[(lcBuffer continuesWith:'<h5' startingAt:idx)
or:[(lcBuffer continuesWith:'<h6' startingAt:idx)]]]]]]])
ifTrue:[
- ^ 'text/html'
+ ^ #'text/html'
]
].
[size ~~ 0 and:[(buffer at:size) isPrintable]] whileTrue:[size := size - 1].
size == 0 ifTrue:[
- ^ 'text/plain'
+ ^ #'text/plain'
].
^ nil
@@ -5562,7 +5563,7 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.327 2008-05-05 15:45:19 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.328 2008-05-08 09:00:30 cg Exp $'
! !
Filename initialize!