Re: AppleScript Enigma
Re: AppleScript Enigma
- Subject: Re: AppleScript Enigma
- From: email@hidden
- Date: Fri, 28 Sep 2001 18:37:16 +0200
At 14:26 +0100 01/09/28, Steve Thompson wrote:
>
They're FaceSpan commands. Do you have the FaceSpan extension installed?
Hi, Steve !
No, I haven't. And I don't have FaceSpan on the 8.6 machine either, but it works. As far as I know, it's nothing to do with FaceSpan at all, since this other script below works perfectly with 9.2.1:
tell application "Finder"
activate
set UpperLeft to 715
if the (count of container windows) = 0 then
my PostError("No folder window currently open")
else
set the view of the first container window to name
set the view of the first container window to kind
set has custom view settings of the first container window to true
set zoomed of the first container window to true
set position of the first container window to {UpperLeft, 43}
end if
end tell
while this one doesn't:
tell application "Finder"
activate
set folderList to folders in selection
set UpperLeft to 715
if folderList is {} then
if the (count of container windows) = 0 then
my PostError("No folder window currently open")
else
set the view of the first container window to name
set the view of the first container window to kind
set has custom view settings of the first container window to true
set zoomed of the first container window to true
set position of the first container window to {UpperLeft, 43}
end if
else
set windowList to container windows
repeat with theFolder in folderList
tell theFolder
open
set view of its container window to name
set view of its container window to kind
if folders is not {} then set expanded of folders to false
set has custom view settings of its container window to true
set zoomed of its container window to true
set position of its container window to {UpperLeft, 43}
if windowList does not contain its container window then close
end tell
end repeat
end if
end tell