IPhoto Text
PowerBook G4, Mac OS X (10.4.9)
Apple Event: May 7th at 7 am PT
PowerBook G4, Mac OS X (10.4.9)
try
tell application "iPhoto"
activate
copy (my selected_images()) to these_images
if these_images is false then error "Please select the images to include in the summary."
set the image_count to the count of these_images
repeat with i from 1 to the image_count
set this_photo to item i of these_images
tell this_photo
set the comment to the title
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
IPhoto Text