Mam długotrwały skrypt do analizy danych i musi połączyć się z kilkoma bazami danych. Jedna z baz danych aktualizuje moje hasło częściej, niż mi się podoba, więc chciałbym dodać wyskakujące okienko, aby wprowadzić moje aktualne hasło. Znalazłem ten przykład, ale nie rozumiem wystarczająco dużo tcltk, aby zobaczyć, czy hwo zwraca moją wartość, gdy okno dialogowe zostanie odrzucone. Myślałem o zdefiniowaniu go jako zmiennej globalnej (<<-) w funkcji OnOK, ale wydaje się to nieuporządkowane

require(tcltk)
tt<-tktoplevel()
Name <- tclVar("Password")
entry.Name <-tkentry(tt,width="20",textvariable=Name)
tkgrid(tklabel(tt,text="Enter Password"))
tkgrid(entry.Name)
OnOK <- function()
{
    NameVal <- tclvalue(Name)
    tkdestroy(tt)
}
OK.but <-tkbutton(tt,text="   OK   ",command=OnOK)
tkbind(entry.Name, "<Return>",OnOK)
tkgrid(OK.but)
tkfocus(tt)