grid.utext("underlined text")
grid.edit("utext.underline", gp=gpar(lwd=3, lineend="butt"))


postscript("Figures/interactgrid-utextlwd%1d.eps",
  paper="special", 
  onefile=FALSE, width=2, height=1, horizontal=FALSE)
grid.rect(gp=gpar(col="grey"))
grid.utext("underlined text")
grid.edit("utext.underline", gp=gpar(lwd=3, lineend="butt"))
dev.off()
pdf("Figures/interactgrid-utextlwd%1d.pdf",
  onefile=FALSE, width=2, height=1)
grid.rect(gp=gpar(col="grey"))
grid.utext("underlined text")
grid.edit("utext.underline", gp=gpar(lwd=3, lineend="butt"))
dev.off()
png("Web/interactgrid-utextlwd%1d.png",
    width=137, height=69)
grid.rect(gp=gpar(col="grey"))
grid.utext("underlined text")
grid.edit("utext.underline", gp=gpar(lwd=3, lineend="butt"))
dev.off()