dialog umload {
title "Multiple unload dialog"
size -1 -1 123 68
option dbu
list 1, -1 0 124 57, size, extsel
button "UnLoad", 5, 93 58 30 10
}
on *:dialog:umload:sclick:5:{
var %i = $did(1,0).sel
while (%i) {
unload -rs $+(",$did(1,$did(1,%i).sel),")
dec %i
}
umloadrefresh $dname
}
on *:dialog:umload:init:*:{
umloadrefresh $dname
}
alias umloadrefresh {
did -r $1 1
var %i = $script(0)
while (%i) {
did -a $dname 1 $script(%i)
dec %i
}
}
Something like that should do the trick, uses the same dialog has tidy's other script.
Eamonn.