motif/src/Xmacro.i3


Copyright (C) 1994, Digital Equipment Corp.
                                                           
 Contributed by Harry George (hgeorge@eskimo.com), 5/16/95 

UNSAFE INTERFACE Xmacro;

IMPORT Xt;
FROM Ctypes IMPORT
  char_star,short,unsigned_short;

<*EXTERNAL"XtVaSetValues"*>
PROCEDURE XtVaSetValues(widget:Xt.Widget;
		 val1, val2, val3, val4, val5,
		 val6, val7, val8, val9, val10,
		 val11,val12,val13,val14,val15,
		 val16:ADDRESS:=NIL);

<*EXTERNAL"XtVaGetValues"*>
PROCEDURE XtVaGetValues(widget:Xt.Widget;
		 val1, val2, val3, val4, val5,
		 val6, val7, val8, val9, val10,
		 val11,val12,val13,val14,val15,
		 val16:ADDRESS:=NIL);

<*EXTERNAL "XtVaCreateManagedWidget"*>
PROCEDURE XtVaCreateManagedWidget(name:char_star;
	         widget_class: Xt.WidgetClass;
		 parent: Xt.Widget;
		 val1, val2, val3, val4, val5,
		 val6, val7, val8, val9, val10,
		 val11,val12,val13,val14,val15,
		 val16:ADDRESS:=NIL):Xt.Widget;

PROCEDURE AddrVal(value:ADDRESS):Xt.ArgVal;
PROCEDURE CharVal(value:CHAR):Xt.ArgVal;
PROCEDURE IntVal(value:INTEGER):Xt.ArgVal;
PROCEDURE ShortVal(value:short):Xt.ArgVal;
PROCEDURE TextVal(value:TEXT):Xt.ArgVal;
PROCEDURE UShortVal(value:unsigned_short):Xt.ArgVal;

PROCEDURE XtNewString(str:char_star):char_star;

END Xmacro.