description "Simple test of wx::DirectorySelector widget"
author "jean-pierre.roux@creatis.univ-lyon1.fr"
category "example"

load wx
load std

new DirectorySelector ds
new FilesFromDirectory fd

connect ds.Out fd.In

set fd.Recursive false
print "Files found in $ds.Out$\n"
print "-Not recursive----------------------------"
print " : $fd.Out$\n" 

set fd.Recursive true
print " \n"
print "Files found in $ds.Out"
print "-Recursive----------------------------"
print " : $fd.Out$\n"