!7

sclass ModuleList_OldStyle extends DynCalculatedList {
  O getModule(S item) {
    ret callCreator('getModuleByID, item);
  }

  JComponent visualize() {
    JList list = (JList) super.visualize();
    onDoubleClickOrEnter(list, voidfunc(fS s) { dm_showModule(getModule(s)) });
    ret listPopupMenuItemsThreaded(list,
      //"Delete", voidfunc(fS s) { removeConcept(getModule(s)) }, 
      "Show", voidfunc(fS s) { dm_showModule(getModule(s)) },
      //"Hide", voidfunc(fS s) { hideModule(getModule(s)) }
    );
  }

  L<S> calc() {
    ret map(func(final O m) -> S {
      (S) call(creator(), 'renderConcept, m) /* contains id as first int */
    }, modulesToList());
  }
  
  L<O> modulesToList() { ret dm_listStems(); }
}