tell application \"FlexTime\"
set action of finishing cue of first activity of document \"Untitled Routine\" to \"Play sound\"
set parameter of finishing cue of first activity of document \"Untitled Routine\" to \"Glass\"
end tell
tell application \"FlexTime\"
set action of finishing cue of first activity of document \"Untitled Routine\" to \"Run Script\"
set parameter of finishing cue of first activity of document \"Untitled Routine\" to \"BotBook:Users:adpeters:Desktop:QSFTNotify.scpt\"
end tell
set parameter of finishing cue of first activity of document \"Untitled Routine\" to \"/Users/adpeters/Desktop/QSFTNotify.scpt\" as POSIX file
using terms from application \"Quicksilver\"
on process text theText
tell application \"FlexTime\"
set theDocName to \"QS\" & theText
make document with properties {name:theDocName, repeats when finished:\"False\"}
set name of first activity of document theDocName to \"QS\"
set base unit of first activity of document theDocName to minute
set numeric duration of first activity of document theDocName to theText
set action of finishing cue of first activity of document theDocName to \"Run Script\"
set parameter of finishing cue of first activity of document theDocName to \"~/Library/Scripts/Applications/FlexTime/QSFTNotify.scpt\" as POSIX file
set running of document theDocName to \"true\"
end tell
end process text
end using terms from
using terms from application \"FlexTime\"
on HandleFlexTimeCue(myDocument, myActivity)
set routineName to name of myDocument
set myText to routineName & \" finished .\"
set SoundFile to \"~/Documents/Multimedia/PFTime.aif\" as POSIX file
tell application \"Play Sound\"
open SoundFile
end tell
tell application \"FlexTime\"
display message myText dismissing after delay 5
close myDocument saving no
end tell
end HandleFlexTimeCue
end using terms from
It looks like you're new here. If you want to get involved, click one of these buttons!