comp.lang.ada
 help / color / mirror / Atom feed
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       ||                                  |
: +------------------------------------------------------------------+




  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