xtAddAction(+ActionName) xtAddActions(+ActionList)

intrinsicsのXtAddAction(s)()と同様の働きをします。

xtAddAction/1は、widgetのトランスレ−ションを指定する場合に使用できる既存のアクションに、グロ−バルアクション述語を追加します。

xtAddAction/1は、アクション述語ActionName/2がすでに存在しているかどうかをチェックし、ない場合には例外を起こします。

最大で10個までのグロ−バルアクションをIF/Prologから定義できます。そのうちの2個は、あらかじめ定義してあります。これらはMainLoopを終了させるxtActionBreakと、IF/Prologを終了させるxtActionByeです。

xtAddActions/1は、ActionList中のすべてのアクション述語を追加するためにxtAddAction/1を呼び出します。

[user]. ｜ write_action(WidgetName, Params) :- write('Action from widget '), write(WidgetName), write(' with params '), write(Params), nl. ｜EOF yes ?- xtAddAction(write_action).

yes ?- xtSetValue(xmPushButton_1, translations('#augment \ Ctrl W: write_action(p1, p2),')).

yes ?- xtMainLoop. < ctrl A in window > action from widget xmPushButton_1 with params params(p1,p2) < ctrl A in window > action from widget xmPushButton_1 with params params(p1,p2) < ctrl B in window >

yes ?- _

too_many_actions グロ−バルアクションの最大数十個を越えている atom_expected ActionNameとActionListのメンバーはアトームでない