box <- function(lty="solid", ...)
	.Internal(box(lty=lty, ...))
