sclass HCRUD_Data { abstract sclass Renderer {} srecord TextArea(int cols, int rows) extends Renderer {} srecord TextField(int cols) extends Renderer {} srecord ComboBox(LS entries) extends Renderer {} S itemName() { ret "object"; } S itemNamePlural() { ret plural(itemName()); } //LS fields() { null; } L> list() { null; } S fieldNameToHTML(S name) { ret htmlencode(humanizeLabel(name)); } S idField() { ret "id"; } Map emptyObject() { null; } Map getObject(O id) { null; } // return ID O createObject(SS map) { throw unimplemented(); } // return text msg S deleteObject(O id) { throw unimplemented(); } // return text msg S updateObject(O id, SS map) { throw unimplemented(); } // return null for standard input field Renderer getRenderer(S field) { null; } // returns HTML S fieldHelp(S field) { null; } }