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=-1.3 required=5.0 tests=BAYES_00,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: stt@henning.camb.inmet.com (Tucker Taft)
Subject: Re: Alright, now for an Ada '95 question.
Date: 1996/08/16
Message-ID: <Dw95vJ.Erw.0.-s@inmet.camb.inmet.com>#1/1
X-Deja-AN: 174676476
sender: news@inmet.camb.inmet.com (USENET news)
x-nntp-posting-host: henning.camb.inmet.com
references: <32134421.31CF@wpllabs.com>
organization: Intermetrics, Inc.
newsgroups: comp.lang.ada
Date: 1996-08-16T00:00:00+00:00
List-Id: <comp.lang.ada>


Tom Di Sessa (tdisessa@wpllabs.com) 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?

   if target in Button'Class then 
      ...
   end if;

The above checks whether the tag of Target identifies the type
Button or anything derived from it.  

If we want to know whether the tag identifies Button itself, then:

   if target in Button then
      ...
   end if;

will perform that test.

: -tom :)

-Tuck ;-) ;-)

: | Thomas G. Di Sessa           ||                                  |
: |   WPL Laboratories, Inc.     || Email: tdisessa@wpllabs.com      |
: |   Whitehall Offices, Suite 6 || Voice: 610.658.2362 ext. 227     |
: |   410 Lancaster Avenue       ||   Fax: 610.658.2361              |
: |   Haverford, PA  19041       ||                                  |

-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
Intermetrics, Inc.  Cambridge, MA  USA