Displaying 1 result from an estimated 1 matches for "openunitobs".
2008 Oct 22
0
Bug when importing datas with tcltk window (PR#13191)
...ction(){
name1<-tclvalue(tkgetOpenFile())
if (!nchar(name1))
tkmessageBox(message="Aucun fichier n'a ?t? s?lectionn?!") else
tkmessageBox(message=paste("Vous avez s?lectionn? le fichier ",name1))
assign("fileName",name1,envir=.GlobalEnv)
}
openUnitobs.f = function(){
name2<-tclvalue(tkgetOpenFile())
if (!nchar(name2))
tkmessageBox(message="Aucun fichier n'a ?t? s?lectionn?!") else
tkmessageBox(message=paste("Vous avez s?lectionn? le fichier ",name2))
assign("fileName2",name2,envir=.Global...