on chooseNewMailManagerFolderLocation_(sender)
choose folder with prompt "Please select a new location for the 'Mail Manager Folder' folder." default location my mailManagerDesktopFolderPath as alias as text
set newMMPath to the result as text
set tempMMPath to the result as text
set errFlag to false
tell application "Finder"
repeat
set tempMMPath to container of folder tempMMPath as alias as text
if kind of tempMMPath is "Disk" and name of tempMMPath is name of startup disk then exit repeat
if kind of tempMMPath is "Disk" and name of tempMMPath is not name of startup disk then
set errFlag to true
tell application "System Events" to display dialog "You cannot re-locate the Mail Manager Folder to another disk." buttons "OK"
exit repeat
end if
if name of folder tempMMPath is "Mail Manager Folder" then
set errFlag to true
tell application "System Events"
tell application "System Events" to display dialog "You cannot re-locate the Mail Manager Folder to inside of itself." buttons "OK"
exit repeat
end tell
end if
end repeat
if not errFlag then
move folder (my mailManagerDesktopFolderPath) to folder newMMPath
try
set my mailManagerDesktopFolderPath to (newMMPath & "Mail Manager Folder") as alias as text
my saveThePrefs:(me)
on error errmsg number errnum
if RunForOz then display dialog "chooseNewMailManagerFolderLocation. Error number " & errnum & " Error " & errmsg as text
set my drawSameColorMultipleTimes to true
my setTheMailManagerErrorMessages(errnum, "mainMessagesView", "chooseNewMailManagerFolderLocation. Error number " & errnum & " Error " & errmsg as text, "Error Message Orange", true, "Cochin Bold", "14")
end try
end if
end tell
end chooseNewMailManagerFolderLocation:
On 23 Jan 2015, at 1:05 pm, Shane Stanley <
email@hidden> wrote:
On 23 Jan 2015, at 1:00 pm, Brian Christmas <
email@hidden> wrote:
Also, could you please tell me if this is the correct addressing method?
on applicationshouldHandleReopen:sender hasVisiblewindows:(null)
I don't know what you're trying to achieve with that null -- there's no such thing in AS. It probably doesn't matter if you're not interested in that value, but a variable would be more correct.
But that handler isn't going to do anything, because you've managed to capitalize it wrongly in two places.
Do not post admin requests to the list. They will be ignored.
applescriptobjc-dev mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden