如何从XPCE的prolog谓词中读取
我有以下简单的序言谓词：
tst(In, Out) :- Out = In.
send(Dialog, append(button(execute_command, and(
message(@prolog, tst, InputText?selection, prolog(Output)),
message(@prolog, write, prolog(Output)),
message(@prolog, nl))))),
?- _L204
没有找到相关结果
已邀请:
1 个回复
嘘伪
默认文字： 用户输入 程序通过从按钮调用的谓词发送到GUI的消息更新文本： 演示类：:- use_module(library(pce)). :- pce_begin_class(demo, dialog). /* Instance variables* name, type, access, description */ variable(result, name*, get, "Result from Prolog Callback"). initialise(Demo) :-> "Create something that get/4 and send/3 can work with.":: send(Demo, send_super, initialise, 'Demo'), send(Demo, append, new(InputText, text_item(input, 'Demo Text'))), send(Demo, append, button(execute_command, and(message(@prolog,doIt, Demo,InputText?selection), message(@prolog,printIt,Demo)))). :- pce_end_class.%%% Create a new value based on the input string %%% Write the new value back to the 'input' member of the %%% 'demo' object. Also put the value int the 'result' slot. doIt(Demo,Word) :- concat_atom(['*** ' , Word, ' *** '] ,WordGotDid), format("doIt: Setting result: ~w...~n", [WordGotDid]), get(Demo,member,input,InputText), send(InputText,selection,WordGotDid), send(Demo,slot,result,WordGotDid). %%% Read and display the 'result' slot. printIt(Demo) :- get(Demo,slot,result,Result), write('nResult: "'), write(Result), write('"n').%%% Create an object that has fields that can be mutated. run :- new(Demo,demo), send(Demo,open).