janelaDados(Nome, Idade):-
  new(D,dialog('dados recebidos')),
  send(D, append, text(Nome)),
  send(D, append,text(Idade)),
  send(D, open).

pede_dados(Nome, Idade) :-
  new(D, dialog('Register')),
  send(D, append(new(NomeItem, text_item(name)))),
  send(D, append(new(IdadeItem, text_item(idade)))),
  send(D, append(button(ok, and(message(@prolog, janelaDados,
  NomeItem?selection, IdadeItem?selection))))),
  send(D, append(button(cancel, message(D, return, @nil)))),
  send(D, default_button(ok)),
  get(D, confirm, Rval1),
  get(D, confirm, Rval2),
  free(D),
  Rval1 \== @nil,
  Rval2 \== @nil,
  Nome = Rval1,
  Idade = Rval2.
