DataMuseum.dk

top - download

    Length: 1405 (0x57d)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦855abc1be⟧ 
            └─⟦this⟧ 

TextFile

/*=================================================================
;  IRP MULHOUSE                           AVRIL 92
;-------------------------------------------------------------------
; PROJECT  : Z80 SIMULATOR               
; STUDENTS : MOREAUX & VERGER
;
; FILE     : XtInterface.c
==================================================================
; DESCRIPTION :
; Fichier source de l'interface Ada ->  WINDOW SYSTEM 
; pour la gestion des evenements.
;----------------------------------------------------------------*/

#include <X11/Xlib.h>
#include <X11/Intrinsic.h>

XEvent Event;

void NextEvent (XEvent *event)
{  
     XtNextEvent (&Event);
}

void DispatchEvent (XEvent *event)
{
   XtDispatchEvent (&Event);
}



static Window FindWindow(w)
Widget w;
{
	Window win = 0;
	Widget ww = w;
	
	while (ww){
		win = XtWindow(ww);
		if(win)
			break;
		ww = XtParent(ww);
	}
	return win;
}



void SendEvent()
{
XClientMessageEvent ev;
Window win;
Display *dpy;
Widget wg;

wg =  XtNameToWidget(FmToplevel(),"MW.BB");
if(!wg)
return;

win = FindWindow(wg);
	if(win == 0)
		return;


dpy = XtDisplay(FmToplevel());

ev.type = ClientMessage;
ev.send_event = True;
ev.display = dpy;
ev.window = win ;
ev.format = 8;

XSendEvent(dpy,win,False,0,&ev);

}


int Pending (void)
{
return XtPending();
}


int PeekEvent(XEvent *event)
{
SendEvent();
/*  return  XtPeekEvent(&Event);  */
 return 0;
}