## Not run:
# local(envir=.PBSmodEnv,expr={
# #integration with widget via doAction
# createWin( c( "entry foo mode=character width=60",
# "button text=\"select file\"
# func=doAction action=\"selectFile(usewidget=`foo`)\"" ), astext=TRUE )
# })
# ## End(Not run)
Run the code above in your browser using DataLab