.key button
.bra {
.ket }

if "{button}" eq ""
  set button "SYS:Prefs/Presets/Skins/"
  set button `requestfile SYS:Prefs/Presets/Skins/ title "Select MorphOS Skin" drawersonly`
  if "$button" eq "Sys:Prefs/Presets/Skins/"
      quit
  endif
else
  set button "{button}"
endif

setenv SAVE SYS/SKINPATH "$button"
if not warn
    requestchoice >NIL: "SkinShuffle" "$button will be active after reboot." "Yay!"
    quit
endif

requestchoice >NIL: "SkinShuffle" "There has been a problem.  Please check your Envarc:SYS/SKINPATH variable by hand!" "Eeek!"

