# NOT RUN {
local(envir=.PBSmodEnv,expr={
dir(selectDir(title="select a directory to list contents of"))
#integration with widget via doAction
createWin( c( "entry foo mode=character",
"button text=\"select dir\"
func=doAction action=\"selectDir(usewidget=`foo`)\"" ), astext=TRUE )
})
# }
Run the code above in your browser using DataLab