- 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)
- }
- }
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)
}
}