!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");
      L<S> methodNames = allMethodNames(module);
      for (S name : methodNames)
        printToText("Method: " + name);
    }
  }
}