From: jean-pierre roux <jean-pierre.roux@creatis.insa-lyon.fr>
Date: Tue, 25 Nov 2008 13:04:40 +0000 (+0000)
Subject: to test DirectorySelector and FilesFromDirectory
X-Git-Tag: v0.9.1~76
X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=commitdiff_plain;h=c14cab422175d3453e2e2b2b24b0c708c6c80daa;p=bbtk.git

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
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"