!7

!include #1008133 // MyTruth

sS concepts = [[
  mbyttdugcxbjayki - X is a sentence.
  kdcwxggxvwljzqcd - X is a verb.
  lwsqdttlqfrtghme - X is a noun.
]];

p {
  useConceptsAndStatements(concepts, "");
  loadMyTruth();
  printLispStatements();
  
  showControlButtons(
    jbutton("Add sentence...", f addSentence),
    jbutton("Add verb...", f addVerb),
    jbutton("Add noun...", f addNoun));
}

svoid addSentence {
  showTextFieldForm("Add sentence", "Sentence", voidfunc(S text) {
    fromUser("mbyttdugcxbjayki", text);
  });
}

svoid addVerb {
  showTextFieldForm("Add verb", "Verb", voidfunc(S text) {
    fromUser("kdcwxggxvwljzqcd", text);
  });
}

svoid addNoun {
  showTextFieldForm("Add noun", "Noun", voidfunc(S text) {
    fromUser("lwsqdttlqfrtghme", text);
  });
}