xtIsSugclass/2
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でなければならない

Up read on...