X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=filepicker%2Ftest.icl;fp=filepicker%2Ftest.icl;h=fa05452d8c3817a212e4352fcf1ea168c669fe44;hb=be92eac1a42b32c0ddb187f329fa643d508c1c13;hp=e88513114535f8011d3c91c096374361d322aa2f;hpb=d4b7c7efc28e095b444132c87d1b4298ceef1762;p=clean-tests.git

diff --git a/filepicker/test.icl b/filepicker/test.icl
index e885131..fa05452 100644
--- 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