At 5:56 PM +0000 12/18/00, Peter Reid wrote:
>>I am unable to get MetaCard 2.3.2 to open my .mc files on the Mac.
>>I've been creating them on my PC but now need to test them on Mac
>>and build a Mac standalone. I've got the MSTK document type set to
>>MetaCard in PC Exchange, but MetaCard doesn't "see" my .mc file from
>>the Open dialog. When I double click the file, it wants to open it
>>with SimpleText.
>>
>>If anyone has insights, I'd appreciate your help. Thanks,
>>Leston.
>
>
>I use a shareware utility called FileTyper to create a range of
>Macintosh auto-typers - these are tiny applications (32k each) on to
>which you can drag & drop files and folders to convert into specified
>file types. It is an excellent piece of shareware, well worth the
>$10 asking price! Using this I have a tiny app that converts any
>drag&drop files/folder content into Mac MetaCard stacks by setting
>the Mac creator and file type attributes to be the same as that of a
>sample real Mac MetaCard stack.
As a free alternative, the following AppleScript will do something
similar. Save it as an application in the Script Editor application
and set the name of the file to "MCRDMSTK". Drag a file onto the
application icon and its creator and type get set according to the
title of the AppleScript application. To make more "typers" just copy
the application and rename the copies to the creator-type
combinations you want. e.g. "ttxtTEXT" for SimpleText documents.
It only does one file at a time but could be altered to do multiple
files or folders. But I'm nervous about accidently dragging a
diskfull of files onto it, so I'll leave that to someone else.
--------------------------------------
set theFile to choose file
doInfo(theFile)
on open fileList
if the (count of fileList) > 1 then
display dialog "Only one file at at time, please!" buttons
{"OK"} default button 1
--WARNING above line probably got wrapped in the e-mail.
--It should be one line from "display dialog"
else
doInfo(fileList)
end if
end open
on doInfo(theFile)
set theName to (the path to me) as string
set oldDelim to my text item delimiters
set my text item delimiters to ":"
set theTypeString to last text item of theName
set theCreator to text from character 1 to 4 of theTypeString
set theFileType to text from character 5 to 8 of theTypeString
set my text item delimiters to oldDelim
tell application "Finder"
set the creator type of file (theFile as string) to theCreator
set the file type of file (theFile as string) to theFileType
end tell
end doInfo
-----------------------------------
Cheers
Dave Cragg
Archives: http://www.mail-archive.com/[email protected]/
Info: http://www.xworlds.com/metacard/mailinglist.htm
Please send bug reports to <[EMAIL PROTECTED]>, not this list.
