strwidth <- function(s, units="user", cex=NULL) {
	.Internal(strwidth(s, pmatch(units, c("user", "figure", "inches")), cex))
}

strheight <- function(s, units="user", cex=NULL) {
	.Internal(strheight(s, pmatch(units, c("user", "figure", "inches")), cex))
}

