!7

set flag WebWithRelationsMap.

set flag AllPublic.

concept Drawing {

  S globalID = aGlobalID();

  S name;

  S calStructure;

}

static new CirclesAndLines cal;

static Canvas canvas;

static Drawing drawing;

static JLabel lblGlobalID;

sbool autoVis;

p {

  autoRestart();

  useDBOf(#1007609);

  db();

  fixGlobalIDs();

  substance();

  swing {

    fixCAL();

    canvas = cal.show(1000, 600);

    makeMenu();

    addToWindowNorth(canvas, withMargin(jcenteredline(

      jbutton("New drawing", f newDrawing),

      lblGlobalID = jlabel(),

      jbutton("New circle", f newCircle)

    )));

    addToWindow(canvas, withMargin(jcenteredline(

      jbutton("Save drawing", f saveDrawing),

      jbutton("Save drawing as...", f saveDrawingAs),

      jbutton("PUBLISH", f publish)));

    //addToWindow(canvas, withMargin(jcenteredlabel("Create connections by dragging between circles with right mouse button")));

    addDrawingsList();

    centerFrame(canvas);

    hideConsole();

  }

  bot("Circles Editor.");

  sleepIfMain();

}

svoid newCircle {

  final JTextField text = jtextfield();

  showFormTitled("New Circle", "Text", text, r-thread { loading {

    S theText = getTextTrim(text);

    newCircle(theText);

  }});

}

svoid newCircle(S theText) {

  double x = random(0.2, 0.8), y = random(0.2, 0.8);

  if (autoVis)

    cal.circle_autoVis(theText, x, y);

  else

    cal.circle(theText, x, y);

  canvas.update();

}

static Drawing saveDrawing() {

  ret saveDrawing(drawing != null ? drawing.name : "");

}

static Drawing saveDrawing(S name) {

  if (empty(name)) {

    final JTextField tfName = jtextfield(makeUpName());

    showFormTitled("Name drawing",

      "Name", tfName,

      r { 

        saveDrawing(or2(getTextTrim(tfName), "Untitled"));

      });

    null;

  }

  cal.title = name;

  if (drawing == null)

    drawing = cnew(Drawing);

  cal.globalID = drawing.globalID;

  S s = cal_structure(cal);

  cset(drawing, calStructure := s, +name);

  setDrawing(drawing);

  ret drawing;

}

svoid newDrawing {

  setCAL(new CirclesAndLines);

  setDrawing(null);

  newCircle();

}

svoid makeMenu {

  /*if (hasSSHPassword("root", "tinybrain.de"))

    addMenu(canvas, "Menu",

      "Upload all drawings to tinybrain.de (only for Stefan ^^)", f uploadAll);*/

  addMenu(canvas, "Menu",

    "Upload all drawings!", f uploadAll2);

}

sS drawingName(Drawing d) {

  ret d == null ? "" : "[" + d.id + "] "

    + (nempty(d.name) ? quote(d.name) + " " : "");

}

static L makeDrawingsTable() {

  new L l;

  for (final Drawing d : reversed(list(Drawing))) {

    CirclesAndLines cal = cal_unstructure(d.calStructure);

    l.add(litorderedmap("Drawing" := drawingName(d),

      "Circles + Relations" := join("|",

        concatLists(

          collect(cal.circles, 'text),

          collectTreeSet(cal.lines, 'text)))));

  }

  ret l;

}

static Drawing drawingFromTable(JTable table, int row) {

  ret getConcept(Drawing, parseFirstLong((S) getTableCell(table, row, 0)));

}

svoid addDrawingsList {

  final JTable table = sexyTableWithoutDrag();

  O load = voidfunc(int row) { loadDrawing(drawingFromTable(table, row)) };

  onDoubleClick(table, load);

  tablePopupMenu(table, voidfunc(JPopupMenu menu, final int row) {

    final Drawing d = drawingFromTable(table, row);

    addMenuItem(menu, "ID: " + d.globalID, r { copyTextToClipboard(d.globalID) });

  });

  tablePopupMenuItem(table, "Rename...", voidfunc(int row) {

    final Drawing d = drawingFromTable(table, row);

    final JTextField tf = jtextfield(d.name);

    showFormTitled("Rename Drawing",

      "Old name", jlabel(d.name),

      "New name", tf,

      r {

        cset(d, name := getTextTrim(tf));

        setDrawing(d);

      });

  });

  tablePopupMenuItem(table, "Show structure", voidfunc(int row) {

    final Drawing d = drawingFromTable(table, row);

    showWrappedText("Structure of drawing", cal_simplifiedStructure(d.calStructure));

  });

  tablePopupMenuItem(table, "Copy structure to clipboard", voidfunc(int row) {

    final Drawing d = drawingFromTable(table, row);

    copyTextToClipboard(cal_simplifiedStructure(d.calStructure));

  });

  tablePopupMenuItem(table, "Delete", voidfunc(int row) {

    final Drawing d = drawingFromTable(table, row);

    removeConcept(d);

  });

  addToWindowSplitRight_aggressive(canvas, tableWithSearcher(table), 0.7f);

  awtCalcOnConceptsChange(table, r { dataToTable(table, makeDrawingsTable()) });

}

svoid fixCAL() {

  cal.imageForUserMadeNodes = whiteImage(10, 10);

}

svoid setCAL(CirclesAndLines cal) {

  main.cal = cal;

  fixCAL();

  Canvas c = canvas;

  canvas = cal.makeCanvas();

  awtReplaceComponent(c, canvas);

  //new CirclesRelater(canvas, cal);

}

svoid setDrawing(Drawing d) {

  drawing = d;

  setText(lblGlobalID, drawing != null ? "Drawing ID: " + drawing.globalID : "");

  setFrameTitle(canvas, trim(drawingName(d)) + " - " + programName());

}

svoid loadDrawing(Drawing d) {

  setDrawing(d);

  CirclesAndLines cal = cast unstructure(d.calStructure);

  //cal_setAutoVis(cal);

  setCAL(cal);

}

svoid publish {

  final Drawing d = saveDrawing();

  if (d == null) ret;

  thread { loading {

    S fullName = "Drawing " + d.globalID + " " + renderDate(now())

      + " - " + or2(d.name, "Untitled");

    S url = uploadToImageServer(canvas.getImage(), fullName);

    infoBox("Image uploaded to server! " + url);

    S id = createSuperHighSnippet(structure(d), fullName, 56 /*SN_AI_DRAWING*/, null, null);

    infoBox("Drawing uploaded. " + fsI(id));

  }}

}

sS makeUpName() {

  Circle c = first(cal.circles);

  ret c == null ? "" : c.text;

}

svoid saveDrawingAs {

  drawing = cnew(Drawing);

  saveDrawing();

}

svoid uploadAll { fixGlobalIDs(); run(#1009985); }

svoid uploadAll2 { runInNewThread_awt(#1010485); }

answer {

  if "new diagram with node *" {

    swing {

      activateFrame(canvas);

      newDrawing();

      if (nempty($1)) newCircle($1);

    }

    ret "OK";

  }

}

svoid fixGlobalIDs {

  for (Drawing d) pcall {

    if (!d.calStructure.contains(d.globalID)) {

      print("Fixing global ID: " + d.globalID);

      CirclesAndLines cal = cal_unstructure(d.calStructure);

      cal.globalID = d.globalID;

      cset(d, calStructure := cal_structure(cal));

    }

  }

}