.key button
.bra {
.ket }

if "{button}" eq ""
  set button "Buttons/"
  set button `requestfile Buttons title "Select AWeb button set" noicons`
  if "$button" eq "Buttons/"
    quit
  endif
else
  set button "{button}"
endif

copy "$button" AWeb-II:images/def_buttons
if not warn
  copy "$button.info" AWeb-II:images/def_buttons.info
  if not warn
    requestchoice >NIL: "AWeb buttons" "Button set $button installed." "OK"
    quit
  endif
endif

requestchoice >NIL: "AWeb buttons" "Couldn't install new buttons.*NYou have to quit AWeb first" "OK"


