Merge branch 'master' of git.martlubbers.net:clean-tests

[clean-tests.git] / filepicker / test.icl

diff --git a/filepicker/test.icl b/filepicker/test.icl
index e885131..fa05452 100644 (file)
--- a/filepicker/test.icl
+++ b/filepicker/test.icl
@@ -74,3 +74,9 @@ where
                = (Ok $ sortBy fst [(f, fi)\\f<-files & fi<-fis], iw)
 
        write p w iw = (Ok (const (const False)), iw)
+//import iTasks
+//import iTasks.Extensions.Files
+//
+//Start w = startEngine (
+//     selectFile "/opt/clean/lib" () False []
+//     >&> viewSharedInformation "Selection" []) w