Displaying 2 results from an estimated 2 matches for "dxcbutt".
2000 Sep 28
0
No subject
...iobutton(tt, text="Precipitation", value=0,
+ variable=tclvar$choice,
+ command=pptlabs)
+ rbut.wid2 <- tkradiobutton(tt, text="Temperature", value=1,
+ variable=tclvar$choice,
+ command=templabs)
+ but.wid <- tkbutton(tt, text="FINISHED", command=function(){ dxcbutt <-
+ "Cancel"; tkdestroy(tt)})
+
+ tkpack(label.widget)
+ tkpack(rbut.wid)
+ tkpack(rbut.wid2)
+ #tkpack.configure(rbut.wid,side="left")
+ tkpack(but.wid)
+
+ dxcbutt <- "OK"
+ while(dxcbutt == "OK") {
+ if(dxcbutt=="Cancel") break...
2000 Sep 28
1
tcltk package functionality
...<- tkradiobutton(tt, text="Precipitation", value=0,
variable=tclvar$choice,
command=pptlabs)
rbut.wid2 <- tkradiobutton(tt, text="Temperature", value=1,
variable=tclvar$choice,
command=templabs)
but.wid <- tkbutton(tt, text="FINISHED", command=function(){ dxcbutt <-
"Cancel"; tkdestroy(tt)})
tkpack(label.widget)
tkpack(rbut.wid)
tkpack(rbut.wid2)
#tkpack.configure(rbut.wid,side="left")
tkpack(but.wid)
dxcbutt <- "OK"
while(dxcbutt == "OK") {
if(dxcbutt=="Cancel") break
}
plot(xd$AVGT, x...