<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_ac1p8pn82k6p5hp4520v74ft94, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

sS background = #1009931;
static JDesktopPane desktop;
static ReliableSingleThread rst = new(f updateModules);
static volatile long updateCycles;

p-noconsole {
  autoRestart(5);
  db();

  desktop = jTiledBackgroundDesktopPane(background);
  autoFixDesktopPane(desktop);
  cleanExitOnFrameClose(frameIcon(#1101272, showMaximizedFrame(desktop)));
    
  UpdateCycles uc = conceptWhere(UpdateCycles);
  if (uc != null) updateCycles = uc.value;
  
  cset(uniq(ModuleClasses), on := true, visible := true);
  for (Module m : onModules()) startModule(m);

  addConceptIndex(simpleConceptIndex(rTrigger(rst)));
  rst.trigger();
}

svoid updateModules {
  ++updateCycles;
  for (Module m : onModules())
    pcall { m.update(); }
}

svoid cleanMeUp {
  for (Module m) if (m.vis != null) pcall {
    print(m);
    m.unvisualize();
  }
}

static L<Module> onModules() { ret conceptsWhere(Module, on := true); }

sbool hasModuleWithFields(Class<? extends Module> c, O... params) {
  ret hasConcept(c, concatArrays(new O[] {on := true}, params));
}

svoid startModule(Module m) {
  //addIfNotThere(modules, m);
  lock m.lock;
  if (m.started) ret;
  m.started = true;
  print("Starting module " + m);
  m.start();
  if (m.visible) showModule(m);
}

svoid showModule(final Module m) {
  if (m == null) ret;
  startModule(m);
  lock m.lock;
  if (m.vis != null) ret;
  cset(m, visible := true);
  visualizeModule(m);
  if (m.vis != null) swing {
    Rect r = m.frameRect;
    if (r == null) r = 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));
    JInternalFrame f = showInternalFrame(desktop, frameTitle, r.x, r.y, r.w, r.h, m.vis);
    
    internalFrameTitlePopupMenuItem(f, "Module source", r-thread { pcall-messagebox {
      S name = shortClassName(m);
      S src = javaxSourceOfMyClass1(name);
      if (src != null) showText(name, src);
    }});
    onInternalFrameIconified(f, r { hideModule(m) });
    onInternalFrameClosing(f, r { deleteModule(m) /* really? */ });
    m.enhanceFrame(f);
  }
}

svoid deleteModule(Module m) { removeConcept(m); }

svoid visualizeModule(Module m) {
  pcall-messagebox {
    if (m.vis == null) m.vis = m.visualize();
    if (m.vis == null) m.vis = defaultVisualize(m);
  }
}

svoid hideModule(final Module m) {
  if (m == null) ret;
  lock m.lock;
  cset(m, visible := false);
  pcall-messagebox { m.unvisualize(); }
}

concept Module {
  transient Component vis;
  transient bool started;
  transient Lock lock = lock();
  
  bool on = true, visible;
  Rect frameRect;
  
  JComponent visualize() { null; }
  void unvisualize() { unvisualize1(); unvisualize2(); }
  void enhanceFrame(JInternalFrame frame) {}
  void start() {}
  void unvisualize1() {
    //print("unvisualize1");
    JInternalFrame f = getInternalFrame(vis);
    if (f != null) {
      cset(this, frameRect := toRect(getBounds(f)));
      disposeInternalFrame(f);
    }
    vis = null;
    //print("done unvisualize1");
  }
  void unvisualize2() {}
  void update() {}
  
  void cleanMeUp_started() { started = false; }

  void delete() {
    unvisualize();
    cleanUp(this);
    super.delete();
  }
}

sclass InterestingString extends Module {
  S theString;
  
  transient SimpleLiveValue<S> lv = new(S);
  void update { lv.set(theString); }

  JComponent visualize() {
    ret centerLabel(jLiveValueLabel(lv));
  }
}

sclass UpdateCycles extends Module {
  long value;
  transient long diff;
  transient SimpleLiveValue<S> lv = new(S);
  
  void update { value = updateCycles; lv.set(str(value)); }

  JComponent visualize() {
    ret centerLabel(makeBold(setFontSize(40, jLiveValueLabel(lv))));
  }
}

