packages/wx/bbs/appli/exampleDirectorySelector.bbs

   1 description "Simple test of wx::DirectorySelector widget"
   2 author "jean-pierre.roux@creatis.univ-lyon1.fr"
   3 category "example"
   4
   5 load wx
   6 load std
   7
   8 new DirectorySelector ds
   9 new FilesFromDirectory fd
  10
  11 connect ds.Out fd.In
  12
  13 set fd.Recursive false
  14 print "Files found in $ds.Out"
  15 print "-Not recursive----------------------------"
  16 print "$fd.Out"
  17
  18 set fd.Recursive true
  19 print ""
  20 print "Files found in $ds.Out"
  21 print "-Recursive----------------------------"
  22 print "$fd.Out"