[Rd] tkfilefind error (PR#3219)

[rbaer at kcom.edu]

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".
>