Andy Chase

try
tell application "iPhoto"
activate
copy (my selected_images()) to these_images
if these_images is false then ?
error "Please select the images whose title you want to set."

set the image_count to the count of these_images

set base_title to text returned of (display dialog "Base title for selected images:" buttons{"Ok", "Cancel"} default answer "")

repeat with i from 1 to the image_count
set this_photo to item i of these_images

tell this_photo

set the title to base_title & " (" & i & ")"

end tell
end repeat
end tell
on error error_message number error_number
tell application "iPhoto"
activate
if the error_number is not -128 then
display dialog error_message buttons {"OK"} default button 1
end if
end tell
end try

on selected_images()
tell application "iPhoto"
try
-- get selection
set these_items to the selection
-- check for single album selected
if the class of item 1 of these_items is album then error
-- return the list of selected photos
return these_items
on error
return false
end try
end tell
end selected_images