Dialog Central (UPDATE)

by Prometheus

;usage: /dcen dialog dcen { title "Dialog Central" size -1 -1 80 70 option dbu list 1,2 2 76 60 button "View",2,2 58 38 10,ok button "Done",3,40 58 38 10,ok } on *:dialog:dcen:init:0:{ var %f $script(0) while (%f) { var %i 1, %t $script(%f) | while (%i <= $lines(%t)) { var %g = $read(%t,nw,*dialog*{,%i) | if (!%g) break | if (dialog*{ iswm %g) || (n*dialog*{ iswm %g) && ($numtok(%g,32) == 3) did -a dcen 1 $gettok(%g,2,32) ( $+ $nopath(%t) $+ ) | %i = $readn + 1 } dec %f } } on *:dialog:dcen:sclick:2:var %t $gettok($$did(1).seltext,1,32) | dialog -m %t %t on *:dialog:dcen:dclick:1:var %t $gettok($$did(1).seltext,1,32) | dialog -m %t %t alias dcen dialog -m dcen dcen