From ripley at stats.ox.ac.uk  Tue Jun 10 16:54:32 2003
From: ripley at stats.ox.ac.uk (Prof Brian Ripley)
Date: Tue Jun 10 16:54:46 2003
Subject: [Rd] tkfilefind error (PR#3219)
In-Reply-To: <200306101439.h5AEdP2b009687@pubhealth.ku.dk>
Message-ID: <Pine.LNX.4.44.0306101553140.2525-100000@gannet.stats>

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


[Rd] tkfilefind error (PR#3219)
Prof Brian Ripley