• Open Menu Close Menu
  • Apple
  • Shopping Bag
  • Apple
  • Mac
  • iPad
  • iPhone
  • Watch
  • TV
  • Music
  • Support
  • Search apple.com
  • Shopping Bag

Lists

Open Menu Close Menu
  • Terms and Conditions
  • Lists hosted on this site
  • Email the Postmaster
  • Tips for posting to public mailing lists
Re: Application Bundle won't quit at Shutdown
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Application Bundle won't quit at Shutdown


  • Subject: Re: Application Bundle won't quit at Shutdown
  • From: email@hidden
  • Date: Mon, 14 Dec 2009 18:38:24 -0800

On Dec 14, 2009, at 3:00 PM, Stockly, Ed wrote:

Has is right, this belongs in an idle handler, something like this...

O.K.  I made the changes and now it will quit on Shutdown.  However, the script only works if I enter a value of 1 for the Mail accounts.  If I have any other value, that account doesn't get checked (see comments in code).  Can someone see what I'm doing wrong?  I apologize if it's something obvious.

Thanks again,
Ted

-----------------------------

global theMinimumInterval 

on run


tell application "Finder"
-- Get name of this script, minus the extension
set scriptPath to path to me
set scriptNameFull to name of file scriptPath as text
if (offset of "." in scriptNameFull) > 0 then
set ScriptName to (text items 1 thru -2 of scriptNameFull) as string
end if
end tell
end run

on idle
tell application "Mail"
set theMinimumInterval to 0
set theAccountList to ¬
{¬
{account "work" of application "Mail", 1}, ¬   -- this one works
{account "personal" of application "Mail", 2}, ¬   -- this one doesn't
}


set theCount to 0
repeat with eachAccount in theAccountList
set theInterval to item 2 of eachAccount
if theInterval ≠ 0 then
set theCount to theCount + 1
if (theCount > 1) then
set theMinimumInterval to my gcd(theInterval, theMinimumInterval)
else
set theMinimumInterval to (theInterval as integer)
end if
end if
end repeat


if theMinimumInterval = 0 then
display dialog "No accounts have been set to check (values greater than 0)."
return
end if


set theMinuteCount to 0
set theMinuteCount to theMinuteCount + theMinimumInterval
repeat with eachAccount in theAccountList
set theAccount to item 1 of eachAccount
set theInterval to item 2 of eachAccount
if theInterval ≠ 0 then
set theMod to theMinuteCount mod theInterval
if (theMod = 0) then
check for new mail for theAccount
end if
end if
end repeat
return (theMinimumInterval * 60)
end tell
end idle

on gcd(a, b)
repeat until b = 0
set x to b
set b to a mod b
set a to x
end repeat
return a
end gcd

on quit
continue quit
end quit

 _______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list      (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users

This email sent to email@hidden

  • Follow-Ups:
    • Re: Application Bundle won't quit at Shutdown
      • From: Paul Scott <email@hidden>
References: 
 >Re: Application Bundle won't quit at Shutdown (From: "Stockly, Ed" <email@hidden>)

  • Prev by Date: Re: Application Bundle won't quit at Shutdown
  • Next by Date: Re: Missing something obvious
  • Previous by thread: Re: Application Bundle won't quit at Shutdown
  • Next by thread: Re: Application Bundle won't quit at Shutdown
  • Index(es):
    • Date
    • Thread