!7

concept Cat { // -egory

  S a, b;

  S globalID = aGlobalID();

}

static JTable table;

p-substance {

  conceptsAndBot();

  table = showConceptsTable(Cat, func(Cat c) {

    litorderedmap("A" := c.a, "B" := c.b, "Global ID" := c.globalID)

  });

  addToWindow(table, jRightAlignedLine(

    jbutton("Add...", f newCat)));

}

// f takes a concept and makes a map for display

static <A extends Concept> JTable showConceptsTable(final Class<A> cClass, final O f) {

  final JTable table = showTable();

  awtOnConceptChanges(table, 1000, r {

    new L<Map> data;

    for (A c : list(cClass))

      addIfNotNull(data, (Map) pcallF(f, c));

    dataToTable_uneditable(data, table);

  });

  ret table;

}

svoid newCat {

  final new JTextField a;

  final JTextField b = jTextField("Something else");

  Runnable r = r {

    cnew(Cat, a := getTextTrim(a), b := getTextTrim(b))

  };

  showFormTitled("New recognition category",

    "A", a,

    "B", b, r);

}