On 1 Jun 2005, at 00:02, Bernie wrote:

> Now, I was expecting the filter to make all TEXT type files  
> selectable. I've had to add an extra bit of code around the UTI  
> code for it to recognise those OS 9 files with weird extensions  
> (.main, .incl, .glbl, etc.):
<snip>


For anyone interested, I didn't need any extra code. Just moved  
things around in this block:

'----------
long if ( itemInfo.filetype )
typeString = fn UTCreateStringForOSType( itemInfo.filetype )
itemUTI = fn UTTypeCreatePreferredIdentifierForTag( fn CFSTR 
( "public.filename-extension" ), typeString, _nil )
CFRelease( typeString )
xelse
itemUTI = fn UTTypeCreatePreferredIdentifierForTag( fn CFSTR 
( "public.filename-extension" ), itemInfo.extension, _nil )
CFRelease( itemInfo.extension )
end if
'----------

Bernie