on runningLoopInitializer()
try
set p to 1
my fordEvent()
#
-- This routine gets Universal Time
set p to 2
set my resetSelector to false
set p to 3
if my interarchyActivator and ((current date) - (my ftpWatcherCaller) > 60) then
set my ftpWatcherCaller to current date
tell application "Finder"
try
set theCurrentState to read file (pathToDesktop & "ftp Downloads:AllTheftpData.dat" as text) as text
if (count of theCurrentState) > 0 then
try
if not (exists process "ftp Watcher") then tell application ":Applications:Mail Manager:ftp Watcher.app" to activate
end try
end if
end try
end tell
end if
on error errmsg
tell application "System Events" to display dialog "runningLoopInitializer error " & errmsg & " p = " & p
end try
my performSelector:"runningLoop:" withObject:(missing value) afterDelay:mailManagerDelay
end runningLoopInitializer
on runningLoop:{}
my fordEvent()
etc, etc
on error errmsg number errnum
if errnum = -2706 then
my fordEvent()
end if
if errnum is not in {-1712, -1728, -609} then
my displayError("Running Loop. Error " & errmsg & " error number " & errnum as text)
end if
end try
end if # sub-apps are running
my runningLoopInitializer()
end runningLoop:
And what, you ask, was the beginning of it all?
And it is this......
Existence that multiplied itself
For sheer delight of being
And plunged with numberless trillions of forms
So that it might
find
itself
innumerably
Sri Aurobindo