Hi,

There are many ways to do that.

An example:


require(tcltk)

tt <- tktoplevel()
te <- tkentry(tt)
tl <- tklabel(tt)
tb <- tkbutton(tt)

tkconfigure(tl, text = 'Enter text')
tkconfigure(tb, text = 'Show', command = function()
{cat(as.character(tkget(te)))})

tkgrid(tl, row = 0, column = 0, sticky = 'e')
tkgrid(te, row = 0, column = 1, sticky = 'e')
tkgrid(tb, row = 1, column = 0, columnspan = 2)

Sys.sleep(2)

tkgrid.remove(tl, te, tb)

tkgrid(tl, row = 0, column = 0, sticky = 'w')
tkgrid(te, row = 1, column = 0, sticky = 'w')
tkgrid(tb, row = 0, column = 1, rowspan = 2)


Anyway you should have a look \Tcl\doc  which is included in the standard R
dist.

Greetings

	[[alternative HTML version deleted]]

