## 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 )
# })
# ## End(Not run)
Run the code above in your browser using DataLab