// 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)
                        if right$(splitdir$(i),1)="*" then
                        	files$(arraysizeFiles-1) = left$(splitdir$(i), len(splitdir$(i)) -1)
                        elseif right$(splitdir$(i),1)="@" then
                        	files$(arraysizeFiles-1) = left$(splitdir$(i), len(splitdir$(i)) -1)
                        else	
                        	files$(arraysizeFiles-1) = splitdir$(i)
                        endif
                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