Displaying 6 results from an estimated 6 matches for "tkdelete".
Did you mean:
t_delete
2003 Oct 27
1
Difficulties with R.oo (static fields, etc.)
...store canvas widget in static field
new$.top<-top
}
plot.TurtleBasic(new) # plot Turtle
new
})
setMethodS3("plot","TurtleBasic",function(turtle) {
## delete old item (if it exists)
if(is.tkwin(turtle$.canvas) && is.tclObj(turtle$.turtle))
tkdelete(turtle$.canvas,turtle$.turtle)
## a new canvas item representing the turtle is created
## (note: it's necessary to make new item because turtle's heading can
change)
x <- c(-10,10)
y <- c(-10,10)
aux<- cos(turtle$.a)*x+sin(turtle$.a)*y + turtle$.x
y...
2012 Nov 20
1
tcl/tk problem with tklistbox,the " " character and Rcmdr.
...height=4, yscrollcommand=function(...)tkset(levels.list2.scroll,...))
levels.list2.scroll<-tkscrollbar(tt,repeatinterval=5,command=function(...)tkyview(levels.list2,...))
tkgrid(levels.list2,levels.list2.scroll)
vec<-c("a","b",""," "," ")
tkdelete(levels.list2,"0","end")
for (var in vec) {tkinsert(levels.list2, "end", var)}
tclvalue(tkget(levels.list2,"0"))# a
tclvalue(tkget(levels.list2,"1"))# b
tclvalue(tkget(levels.list2,"2"))# ""
tclvalue(tkget(levels.list2,"3&...
2003 Sep 08
1
add checkbutton and the variable(wrong length of vector "b")
..., variable=b[cant]) #add the variable
}
ver<-function(){
i<-1
while (i<=length(b)) { #the length of b is wrong!!
print(tclvalue(b[i]))
i<-i+1
}
}
borra<-function(){
assign("vectPath",c(),.GlobalEnv)
assign("b",c(),.GlobalEnv)
tkdelete(m,"0","end")
}
tt <- tktoplevel()
tkpack(mb <- tkmenubutton(tt, text="Datos"))
m <- tkmenu(mb,tearoff=FALSE)
tkconfigure(mb,menu=m)
b<-tkbutton(tt,text="abrir",command=function()archivos())
tkpack(b)
b3<-tkbutton(tt,text="ver",comman...
2003 Oct 15
0
tkcanvas/bitmap for Turtle World
...e_bitmap/"
# select bitmap file (turtle000.xbm, turtle045.xbm, ...)
heading<-(45*(angle*180/pi+22.5)%/%45)%%360
file<-paste("turtle",paste(rep(0,3-nchar(heading)),collapse=""),heading,".xbm",sep="")
# redraw
tkdelete(turtle$canvas,turtle$turtle)
turtle$turtle<-tkcreate(turtle$canvas,"bitmap",x,y,anchor="center",bitmap=paste(path,file,sep=""))
turtle$angle <- angle
}
if(x!=turtle$x || y!=turtle$y) {
tkmove(turtle$canvas,turtle$turtle,x-turtle$...
2006 Aug 17
1
tkinser
Un texte encapsul? et encod? dans un jeu de caract?res inconnu a ?t? nettoy?...
Nom : non disponible
Url : https://stat.ethz.ch/pipermail/r-help/attachments/20060817/217ef502/attachment.pl
2010 Mar 01
0
Multicolumn Listbox selectcommand trouble
...wer,...))
tkgrid(txtviewer, scr2)
tkgrid.configure(scr2, sticky = "ns")
tkmark.set(txtviewer,"insert","0.0")
tkinsert(txtviewer,"end","This is some stuff")
DeleteSelection <- function()
{
fruitIndex <- as.integer(tkcurselection(mlb))
tkdelete(mlb,fruitIndex)
}
DeleteSelection.but <- tkbutton(editor,text="Delete",command=DeleteSelection)
tkgrid(DeleteSelection.but)
tkfocus(txtviewer)
tkpack(editor, side = "bottom")