From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.6 required=5.0 tests=BAYES_20,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,bc656fd0afa65ff3
X-Google-Attributes: gid103376,public
From: Mike Bishop <mbishop@ghgcorp.com>
Subject: Re: Alright, now for an Ada '95 question.
Date: 1996/08/15
Message-ID: <3213D46A.2404@ghgcorp.com>#1/1
X-Deja-AN: 174454101
references: <32134421.31CF@wpllabs.com>
content-type: text/plain; charset=us-ascii
organization: GHG Internet Services
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 3.0b5a (Win95; I)
Date: 1996-08-15T00:00:00+00:00
List-Id: <comp.lang.ada>


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.

-- 
Mike Bishop         
mbishop@ghgcorp.com 
http://www.ghgcorp.com/mbishop/