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.
# xtIsSubclass(?WidgetName, ?ClassName)
intrinsicsのXtIsSubclass()と同様の働きをします。
この述語は、widgetが指定されたクラスのサブクラスの実体であるかをチェックします。
ClassNameが変数の場合には、widgetのクラスのス−パ−クラスであるすべてのクラスが、バックトラッキングによって得られます。
WidgetNameが変数の場合には、与えられたクラスのサブクラスの実体であるすべてのwidgetが、バックトラッキングによって得られます。
２つの引数の両方が変数の場合には、Prologに登録されたすべてのwidget-ス−パ−クラスの組み合わせが、バックトラッキングによって得られます。
?- xtIsSubclass(Widget, Class).
Widget = applicationShell_1
Class = widgetClass ;
Widget = xmPushButton_1
Class = widgetClass ;
Widget = xmPushButton_1
Class = xmLabel ;
Widget = xmPushButton_1
Class = xmLabelWidgetClass ;
...
illegal_widget_class 与えられている場合には、ClassNameはクラス名でなければならない
widget_expected 与えられている場合には、WidgetNameはwidgetでなければならない
| 
