-- By Henrik Nyh, 2008-05-24.
-- http://henrik.nyh.se/2008/05/iphoto-library-manager-shortcuts-with-drag-and-drop-importing
-- Free to modify and redistribute with due credit.

on run
  openLibrary()
end run

-- Script was drag-and-dropped onto
on open (listOfAliases)
  openLibrary()
  tell application "iPhoto" to import from listOfAliases
end open

on openLibrary()
  tell application "iPhoto Library Manager"
    open «class iLib» named "Library Name - Change This!"
    quit
  end tell
  tell application "iPhoto" to activate
end openLibrary