!7

concepts.

!include #1005347 // Classes for Smart Console

static JTextField tf;

static SingleComponentPanel scp;

static UserLine userLine;

static SystemAnswer systemAnswer;

static JTable table;

static L<Map> tableData;

p-awt {

  //mistAqua(); // GREAT, with rounded buttons/scrollbars

  //emeraldDusk(); // wellll...

  magellan(); // funny, but not that readable

  loadAndAutoSaveConcepts();

  showFrameHidingConsole(jtabs(

    "Console",

      northAndCenter(

        centerAndEast(tf = jCenteredTextField(initialLine()),

          jbutton("Answer...", "answerQ")),

        scp = new SingleComponentPanel(jFullCenter(centeredHtmlLabel("Yo!")))),

    "Questions & Answers",

      table = sexyTable()));

  tf.selectAll();

  tf.requestFocus();

  setFrameIconLater(tf, "#1005372");

  onEnter(tf, r {

    S s = tf.getText().trim();

    userLine = new UserLine(s);

    processUserLine();

  });

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

    final S q = first(getTableLine(table, row));

    Map map = _get(tableData, row);

    final UserAnswer ua = cast _get(map, "[hidden] ua");

    menu.add(jmenuItem("Answer...", r {

      userLine = uniq(UserLine, text := q);

      answerQ2();

    }));

    menu.add(jmenuItem("Mark solvable", r {

      cset(ua, "solvable", true);

    }));

    menu.add(jmenuItem("Un-mark solvable", r {

      cset(ua, "solvable", false);

    }));

  });

  /*registerCtrlKey(table, KeyEvent.VK_PAGE_UP, "Tab Left", r {

    print("lalala");

  });*/

  awtOnConceptChanges(table, 500, "updateTable");

  processUserLine();

}

svoid answerQ {

  final S s = tf.getText().trim();

  if (userLine == null || neq(userLine.text, s))

    userLine = new UserLine(s);

  answerQ2();

}

svoid answerQ2 {

  final UserLine _userLine = userLine;

  final new JTextField tfA;

  final JCheckBox cbSolvable = jCheckBox(uniq(SCDefaults).solvable);

  showTitledForm("Answer question",

    "Question", _userLine.text,

    "Answer", tfA,

    "Solvable", cbSolvable,

    r {

      S a = tfA.getText().trim();

      cnew(UserAnswer, userLine := _userLine, text := a,

        solvable := (uniq(SCDefaults).solvable = isChecked(cbSolvable)));

      print("Answer recorded! " + _userLine.text + " => " + a);

      processUserLine();

    });

}

svoid processUserLine {

  if (userLine == null) ret;

  try {

    scp.setComponent(makeComponent1());

  } catch e {

    scp.setComponent(typeWriterTextArea(getStackTrace(e)));

  }

}

static Component makeComponent1() {

  makeSystemAnswer();

  final S s = systemAnswer.text;

  JComponent c = jcenteredLabel(s);

  if (startsWith(s, "!j "))

    c = centerAndSouth(withBottomMargin(c), jcenteredLine(jbutton("Run", r {

      thread "Running" {

        print(evalJava(dropPrefixTrim("!j ", s)));

      }

    })));

  ret c;

}

static void makeSystemAnswer() {

  S ua = findUserAnswer(userLine.text);

  S answer;

  if (nempty(ua)) answer = ua;

  else answer = "Yeah. " + userLine.text;

  systemAnswer = cnew(SystemAnswer, +userLine, "text", answer);

}

svoid updateTable() {

  //print("Updating table (c=" + changes + ")");

  new L<Map> l;

  for (UserLine ul) {

    L<SystemAnswer> sa = findBackRefs(ul, SystemAnswer);

    L<UserAnswer> ua = findBackRefs(ul, UserAnswer);

    int n = max(l(sa), l(ua), 1);

    new L<Map> l2;

    for i to n: {

      UserAnswer _ua = _get(ua, i);

      l2.add(litorderedmap(

        "Question" := (_ua != null && _ua.solvable ? "! " : "") + ul.text,

        "User's Answer" := i < l(ua) ? ua.get(i).text : "",

        "System's Answer" := i < l(sa) ? sa.get(i).text : "",

        "[hidden] ua" := _ua));

    }

    l.addAll(reversedList(l2));

  }

  dataToTable_uneditable(table, tableData = reversedList(l));

}

static S findUserAnswer(S q) {

  for (UserLine ul)

    if (eqic(ul.text, q)) {

      UserAnswer ua = findBackRef(ul, UserAnswer);

      if (ua != null)

        ret ua.text;

    }

  null;

}

static S initialLine() {

  userLine = last(list(UserLine));

  ret userLine != null ? userLine.text : "What is love?";

}