如何将数据从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).