DataMuseum.dk

top - download

    Length: 1406 (0x57e)
    Types: TextFile
    Names: »XTINTERFACE_C«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦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;
}