From: wpritche@osf1.gmu.edu (William W Pritchett)
Subject: Re: Alright, now for an Ada '95 question.
Date: 1996/08/15
Date: 1996-08-15T00:00:00+00:00 [thread overview]
Message-ID: <4uvvgd$7sb@portal.gmu.edu> (raw)
In-Reply-To: 32134421.31CF@wpllabs.com
Try something like the following code
if target in Button'class then
...
But if you're doing Event handling in AppletMagic there is an easier way
to check for a particular widget
if The_Event.Target = Object_Ptr(My_Widget) then
...
where My_Widget is a Button_Ptr, MenuItem_Ptr, etc and The_Event is of type
Event.Event_Ptr
Hope this helps,
Bill Pritchett
DCS Corporation
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?
: -tom :)
: --
: +------------------------------------------------------------------+
: | 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 || |
: +------------------------------------------------------------------+
next prev parent reply other threads:[~1996-08-15 0:00 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-08-15 0:00 Alright, now for an Ada '95 question Tom Di Sessa
1996-08-15 0:00 ` William W Pritchett [this message]
1996-08-15 0:00 ` Mike Bishop
1996-08-16 0:00 ` Mark A Biggar
1996-08-16 0:00 ` Jon S Anthony
1996-08-16 0:00 ` Tucker Taft
1996-08-16 0:00 ` Jon S Anthony
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox