Hi,is it right? for (i in 1:length(imagens)) { buts[i] <- tkbutton(tt, text=paste("Figure",i),command=function()show(i)) chk.g[i] <- tkcheckbutton(tt,text="Grafics", variable=grafs[i],command=function()(values[i] <- calcule(i) )) chk.f[i] <- tkcheckbutton(tt,text="Fotogr?fica", variable=fotos[i],command=function()(values[i] <- calcule(i))) tkgrid(chk.g[i],chk.f[i],buts[i]) } ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Francisco J?nior, Computer Science - UFPE-Brazil "One life has more value that the world whole" ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^