!7

sS background = #1009931;

static JDesktopPane desktop;

static JTextField tfInput;

//static L<Module> modules;

static ReliableSingleThread rst = new(f updateModules);

p-noconsole {

  autoRestart(5);

  db();

  desktop = jTiledBackgroundDesktopPane(background);

  autoFixDesktopPane(desktop);

  cleanExitOnFrameClose(showMaximizedFrame(desktop));

  final JInternalFrame f = showCenteredInternalFrame(desktop, "Hello", 700, 150, setFontSize(20, tfInput = jcenteredtextfield("Find me some stuff")));

  packInternalFrameVertically(f);

  centerInternalFrame(f);

  swing {

 f.setLocation(f.getX(), 40);

 }

  cset(uniq(ModuleClasses), on := true, visible := true);

  for (Module m : onModules())

    startModule(m);

  addConceptIndex(simpleConceptIndex(rTrigger(rst)));

}

svoid updateModules {

  for (Module m : onModules())

    pcall { m.update(); }

}

svoid cleanMeUp {

  print('cleanMeUp);

  for (Module m) if (m.vis != null) pcall {

    print(m);

    m.unvisualize();

  }

  print("done cleanMeUp");

}

static L<Module> onModules() {

  ret conceptsWhere(Module, on := true);

}

sbool hasModuleWithFields(Class c, O... params) {

  ret hasConcept(Module, c, concatArrays(new O[] {on := true}, params));

}

svoid startModule(Module m) {

  //addIfNotThere(modules, m);

  lock m.lock;

  if (m.started) ret;

  m.started = true;

  m.start();

  if (m.visible) showModule(m);

}

svoid showModule(final Module m) {

  startModule(m);

  lock m.lock;

  cset(m, visible := true);

  pcall-messagebox {

    if (m.vis == null)

      m.vis = m.visualize();

  }

  if (m.vis != null) swing {

    Rect r = m.frameRect;

    if (r == null) randomRect(desktop.getWidth(), desktop.getHeight(), 10, 150, 100);

    if (r == null) r = Rect(10, 10, 200, 100);

    print("Showing frame at " + r);

    S frameTitle = humanizeFormLabel(shortClassName(m));

    onInternalFrameClosing(showInternalFrame(desktop, frameTitle, r.x, r.y, r.w, r.h, m.vis), r {

      cset(m, visible := false);

      m.unvisualize();

    });

  }

}

concept Module {

  transient Component vis;

  transient bool started;

  transient Lock lock = lock();

  bool on = true, visible;

  Rect frameRect;

  JComponent visualize() { ret jCenteredMultiLineLabel(sfu(this)); }

  void unvisualize() { unvisualize1(); unvisualize2(); }

  void start() {}

  void unvisualize1() {

    print("unvisualize1");

    JInternalFrame f = getInternalFrame(vis);

    if (f != null)

      cset(this, frameRect := toRect(getBounds(f)));

    vis = null;

    print("done unvisualize1");

  }

  void unvisualize2() {}

  void update() {}

  void delete() {  

    unvisualize();

    cleanUp(this);

    super.delete();

  }

}

sclass InterestingStringModule extends Module {

  S theString;

}

sclass InputToInterestingString extends Module {

  transient java.util.Timer timer;

  void start {

    timer = doEvery(1000, r {

      S s = getTextTrim(tfInput);

      if (!hasModuleWithFields(InterestingStringModule, theString := s))

        startModule(nu(InterestingStringModule, theString := s));

    });

  }

  void cleanMeUp() { cancelTimer(timer); }

}

sclass ModuleCount extends Module {

  transient JLabel label;

  void update {

    if (label != null)

      setText(label, lstr(onModules()));

  }

  JComponent visualize() {

    label = setFontSize(30, jcenteredlabel(lstr(onModules())));

    ret label;

  }

  void unvisualize2() { label = null; }  

}

sclass ModuleList extends Module {

  transient JList list;

  void update() {

    if (list != null)

      fillListWithStrings(list, calc());

  }

  JComponent visualize() {

    list = jlist(calc());

    listPopupMenuItem(list, "Delete", voidfunc(fS s) {

      thread-messagebox {

        Module m = getConcept(Module, parseFirstLong(s));

        removeConcept(m);

      }

    });

    ret list;

  }

  L<S> calc() {

    ret map(func(Module m) -> S { renderConcept(m) /* contains id as first int */ }, onModules());

  }

  void unvisualize2() { list = null; }  

}

sclass ModuleClasses extends Module {

  transient L<Class<? extends Module>> classes;

  void start() {

    classes = myNonAbstractClassesImplementing(Module);

  }

  JComponent visualize() {

    JList list = jlist(map shortClassName(classes));

    listPopupMenuItem(list, "Instantiate", voidfunc(fS s) {

      thread-messagebox {

        showModule((Module) nu(classForName("main$" + s)));

      }

    });

    ret list;

  }

}