here i made this in about 4 min\'s maybe that can give you an idea for a dialog for this.. whoknows...

dialog test {
  title \"Loaded Scripts\"
  size -1 -1 180 88
  option dbu
  list 1, 11 5 155 66, vsbar  
  button \"List\", 2, 11 74 30 10
  button \"Clear\", 3, 54 74 30 10
  button \"Exit\", 4, 137 74 30 10, cancel
  button \"Edit\", 5, 96 74 30 10
}
alias test { 
  dialog $iif($dialog(test),-v,-md) test test 
}
menu channel {
  .Loaded Scripts { test }  
}
on *:DIALOG:test:init:0:{ did -b test 3,5 }
on *:DIALOG:test:sclick:*:{
  if ($did == 2) {
    did -e test 3,5
    did -b test 2
    var %total.scripts $script(0), %c = 1
    did -a test 1 #Scripts Loaded $script(0)
    while (%c <= %total.scripts) {
      did -a test 1 $script(%c)
      inc %c
    }
  }
  if ($did == 3) { did -r test 1 | did -b test 3,5 | did -e test 2 }
  if ($did == 5) { 
    if (!$did(1).seltext) { return }
    else { run $did(1).seltext }
  }
}