Displaying 1 result from an estimated 1 matches for "deleteselect".
2010 Mar 01
0
Multicolumn Listbox selectcommand trouble
....))
scr2 <- tkscrollbar(editor, repeatinterval = 5, command =
function(...)tkyview(txtviewer,...))
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")