Re: Apropos of nothing
Re: Apropos of nothing
- Subject: Re: Apropos of nothing
- From: Mr Tea <email@hidden>
- Date: Fri, 04 Apr 2003 01:11:48 +0100
Ah, the perils of tinkering with a script just before you send it...
The example I posted earlier contained a foolish error (anyone spot it,
apart from PB?). Here's a corrected version.
--===========================================================
property theScriptFolder : "Studio!:Studio Files:Scripts X:New Scripts:"
on main(s)
set theFileName to (word 1 of s) & " " & (word 2 of s) & " " & (word 3
of s)
set theFilePath to theScriptFolder & theFileName
tell application "Finder" to set appActive to (exists (every process
whose creator type is "asDB"))
if not appActive then tell application "Script Debugger" to launch
tell application "Script Debugger"
make new window with properties {bounds:{42, 44, 890, 630}}
set the contents of window 1 to s
set counter to 1
set theFile to theFilePath
repeat until not (exists file theFile of application "Finder")
set counter to counter + 1
set theFile to theFilePath & " [" & counter & "]"
end repeat
try
save window 1 in file theFile
on error
save window 1 as text script in file theFile
end try
end tell
end main
--===========================================================
(Any lines that abut the left margin of the message window have been wrapped
and should be re-connected to the end of the previous line.)
Nick
pp Mr Tea
--
Brew of the day: Yorkshire Gold
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.