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.
# xtParent(?WidgetName, ?ParentName)
intrinsicsのXtParent()と同様です。
この述語は、対応するwidgetの親widget、あるいは与えられたParentNameの子widgetを返します。
親widgetがまだPrologに登録されていない場合には、それに新しい一意名が与えられます。この名前は、通常通り以後の参照に使うことができます。
WidgetNameが変数の場合には、Prologに登録されているすべてのwidgetの親が計算され、ParentNameに単一化されます。従って、バックトラッキングによってすべての親-子の組み合わせを得ることができます。
トップレベル・シェル・widgetのようにwidgetが親をもたない場合には、none（アトム）が返されます。
?- xtParent(Widget, Parent).
Widget = xmPushButton_1
Parent = applicationShell_1;
Widget = applicationShell_1
Parent = none;
no
?- _
widget_or_var_expected 与えられている場合には、WidgetNameとParentNameはwidgetでなければならない
| 
