to test DirectorySelector and FilesFromDirectory

diff --git a/packages/wx/bbs/appli/exampleDirectorySelector.bbs b/packages/wx/bbs/appli/exampleDirectorySelector.bbs
new file mode 100644 (file)
index 0000000..1e14390
--- /dev/null
+++ b/packages/wx/bbs/appli/exampleDirectorySelector.bbs
@@ -0,0 +1,22 @@
+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"