Using Xt intrinsics with Ada?

["Jürgen Grigat" <juergen.grigat@avitech.de>]

Hi,

we are developing a program in Ada that has connections to other processes by
sockets. The calls are done in Ada by using interfaces to C library functions.
In order to avoid polling we wonder if we can use the event mechanism of X
Toolkit  Intrinsics. So we created a task which is calling a C-routine that
itself calls XtAppMainLoop. The main program is an Ada routine.
From the functional point of view this seems to work. But we recognize a heavy
CPU load even there is no traffic at the connection.

Has anyone experience in using X Toolkit events in Ada tasking programs?

Thanks for any hints.

J�rgen