This happens on all OSes (I have access to) with Tcl/Tk 8.4.x: it has been
discussed before and I recall the solution proposed was to remove the code
and demo.
On Tue, 10 Jun 2003 rbaer@kcom.edu wrote:
> 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".
> >
>
> ______________________________________________
> R-devel@stat.math.ethz.ch mailing list
> https://www.stat.math.ethz.ch/mailman/listinfo/r-devel
>
--
Brian D. Ripley, ripley@stats.ox.ac.uk
Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/
University of Oxford, Tel: +44 1865 272861 (self)
1 South Parks Road, +44 1865 272866 (PA)
Oxford OX1 3TG, UK Fax: +44 1865 272595