function xlabel(labelString) 


win=gcw()
state=loadGraphicState(win);
xset('pattern',xget('foreground'))

ech=state('xlech');

xsetech(wrect=ech,frect=[0 0 1 1],arect=[0 0 0 0]);

rect=xstringl(0,0,labelString);

xstring(.5-rect(3)/2,.5-rect(4)/2,labelString);

setCurrentViewport(state,win)
