added Item$ = "__SmIC__="+FileName$ to COLUMNBOX ADD, add a filemode: r+ ( read/write )

yab-IDE/Programs/libs/Filebox.yab

@@ -0,0 +1,116 @@
+// Filebox is a library to have an easy access to a list of files.
+// This is easier than poking around with columnboxes yourself.
+
+// Open a new filebox from (x1,y1) to (x2,y2)
+// with the id ID$, the type of scrollbar ScrollbarType on View$
+export sub Filebox(x1,y1,x2,y2, ID$, ScrollbarType, View$)
+	local myscrollbar
+	columnbox x1,y1 to x2,y2, ID$, ScrollbarType, "resizable", View$
+	columnbox column ID$, " ", 1, 20, 20, 20, "align-center"
+	if(scrollbarType=1 or scrollbarType=3) myscrollbar = peek("scrollbarwidth")
+	columnbox column ID$, "Name", 2, 1000, 21, x2-x1-24-myscrollbar, "align-left"
+	columnbox color ID$, "Selection-Active", 220,220,250
+        columnbox color ID$, "Row-Divider", 255,255,255 
+	return
+end sub
+
+// Easy interface to a Filebox, simply name a directory
+export sub FileboxDirectorySimple(ID$, dir$)
+	FileboxDirectory(ID$,dir$,false)
+	return
+end sub
+
+// return the name of the row position
+export sub FileboxName$(ID$, position)
+	return columnbox get$ ID$, 2, position
+end sub
+
+// return true, if the row position is a directory
+export sub FileboxIsDirectory(ID$, position,dir$)
+	local t$
+	t$ = columnbox get$ ID$, 2, position
+	print "t$ "+t$
+	//if(t$ =  "__Path__="+path$+Name$"__Mime__=application/x-vnd.Be-directory") return true
+	if(system("test -d \""+ dir$+t$+"\"") = 0) system("addattr -t mime BEOS:TYPE application/x-vnd.Be-directory \""+dir$+t$+"\"") : return true
+	return false
+end sub
+
+// Give a directory and the following options:
+// showDot: set this to true to show hidden (dot) files
+export sub FileboxDirectory(ID$, dir$, showDot)
+	local t$
+	local i
+	local n
+	local arraysizeDir
+	local arraysizeFiles
+
+	dim directories$(1)
+	dim files$(1)
+
+	arraysizeDir = 0
+	arraysizeFiles = 0
+
+	columnbox clear ID$
+	if(showDot) then
+		t$ = system$("ls --format=single-column --color=none -aF \""+dir$+"\" |sort -f")
+	else
+		t$ = system$("ls --format=single-column --color=none -F \""+dir$+"\" |sort -f")
+	endif
+
+	dim splitdir$(1)
+
+	n = split(t$, splitdir$(), "\n")
+	for i=1 to n-1
+				
+				//print dir$+splitdir$(i)
+				
+				
+				//print dir$+splitdir$(i)
+				if  (right$(splitdir$(i),1)="/") then
+	
+               //if(system("test -d \""+ dir$+splitdir$(i)+"\"") = 0) then
+                        // comment the if clause out if you want to have the direcotries "." and ".." listed
+                       // if(splitdir$(i)<>"." and splitdir$(i)<>"..") then
+                        	arraysizeDir = arraysizeDir + 1
+                            dim directories$(arraysizeDir)
+                            splitdir$(i) = left$(splitdir$(i),len( splitdir$(i))-1)
+                            directories$(arraysizeDir-1) = splitdir$(i)
+                        //endif
+                // handle files
+               
+                else
+                
+                
+                        arraysizeFiles = arraysizeFiles + 1
+                        dim files$(arraysizeFiles)
+                        files$(arraysizeFiles-1) = splitdir$(i)
+                endif 
+	next i
+	for i=0 to arraysizeDir-1
+		FileboxAdd(ID$, directories$(i), true,dir$)
+	next i
+	for i=0 to arraysizeFiles-1
+		FileboxAdd(ID$, files$(i), false,dir$)
+	next i
+	return
+end sub
+
+sub FileboxAdd(ID$, Name$, IsFolder, path$)
+	local maxpos
+
+	maxpos = (columnbox count ID$) + 1
+	a$=""
+		
+	if(IsFolder) then
+		columnbox add ID$, 1, maxpos, 18, "__SmIC__="+path$+Name$
+	else
+		columnbox add ID$, 1, maxpos, 18, "__SmIC__="+path$+Name$
+	
+	//else	
+		//columnbox add ID$, 1, maxpos, 18, "__Mime__=application/octet-stream"
+	endif
+	columnbox add ID$, 2, maxpos, 20, Name$
+	columnbox select ID$, 1
+	columnbox select ID$, 0
+	return
+end sub