如何将数据从Prolog的知识库发送到GUI XPCE中的text_item元素

Question

say for example i have these facts:

isacrimeorg('organization name').
isacrimeorg('Teriaka').
isacrimeorg('Piazza').
isacrimeorg('Aranelli').

and i have this code to pop us a window to receive data from my knowledge base

run:-
    new(D,dialog('Report')),    
   send(D, gap, size(20, 20)),
   send(D, append(new(SuspectedOrg, text_item('Suspected Organizations')))),
   send(D,open).

how do i write code to get the data from the facts(Teriaka, Piazaa, Aranelli) to be displayed in text_item element Suspected Organization in XPCE?

Answer 1

run:-
   new(D,dialog('Report')),
   send(D, gap, size(20, 20)),
   send(D, append(new(SuspectedOrg, text_item('Suspected Organizations')))),

   findall(O, isacrimeorg(O), Os), atomic_list_concat(Os, ', ', Text),
   send(SuspectedOrg, selection, Text),

   send(D,open).