如何将按钮连接到XPCE/Prolog中的函数

Question

这是一个按钮：

new(B,button(solve, message(@prolog, solve))),
    send(D,display,B),
    send(D, open),

这是一个函数：

solve(D, Row, Column) :-
    assert(path([[0, 0], [-1, 0]])),
    track(Row, Column),
    path(P),
    show_track(D,P).

我应该如何做？

Answer 1

这里是一个示例来让您开始：

:- use_module(library(pce)).
test:-
    new(D, dialog),
    new(W,  window('Test', size(100, 100))),
    send(D, append, new(B,button(solve, message(@prolog, solve, D, 10, 20)))),
    send(D, below, W),
    send(D, open),
    !.
solve(D, Row, Column) :-
  writeln(solve(D, Row, Column)).

基本上，您必须将参数添加到消息中，在这种情况下，我用于对话框和第10和20的常数为行和列，只需在solve/3过程中打印它们以控制。

<</p>