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

[stt@henning.camb.inmet.com (Tucker Taft)]

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