GESTIONNAIRE DE SCRIPTS

dialog sptj {
  title "Gestionnaire de script"
  size -1 -1 144 92
  option dbu
  list 1, 6 9 70 50, size vsbar
  box "Scripts", 2, 1 1 141 68
  button "Supprimer", 3, 90 13 37 12
  button "Charger", 4, 90 28 37 12
  button "OK", 5, 55 75 37 12, ok cancel
  menu "Aide", 6
  item "Gestion des scripts", 8, 6
  item "Index", 7, 6
  menu "A propos", 9
}
alias sptj dialog -m sptj sptj
on *:dialog:sptj:init:0:{
  %indb = 0
  :listspt
  inc %indb
  if (%indb <= $script(0)) {
    did -a sptj 1 $nopath($script(%indb))
    goto listspt
  }
  unset %indb
}
on *:dialog:sptj:sclick:3:{
  if ($did(1).sel) {
    .unload -rs $guy($script($did(1).sel))
    did -d 1 $did(1).sel
  }
  else {
    echo -a Séléctionnez un fichier script pour le supprimer.
  }
}
on *:dialog:sptj:sclick:4:{
  %poofil = $sfile(*.ini)
  if (%poofil) {
    .load -rs $guy(%poofil)
    did -a sptj 1 $nopath(%poofil)
  }
}