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が、バックトラッキングによって得られます。
2つの引数の両方が変数の場合には、Prologに登録されたすべてのwidgetとス−パ−クラスの組みが、バックトラッキングによって得られます。
?- xtIsSubclass(Widget, Class).
Widget = command_1
Class = command
Widget = widget_1
Class = widgetClass;
Widget = command_1
Class = label ;
Widget = command_1
Class = labelWidgetClass ;
...
illegal_widget_class 与えられている場合には、ClassNameはクラス名でなければならない
widget_expected 与えられている場合には、WidgetNameはwidgetでなければならない
| 
