.key animation
.bra {
.ket }

if "{animation}" eq ""
  set animation "Animations/"
  set animation `requestfile Animations title "Select IBrowse animation" noicons`
  if "$animation" eq "Animations/"
    quit
  endif
else
  set animation "{animation}"
endif

set location `requestfile IBrowse:Images/ title "Where is your IBrowse Images directory?" noicons`

copy "$animation"      t:def_transferanimation
copy "$animation.info" t:def_transferanimation.info
if not warn
  copy t:def_transferanimation.info "$location"
  copy t:def_transferanimation "$location"
  if not warn
    delete T:def_transferanimation(|.info) quiet force
    requestchoice >NIL: "IBrowse animations" "Animation $animation installed." "OK"
    quit
  endif
endif

delete T:def_transferanimation(|.info) quiet force
requestchoice >NIL: "IBrowse animations" "Couldn't install new animation.*NYou have to quit IBrowse first" "OK"
