iPhoto (not responding)
iPhoto のメモリが200MBから800MB増加後、200MBまで減少を繰り返す
で、終らないです。なんともならんな。
おそらくは、every photo で、全部のphotoの情報を取って来るのがいけないのだと思う。しかも、一件ずつ、AppleEvent 出しているんだと思う。そうとしか思えない。AppleEvent Monitor とかないのかな。
この repeat with .. every を直してくれれば、ApplpScript 悪口を言うのは、金輪際いたしません。
if 文は、AppleScript を信用してないからです。
tell application "iPhoto"
set small to 0
repeat with aPhoto in (every photo whose width < 400)
if width of aPhoto < 400 then
remove aPhoto from album 0
set small to small + 1
if small mod 100 = 0 then
say small
say "is removed"
-- empty trash
end if
end if
end repeat
-- empty trash
small
end tell
No comments:
Post a Comment