!7

sclass ListMethodsOfActiveModule extends DynTextArea {
  transient O module;
  
  void start {
    dm_updateMeOnNewActiveModule();
  }
  
  void update {
    O m = dm_activeModule();
    if ((m != this || module == null) && setField(module := m)) {
      setText("Active Module: " + dm_moduleName(module) + "\n\n");
      new StringBuilder buf;
      /*L<S> methodNames = allMethodNames(module);
      for (S name : methodNames)
        printToBuf(buf, "Method: " + name);*/
      L<Method> l = allLiveMethods(module);
      new L<S> lines;
      for (Method m : l) {
        Class<?>[] args = m.getParameterTypes();
        Class<?> returns = m.getReturnType();
        lines.add(m.getName() +
          (returns == Void.class ? ""
          : ": " + join(appendToAll(allToString(args), " ")) + "-> " + returns);
      }
      setText(getText() + lines(sortedIC(lines)));
    }
  }
}