Displaying 2 results from an estimated 2 matches for "wid21".
Did you mean:
wid2
2000 Sep 28
0
No subject
...wait.variable("done")
# plot x1 or x2
if(tclvar$choice == "0") x <- x1
if(tclvar$choice == "1") x <- x2
if(is.null(names(x))) names(x) <- x
plot(x)
# define second toplevel widget
tt2 <- tktoplevel()
tktitle(tt2) <- "Action"
but.wid21 <- tkbutton(tt2, text="print summary",
command=function()print(summary(x)))
but.wid22 <- tkbutton(tt2, text="identify outlier",
command=function()identify(x))
but.wid23 <- tkbutton(tt2, text="exit"...
2000 Sep 29
1
Two tcltk questions and Re: tcltk package functionality
...wait.variable("done")
# plot x1 or x2
if(tclvar$choice == "0") x <- x1
if(tclvar$choice == "1") x <- x2
if(is.null(names(x))) names(x) <- x
plot(x)
# define second toplevel widget
tt2 <- tktoplevel()
tktitle(tt2) <- "Action"
but.wid21 <- tkbutton(tt2, text="print summary",
command=function()print(summary(x)))
but.wid22 <- tkbutton(tt2, text="identify outlier",
command=function()identify(x))
but.wid23 <- tkbutton(tt2, text="exit"...