sclass InputToInterestingString extends Module {
  transient java.util.Timer timer;
  
  void start {
    timer = doEvery(1000, r {
      Hello h = findModule(Hello);
      if (h == null) ret;
      S s = h.tf != null ? getTextTrim(h.tf) : trim(h.text);
      showModule(csetAndReturn(uniq(InterestingString), theString := s));
    });
  }

  void cleanMeUp() { cancelTimer(timer); }
}

sclass ModuleCount extends Module {
  transient JLabel label;

  void update {
    if (label != null) setText(label, lstr(onModules()));
  }

  JComponent visualize() {
    ret label = setFontSize(30, jcenteredlabel(lstr(onModules())));
  }
  
  void unvisualize2() { label = null; }  
}

sclass ModuleList extends Module {
  transient JList list;

  void update() {
    if (list != null) fillListWithStrings(list, calc());
  }
  
  Module getModule(S item) {
    ret getConcept(Module, parseFirstLong(item));
  }

  JComponent visualize() {
    list = jlist(calc());
    ret listPopupMenuItemsThreaded(list,
      "Delete", voidfunc(fS s) { removeConcept(getModule(s)) }, 
      "Show", voidfunc(fS s) { showModule(getModule(s)) },
      "Hide", voidfunc(fS s) { hideModule(getModule(s)) });
  }

  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));
    VF1<S> instantiate = voidfunc(fS s) {
      showModule((Module) nu(classForName("main$" + s)));
    };
    listPopupMenuItemsThreaded(list, "Instantiate", instantiate);
    ret onDoubleClick(list, instantiate);
  }
}

sclass DynModule extends Module {
  S moduleID;
  
  transient O o;

  *() {}
  *(S *moduleID) {}

  JComponent visualize() { ret (JComponent) callOpt(o, 'visualize); }
  void enhanceFrame(final JInternalFrame f) {
    internalFrameTitlePopupMenuItem(f, "Reload", rThread(r reload));
    thread { internalFrameTitle(f, snippetTitle(moduleID)); }
  }
  void start() {
    if (moduleID != null) o = hotwireDependent(moduleID);
    setOpt(o, host := this);
    callMain(o);
  }
  void unvisualize1() {
    JInternalFrame f = getInternalFrame(vis);
    if (f != null)
      cset(this, frameRect := toRect(getBounds(f)));
    vis = null;
  }
  void unvisualize2() { callOpt(o, 'unvisualize2); }
  void update() { callOpt(o, 'update); }
  void cleanMeUp() {
    cleanUp(o);
    o = null;
  }
  
  void reload() {
    JInternalFrame frame = getInternalFrame(vis);
    unvisualize();
    cleanUp(this); // also sets started to false
    if (frame != null)
      setInternalFrameContents(frame, jcenteredlabel("Reloading..."));
    visible = false;
    startModule(this);
    if (frame != null) {
      cset(this, visible := true);
      visualizeModule(this);
      setInternalFrameContents(frame, vis);
    }
  }
}

static JComponent defaultVisualize(Module m) {
  ret jCenteredMultiLineLabel(renderConcept(m)); 
}

sclass DynamicModuleMaker extends Module {
  JComponent visualize() {
    ret jfullcenter(jbutton("Add dynamic module...", r {
      selectSnippetID(voidfunc(S snippetID) {
        showModule(new DynModule(snippetID));
      });
    }));
  }
}

static <A extends Module> A findModule(Class<A> c) {
  ret findConcept(c, on := true);
}

sS getInterestingString {
  InterestingString m = findModule(InterestingString);
  ret m == null ? null : m.theString;
}

sclass Hello extends Module {
  S text = "class main {}";
  
  transient JTextField tf;
  
  JComponent visualize() {
    ret tf = setFontSize(20, jcenteredtextfield());
  }
  
  void unvisualize2() {
    if (tf != null) cset(this, text := getText(tf));
    tf = null;
  }
  
  void enhanceFrame(JInternalFrame f) {
    packInternalFrameVertically(700, f);
    centerInternalFrame(f);
    f.setLocation(f.getX(), 40);
  }
}