[Rd] tkfilefind error (PR#3219)
rbaer at kcom.edu
rbaer at kcom.edu
Tue Jun 10 17:39:25 MEST 2003
Full_Name: Rob Baer
Version: 1.7.0
OS: Windows 2000
Submission from: (NULL) (198.209.172.106)
In running the demo for tkfilefind() on Windows 2000, a new frame appears and
disappears, and then I received the following error message:
Error in structure(.External("dotTcl", ..., PACKAGE = "tcltk"), class =
"tclObj") :
[tcl] megawidget initialization error: expected integer but got "--1".
The complete GUI window printout follows for context:
____________________________
> demo(tkfilefind)
demo(tkfilefind)
---- ~~~~~~~~~~
Type <Return> to start :
> require(tcltk) || stop("tcltk support is absent")
[1] TRUE
> local({
tkfilefind <- function(path = getwd(), all.names = FALSE,
multiple = FALSE) {
tclRequire("::Utility")
tclRequire("Hierarchy")
.Tcl("namespace import -force ::Utility::*")
done <- FALSE
base .... [TRUNCATED]
------------------------------------------------------
This demo will put a tree widget to explore the filesystem
from the current working directory.
*Double* click on a folder marked with + or - to expand
or contract a branch.
Click on the Select button to pick a file,
or Quit to return without selecting
------------------------------------------------------
******************************************************
The source for this demo can be found in the file:
C:/PROGRA~1/R/rw1070/library/tcltk/demo/tkfilefind.R
******************************************************
Error in structure(.External("dotTcl", ..., PACKAGE = "tcltk"), class =
"tclObj") :
[tcl] megawidget initialization error: expected integer but got "--1".
>
More information about the R-devel
mailing list