search for: templabs

Displaying 2 results from an estimated 2 matches for "templabs".

Did you mean: tellabs
2000 Sep 28
0
No subject
...l(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) + } + + templabs <- function() { + plot(xd$iv802, xd$AVGT) + 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...
2000 Sep 28
1
tcltk package functionality
...<- 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) } templabs <- function() { plot(xd$iv802, xd$AVGT) 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)) tk...