Jonne Zutt wrote:
> Hi Samuel,
>
> An easy solution is the following. Let the R script wait until a certain
> variable (ok_to_quit) got changed.
>
> Hope it helps,
> Jonne.
>
> ## in a file called test.R
> quit <- function() {
> .Tcl("set ok_to_quit 1")
> tkdestroy(tt)
> }
>
> require(tcltk)
> tt <<- tktoplevel()
> OK.but <- tkbutton(tt,text="OK",command=quit)
> tkgrid(OK.but)
> tkfocus(tt)
>
> .Tcl("set ok_to_quit 0")
> .Tcl("vwait ok_to_quit")
>
>
The tkttest demo does this in a somewhat cleaner fashion (avoiding .Tcl).
--
O__ ---- Peter Dalgaard Øster Farimagsgade 5, Entr.B
c/ /'_ --- Dept. of Biostatistics PO Box 2099, 1014 Cph. K
(*) \(*) -- University of Copenhagen Denmark Ph: (+45) 35327918
~~~~~~~~~~ - ([EMAIL PROTECTED]) FAX: (+45) 35327907
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
