!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);
      setText(getText() + buf);
    }
  }
}