rpl/modules/motif/XtAddCallback.rplc - diff

Return to XtAddCallback.rplc CVS log

Up to [local] / rpl / modules / motif

version 1.4, 2017/07/17 21:35:32	version 1.6, 2017/07/30 21:59:40
Line 55 declareExternalFunction(XtAddCallback)	Line 55 declareExternalFunction(XtAddCallback)
sCallback = allocate(size(sXtCallback));	sCallback = allocate(size(sXtCallback));
sCallback->status = procStatus(rpl_arguments);	sCallback->status = procStatus(rpl_arguments);
sCallback->callback = callbackProc;	sCallback->callback = callbackProc;
sCallback->widget = target((Widget *) objectContainer(widget));	sCallback->widget = target(objectContainer(Widget, widget));
objectContainer(callbackObject) = sCallback;	objectOf(callbackObject) = sCallback;

XtAddCallback(target((Widget *) objectContainer(widget)),	XtAddCallback(target(objectContainer(Widget, widget)),
callback, rplCallback, (XtPointer) sCallback);	callback, rplCallback, (XtPointer) sCallback);

tmp = allocate(size(struct_liste_chainee));	tmp = allocate(size(daisyChain));
tmp->next = lCallbacks;	tmp->next = lCallbacks;
tmp->data = callbackObject;	tmp->data = callbackObject;
lCallbacks = tmp;	lCallbacks = tmp;

	dupObject(callbackObject);
pushOnStack(callbackObject);	pushOnStack(callbackObject);
orElse	orElse
executionError("Application not initialized");	executionError("Application not initialized");