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

Question

例如说我有这些事实：

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

我有这段代码可以为我们弹出一个窗口，以便从我的知识库中接收数据

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

我如何编写代码以从事实（Teriaka，Piazaa，Aranelli）中获取数据，并将其显示在XPCE中的text_item元素可疑组织中？

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).