tweak

git-svn-id: https://svn.r-project.org/R/trunk@88345 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

src/library/tcltk/R/utils.R

@@ -229,8 +229,8 @@ tk_messageBox <-
 ## aadded for R 3.2.0, enhanced for R 4.6.0
 ##tclVersion <- function() as.character(tcl("info", "patchlevel"))
 
-tclVersion <- function(with_parselevel = FALSE)
+tclVersion <- function(with_patchlevel = FALSE)
 {
-    if(isTRUE(with_parselevel)) as.character(tcl("info", "patchlevel"))
+    if(isTRUE(with_patchlevel)) as.character(tcl("info", "patchlevel"))
     else as.character(tcl("info", "tclversion"))
 }

src/library/tcltk/man/TclInterface.Rd

@@ -113,7 +113,7 @@ is.tclObj(x)
 
 addTclPath(path = ".")
 tclRequire(package, warn = TRUE)
-tclVersion(with_parselevel = FALSE)
+tclVersion(with_patchlevel = FALSE)
 }
 \arguments{
   \item{objv}{a named vector of Tcl objects}
@@ -131,7 +131,7 @@ tclVersion(with_parselevel = FALSE)
   \item{warn}{logical. Warn if not found?}
   \item{...}{Additional arguments. See below.}
   \item{init}{initialization value}
-  \item{with_parselevel}{logical: should the \sQuote{parse level} be included?}
+  \item{with_patchlevel}{logical: should the \sQuote{patch level} be included?}
 }
 \details{
   Many of these functions are not intended for general use but are used