main :- klitcl:klitcl_init(S),
:
klitcl:tcl_eval("button .b -command \
{klic main pushed foo bar}",_)-S,
:
pushed(Args,I,O) :-
:
klitcl:tk_wait(I,O).
これにより、「押されることにより klic 側の main:pushed を["foo","bar"]という引数(および、ストリーム変数2つ)で呼ぶ」ボタンを定義している。