Displaying 4 results from an estimated 4 matches for "wid2".
Did you mean:
uid2
2000 Sep 28
0
No subject
...+
+ tt <- tktoplevel()
+ tktitle(tt) <- "Diagnostics"
+ label.widget <- tklabel(tt, text="Choose!")
+
+ pptlabs <- function() {
+ plot(xd$iv802, xd$PPT)
+ abline(0,1)
+ tt2 <- tktoplevel()
+ tktitle(tt2) <- "Identify Outliers"
+ lab.wid2 <- tklabel(tt2, text="Identify Outliers")
+ but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2))
+ tkpack(lab.wid2, but.wid2)
+ labp <- identify(xd$iv802, xd$PPT, label=xd$FIPS)
+ dev.print(png, "pptlabs.png", width=600,height=60...
2000 Sep 28
1
tcltk package functionality
...("tcltk")
tt <- tktoplevel()
tktitle(tt) <- "Diagnostics"
label.widget <- tklabel(tt, text="Choose!")
pptlabs <- function() {
plot(xd$iv802, xd$PPT)
abline(0,1)
tt2 <- tktoplevel()
tktitle(tt2) <- "Identify Outliers"
lab.wid2 <- tklabel(tt2, text="Identify Outliers")
but.wid2 <- tkbutton(tt2, text="OK", command=function() tkdestroy(tt2))
tkpack(lab.wid2, but.wid2)
labp <- identify(xd$iv802, xd$PPT, label=xd$FIPS)
dev.print(png, "pptlabs.png", width=600,height=600)
}...
2000 Sep 29
1
Two tcltk questions and Re: tcltk package functionality
...ot;)
# define first toplevel-widget
tt <- tktoplevel()
tktitle(tt) <- "Diagnostics"
label.widget <- tklabel(tt, text="Choose data for plot!")
rbut.wid1 <- tkradiobutton(tt, text="x1", value="0", variable="choice")
rbut.wid2 <- tkradiobutton(tt, text="x2", value="1", variable="choice")
but.done <- tkbutton(tt, text="FINISHED", command=function(){
tclvar$done <- "T"...
2000 Sep 29
0
Is it R or I?
...n("opfr",opfr,env=.GlobalEnv)
# define second toplevel widget
tt2a <- tktoplevel()
tktitle(tt2a) <- "IdentifyOutliers"
but.lab2 <- tklabel(tt2a, text="Left button\n to identify,\n middle
to quit",foreground="maroon")
but.wid22 <- tkbutton(tt2a, text="Identify Outliers",
command=idnfyplot)
but.wid23 <- tkbutton(tt2a, text="DONE", command=function(){
tclvar$done2<-"T"...