Re: Alright, now for an Ada '95 question.

[mab@dst17.wdl.loral.com (Mark A Biggar)]

In article <3213D46A.2404@ghgcorp.com> Mike Bishop <mbishop@ghgcorp.com> writes:
>Tom Di Sessa wrote:
>> First of all, I want to thank the people who responded to my first(and
>> rather unpolite) post.  Thank you.
>> In Java, I am able to do this comparison:
>> (target is of Class(Type) Component, and Class Button is is derived from
>> Component)
>> if (target instanceof Button) {...}
>> Now, is there a way to do this comparison in Ada '95, if target was of
>> type Component'Class and Button was a derived type from Component?
>The following comparisons can be done in Ada 95:
>if target in Button then ...
>if target in Component'class then ...
>I don't know of a way to compare the types Button and Component in order
>to determine if Button is derived from Component. That doesn't mean that
>there is no way to do it, only that I don't know how to do it.

The only way I can think of is to create a dummy object and use that:

declare
	target: Button;
begin
	if target in Component'Class then
		-- Button is derived from or subtype of Component
	end if;
end;

--
Mark Biggar
mab@wdl.lmco.com