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"
print "-Not recursive----------------------------"
print "$fd.Out" 

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