!7

concept User {
  S name;
  SecretValue<S> password = new(aGlobalID());
  S contact; // e.g. mail address
}

extend AuthedDialogID {
  new Ref<User> user; // who is logged in
}

cmodule GazelleExamples > DynNewBot2 {
  void start {
    botName = heading = "Gazelle Examples";
    adminName = heading + " Admin";
    super.start();
    indexConceptFieldCI(User, "name");
  }

  L<Class> crudClasses(bool masterAuthed) {
    L<Class> l = super.crudClasses(masterAuthed);
    if (masterAuthed)
      ret listPlus(l, User.class);
    ret l;
  }
}