2008/8/11 Ben Bolker <[EMAIL PROTECTED]>:
>
> I can set up an entry widget (thanks to an old
> post by Barry Rowlingson) that gets a password and
> exits when the user clicks on the "OK" button.
Who? Oh dear, my past comes back to haunt me...
> getPassword <- function(){
> require(tcltk)
> tt <- tktoplevel()
> pass=tclVar("")
> label.widget <- tklabel(tt, text="Enter Password")
> password.widget <- tkentry(tt,show="*",textvariable=pass)
> ok <- tkbutton(tt,text="OK",default="active",
> command=function()tkdestroy(tt))
> tkpack(label.widget, password.widget,ok)
> tkwait.window(tt)
> return(tclvalue(pass))
> }
tkbind a function on the entry widget so that if <Return> is pressed
it destroys the window:
getPassword=function(){
require(tcltk)
tt <- tktoplevel()
pass=tclVar("")
label.widget <- tklabel(tt, text="Enter Password")
password.widget <- tkentry(tt,show="*",textvariable=pass)
tkbind(password.widget,"<Return>",function(){tkdestroy(tt)})
ok <- tkbutton(tt,text="OK",default="active",
command=function()tkdestroy(tt))
tkpack(label.widget, password.widget,ok)
tkwait.window(tt)
return(tclvalue(pass))
}
How's that? See you in a few years...
Barry
______________________________________________
R-help@r-project.org mailing list
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.
