Hi, I´m trying this example from the website(http://www.sciviews.org/_rgui/tcltk/InteractiveTkrPlot.html), but the problem is that i wnat to integrate to it an stop button that stops the tkbind. Can someone please help me?
THanks!! The code->>> #################################### xCoords<-(-12:13) yCoords<-xCoords*xCoords labelsVec <- LETTERS require(tcltk) require(tkrplot) indexLabeled<-c() labeledPoints <- list() tt <- tktoplevel() tkwm.title(tt,"Click on a point to label it") parPlotSize <- c() usrCoords <- c() plotFunction <- function() { params <- par(bg="white") plot(xCoords,yCoords,main="Click on a point to label it") if (length(indexLabeled)>0) for (i in (1:length(indexLabeled))) { indexClosest <- indexLabeled[i] text(xCoords[indexClosest],yCoords[indexClosest], labels=labelsVec[indexClosest],pos=3) } parPlotSize <<- par("plt") usrCoords <<- par("usr") par(params) } img <- tkrplot(tt,fun=plotFunction,hscale=1.5,vscale=1.5) tkgrid(img) labelClosestPoint <- function(xClick,yClick,imgXcoords,imgYcoords) { squared.Distance <- (xClick-imgXcoords)^2 + (yClick-imgYcoords)^2 indexClosest <- which.min(squared.Distance) indexLabeled <<- c(indexLabeled,indexClosest) tkrreplot(img) } OnLeftClick <- function(x,y) { xClick <- x yClick <- y require(tcltk) width <- as.numeric(tclvalue(tkwinfo("reqwidth",img))) height <- as.numeric(tclvalue(tkwinfo("reqheight",img))) xMin <- parPlotSize[1] * width xMax <- parPlotSize[2] * width yMin <- parPlotSize[3] * height yMax <- parPlotSize[4] * height rangeX <- usrCoords[2] - usrCoords[1] rangeY <- usrCoords[4] - usrCoords[3] imgXcoords <- (xCoords-usrCoords[1])*(xMax-xMin)/rangeX + xMin imgYcoords <- (yCoords-usrCoords[3])*(yMax-yMin)/rangeY + yMin xClick <- as.numeric(xClick)+0.5 yClick <- as.numeric(yClick)+0.5 yClick <- height - yClick xPlotCoord <- usrCoords[1]+(xClick-xMin)*rangeX/(xMax-xMin) yPlotCoord <- usrCoords[3]+(yClick-yMin)*rangeY/(yMax-yMin) msg <- paste("Label the point closest to these approximate plot coordinates: \n", "x =",format(xPlotCoord,digits=2),",y =",format(yPlotCoord,digits=2),"?") mbval<- tkmessageBox(title="Label Point Closest to These Approximate Plot Coordinates", message=msg,type="yesno",icon="question") if (tclvalue(mbval)=="yes") labelClosestPoint(xClick,yClick,imgXcoords,imgYcoords) } tkbind(img, "<Button-1>",OnLeftClick) tkconfigure(img,cursor="hand2") -- View this message in context: http://r.789695.n4.nabble.com/Stop-tkbind-tp4710476.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.