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

基本的に、メッセージに引数を追加する必要があります。この場合、ダイアログに D を使用し、行と列に定数 10 と 20 を使用し、solve/3手順でそれらをコンソールに出力するだけです。