MINERVA superseeded IF/Prolog.
Please see
http://www.ifcomputer.co.jp/MINERVA
for details.
We discontinued to sell IF/Prolog Dec 31. 2003.
For current customers, we continue to provide
professional support for IF/Prolog until Dec 31, 2008.
あるC述語に対する引数としてwidgetクラスが必要な場合には、Prologのクラス名からtoolkitのクラスポインタへの変換が行われなければなりません。これは、以下を呼び出すことによって行われます。
xt$class(+Class, ?ClassIntern, +Exc)
内部クラス表現はPtrPC()を使って、Cパ−トにおいてCに変換されなければなりません。
例題：xtCreateWidgetの実現のPrologパ−ト
xtCreateWidget(PrologName, ResourceName,
Class, Parent, ArgList) :-
xt$GetNewWidgetName(PrologName,
xtCreateWidget(PrologName, ResourceName,
Class, Parent, ArgList)),
xt$CreateWidget(InternName, ResourceName,
ClassIntern, Parent, ArgList),
xt$RegisterWidget(PrologName, InternName)),!.
|
