View difference between Paste ID: q9XwaJaK and bVH5gv5Y

 local tArgs = {...}
 local ver = "1.0"
 local sTitle = "Apoc Browser"
 local bugTest, norun, dir, showAll
 local _tArgs = {}
 local config = "mouse.cfg"
 
 local temp
 if shell and shell.getRunningProgram then
 	temp = shell.getRunningProgram()
 end
 
 temp = temp or "/bla"
 local localPath = string.sub(temp,1,#temp-string.len(fs.getName(temp)))
 temp = nil -- just because not needed
 
 -- load config file
 
 local configSet = {}
 local cnf = {}
 
 if fs.exists(localPath.."/"..config) then
 	local file = fs.open(localPath.."/"..config,"r")
 	if file then
 		local item = file.readLine()
 		while item do
 			table.insert(cnf,item)
 			item = file.readLine()
 		end
 		file.close()
 	end
 end
 
 for i = 1,10 do
 	local test,data = pcall(textutils.unserialize,cnf[i])
 	if test then
 		configSet[i] = data
 	else
 		configSet[i] = nil
 	end
 end
 cnf = nil
 
 -- color configuration work in progress
 local titleBar = configSet[1] or {txt = colors.black,back = colors.blue}
 local addressBar = configSet[2] or {txt = colors.black,back = colors.lightGray}
 local itemWindo = configSet[3] or {txt = colors.black,back = colors.cyan}
 local rcmList = configSet[4] or {txt = colors.black,back = colors.lightGray} -- rcm = Right Click Menu List
 local rcmTitle = configSet[5] or {txt = colors.black,back = colors.blue}
 local dialogTitle = configSet[6] or {txt = colors.black,back = colors.blue}
 local dialogWindo = configSet[7] or {txt = colors.black,back = colors.white}
 local scrollCol = configSet[8] or {off = colors.gray, button = colors.gray,back = colors.lightGray}
 
 local tIcons = configSet[9] or {
 	back = {tCol = "lightGray",bCol = "blue",txt = " < "},
 	disk = {tCol = "lime",bCol = "green",txt = "[*]"},
 	audio = {tCol = "yellow",bCol = "red",txt = "(o)"},
 	folder = {tCol = "lightGray",bCol = "blue",txt = "[=]"},
 	file = {tCol = nil ,bCol = nil ,txt = nil}
 }
 
 local customLaunch = configSet[10] or {
 	["Edit"] = "rom/programs/edit",
 	["Paint"] = "rom/programs/color/paint"
 }
 
 local function saveCFG(overWrite)
 	if not fs.exists(localPath.."/"..config) or overWrite then
 		local cnf = {}
 		local file = fs.open(localPath.."/"..config,"w")
 		if file then
 			file.write(textutils.serialize(titleBar).."\n")
 			file.write(textutils.serialize(addressBar).."\n")
 			file.write(textutils.serialize(itemWindo).."\n")
 			file.write(textutils.serialize(rcmList).."\n")
 			file.write(textutils.serialize(rcmTitle).."\n")
 			file.write(textutils.serialize(dialogTitle).."\n")
 			file.write(textutils.serialize(dialogWindo).."\n")
 			file.write(textutils.serialize(scrollCol).."\n")
 			file.write(textutils.serialize(tIcons).."\n")
 			file.write(textutils.serialize(customLaunch).."\n")
 			file.close()
 		elseif overWrite then
 		end
 	end
 end
 
 saveCFG()
 
 -- end configuration
 
 local function help()
 	print([[Usage: browser [-d] [-h] [-a] [-u] [--debug] [--help] [--dir <dir>] [--all] [--update]
 --debug or -d: enable debug mode
 --help or -h: display this screen
 --dir: define initial directory
 --all or -a: show hidden files
 --update -u: update]])
 end
 
 local function inBouwndry(clickX,clickY,boxX,boxY,width,hight)
 	return ( clickX >= boxX and clickX < boxX + width and clickY >= boxY and clickY < boxY + hight )
 end
 
 for a = 1, #tArgs do
 	if tArgs[a]:sub(1,2) == "--" then
 		local cmd = tArgs[a]:sub(3):lower()
 		if cmd == "debug" then
 			bugTest = true
 		elseif cmd == "help" then
 			help()
 			norun = true
 		elseif cmd == "dir" then
 			dir = tArgs[a+1]
 			a = a + 1
 		elseif cmd == "all" then
 			showAll = true
 		elseif cmd == "update" then
 			update()
 		end
 	elseif tArgs[a]:sub(1,1) == "-" then
 		for b = 2, #tArgs[a] do
 			cmd = tArgs[a]:sub(b, b)
 			if cmd == "d" then
 				bugTest = true
 			elseif cmd == "h" then
 				help()
 				norun = true
 			elseif cmd == "p" then
 				dir = tArgs[a+1]
 				a = a + 1
 			elseif cmd == "a" then
 				showAll = true
 			elseif cmd == "u" then
 				update()
 			end
 		end
 	else
 		table.insert(_tArgs, tArgs[a])
 	end
 end
 
 if (not dir) and shell and shell.dir then
 	dir = shell.dir()
 end
 
 if dir and shell and shell.resolve then
 	dir = shell.resolve(dir)
 end
 
 dir = dir or "/"
 
 if bugTest then -- this is that the var is for testing
 	print("Dir: "..dir)
 	os.startTimer(4)
 	os.pullEvent()
 end
 
 local function clear()
 	term.setBackgroundColor(colors.black)
 	term.setTextColor(colors.white)
 	term.clear()
 	term.setCursorBlink(false)
 	term.setCursorPos(1,1)
 end
 
 local function fixArgs(...)
 	local tReturn={}
 	local str=table.concat({...}," ")
 	local sMatch
 	while str and #str>0 do
 		if string.sub(str,1,1)=="\"" then
 			sMatch, str=string.match(str, "\"(.-)\"%s*(.*)")
 		else
 			sMatch, str=string.match(str, "(%S+)%s*(.*)")
 		end
 		table.insert(tReturn,sMatch)
 	end
 	return tReturn
 end
 
 local function readMOD( _sReplaceChar, _tHistory,_wdth)
 	local sLine = ""
 	term.setCursorBlink( true )
 
 	local nHistoryPos = nil
 	local nPos = 0
     if _sReplaceChar then
 		_sReplaceChar = string.sub( _sReplaceChar, 1, 1 )
 	end
 
 	local sx, sy = term.getCursorPos()
 
 	local w, h = term.getSize()
 	if _wdth and type(_wdth) == "number" then
 		w = sx + _wdth - 1
 	end
 
 	local function redraw( _sCustomReplaceChar )
 		local nScroll = 0
 		if sx + nPos >= w then
 			nScroll = (sx + nPos) - w
 		end
 
 		term.setCursorPos( sx + _wdth - 1, sy )
 		term.write(" ")
 		term.setCursorPos( sx, sy )
 		local sReplace = _sCustomReplaceChar or _sReplaceChar
 		if sReplace then
 			term.write( string.rep(sReplace,_wdth) )
 		else
 			term.write( string.sub( sLine, nScroll + 1 ,nScroll + _wdth) )
 		end
 		term.setCursorPos( sx + nPos - nScroll, sy )
 	end
 
 	while true do
 		local sEvent, param = os.pullEvent()
 		if sEvent == "char" then
 			sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
 			nPos = nPos + 1
 			redraw()
 
 		elseif sEvent == "key" then
 
 			if param == keys.left then
 				-- Left
 				if nPos > 0 then
 					nPos = nPos - 1
 					redraw()
 				end
 
 			elseif param == keys.right then
 				-- Right
 				if nPos < string.len(sLine) then
 					nPos = nPos + 1
 					redraw()
 				end
 
 			elseif param == keys.up or param == keys.down then
                 -- Up or down
 				if _tHistory then
 					redraw(" ");
 					if param == keys.up then
 						-- Up
 						if nHistoryPos == nil then
 							if #_tHistory > 0 then
 								nHistoryPos = #_tHistory
 							end
 						elseif nHistoryPos > 1 then
 							nHistoryPos = nHistoryPos - 1
 						end
 					else
 						-- Down
 						if nHistoryPos == #_tHistory then
 							nHistoryPos = nil
 						elseif nHistoryPos ~= nil then
 							nHistoryPos = nHistoryPos + 1
 						end
 					end
 
 					if nHistoryPos then
                     	sLine = _tHistory[nHistoryPos]
                     	nPos = string.len( sLine )
                     else
 						sLine = ""
 						nPos = 0
 					end
 					redraw()
                 end
 			elseif param == keys.backspace then
 				-- Backspace
 				if nPos > 0 then
 					redraw(" ");
 					sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
 					nPos = nPos - 1
 					redraw()
 				end
 			elseif param == keys.home then
 				-- Home
 				nPos = 0
 				redraw()
 			elseif param == keys.delete then
 				if nPos < string.len(sLine) then
 					redraw(" ");
 					sLine = string.sub( sLine, 1, nPos ) .. string.sub( sLine, nPos + 2 )
 					redraw()
 				end
 			elseif param == keys["end"] then
 				-- End
 				nPos = string.len(sLine)
 				redraw()
 			end
 		elseif sEvent == "redraw" then
 			redraw()
 		elseif sEvent == "return" then
 			term.setCursorBlink( false )
 			return sLine
 		end
 	end
 
 	term.setCursorBlink( false )
 
 	return sLine
 end
 
 local function printC(posX,posY,textCol,backCol,text)
 	term.setCursorPos(posX,posY)
 	term.setTextColor(colors[textCol] or textCol)
 	term.setBackgroundColor(colors[backCol] or backCol)
 	term.write(text)
 end
 
 local function InputBox(title)
 	local boxW,boxH = 26,3
 	local termX,termY = term.getSize()
 	local ofsX,ofsY = math.ceil((termX/2) - (boxW/2)) , math.ceil((termY/2) - (boxH/2)) -- offset from top left
 	local options = {"ok","cancel"}
 
 	local selected = 1
 	local space = 0
 	local range = {}
 	for i = 1,#options do
 		range[i] = {s = space,f = space + string.len(options[i])}
 		space = space + string.len(options[i])+3
 	end
 	local ofC = (boxW/2) - (space/2)
 
 	local function drawBox()
 		printC(ofsX,ofsY,colors.black,colors.blue,string.rep(" ",boxW))
 		printC(ofsX+1,ofsY,colors.black,colors.blue,(title or "User Input"))
 		printC(ofsX,ofsY+1,colors.black,colors.white,string.rep(" ",boxW))
 		printC(ofsX,ofsY+2,colors.black,colors.white,string.rep(" ",boxW))
 		printC(ofsX,ofsY+3,colors.black,colors.white,string.rep(" ",boxW))
 
 		for i = 1,#options do
 			if i == selected then
 				term.setBackgroundColor(colors.lightGray)
 				term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
 				term.write("["..options[i].."]")
 				term.setBackgroundColor(colors.white)
 				term.write(" ")
 			else
 				term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
 				term.write(" "..options[i].." ")
 			end
 		end
 
 		printC(ofsX+2,ofsY+2,colors.black,colors.lightGray,string.rep(" ",boxW-4))
 	end
 	drawBox()
 	term.setCursorPos(ofsX+2,ofsY+2)
 	local co = coroutine.create(function() return readMOD(nil,nil,boxW - 4) end)
 	while true do
 		local event = {os.pullEvent()}
 		if event[1] == "key" or event[1] == "char" then
 			if event[2] == 28 then
 				local test,data = coroutine.resume(co,"return")
 				return data
 			else
 				coroutine.resume(co,unpack(event))
 			end
 		elseif event[1] == "mouse_click" then
 			if event[4] == ofsY + 3 then
 				for i = 1,#options do
 					if event[3] >= range[i].s + ofC + ofsX - 1 and event[3] <= range[i].f + ofC + ofsX then
 						if options[i] == "ok" then
 							local test,data = coroutine.resume(co,"return")
 							return data
 						elseif options[i] == "cancel" then
 							return false
 						end
 					end
 				end
 			end
 		end
 	end
 end
 
 local function dialogBox(title,message,options, h, w)
 	term.setCursorBlink(false)
 	local selected = 1
 	title = title or ""
 	message = message or ""
 	options = options or {}
 	local boxW,boxH = (w or 26), (h or 3)
 	local termX,termY = term.getSize()
 	local ofsX,ofsY = math.ceil((termX/2) - (boxW/2)) , math.ceil((termY/2) - (boxH/2)) -- offset from top left
 
 	local space = 0
 	local range = {}
 	for i = 1,#options do
 		range[i] = {s = space,f = space + string.len(options[i])}
 		space = space + string.len(options[i])+3
 	end
 	local ofC = math.ceil((boxW/2)) - math.ceil((space/2))
 
 	local function drawBox()
 		printC(ofsX,ofsY,dialogTitle.txt,dialogTitle.back," "..title..string.rep(" ",boxW-#title-5).."_[]")
 		term.setBackgroundColor(colors.red)
 		term.setTextColor(colors.white)
 		term.write("X")
 		printC(ofsX,ofsY+1,dialogWindo.txt,dialogWindo.back,string.sub(" "..message..string.rep(" ",boxW),1,boxW))
 		term.setCursorPos(ofsX,ofsY+2)
 		term.write(string.rep(" ",boxW))
 		term.setCursorPos(ofsX,ofsY+3)
 		term.write(string.rep(" ",boxW))
 		for i = 1,#options do
 			if i == selected then
 				printC(range[i].s + ofC + ofsX - 1,ofsY + 3,"black","lightGray","["..options[i].."]")
 				term.setBackgroundColor(dialogWindo.back)
 				term.setTextColor(dialogWindo.txt)
 				term.write(" ")
 			else
 				term.setCursorPos(range[i].s + ofC + ofsX - 1,ofsY + 3)
 				term.write(" "..options[i].." ")
 			end
 		end
 		term.setCursorPos(ofsX + ofC + space,ofsY + 3)
 		term.write(string.rep(" ",boxW - (ofC + space)))
 		term.setBackgroundColor(colors.black)
 		term.setTextColor(colors.white)
 	end
 	while true do
 		drawBox()
 		event = {os.pullEvent()}
 		if event[1] == "key" then
 			if event[2] == 203 then -- left
 				selected = selected - 1
 				if selected < 1 then
 					selected = #options
 				end
 			elseif event[2] == 205 then -- right
 				selected = selected + 1
 				if selected > #options then
 					selected = 1
 				end
 			elseif event[2] == 28 then -- enter
 				return selected , options[selected]
 			end
 		elseif event[1] == "mouse_click" then
 
 			if bugTest then term.write("M "..event[2].." X "..event[3].." Y "..event[4].."    ") end
 
 			if event[2] == 1 then
 				if event[4] == ofsY + 3 then
 					for i = 1,#options do
 						if event[3] >= range[i].s + ofC + ofsX - 1 and event[3] <= range[i].f + ofC + ofsX then
 							return i , options[i]
 						end
 					end
 				end
 			end
 		end
 	end
 end
 
 local flag = true
 local fSlash = "/"
 local path = {dir:match("[^/]+")}
 local function stringPath()
 	return fSlash..table.concat(path,fSlash)
 end
 
 local function osRunSpaces(sFileLocation,...)
 	clear()
 	if os.newThread then
 		os.newThread(false,...)
 	else
 	local fProg,probblem = loadfile(sFileLocation)
 		if fProg then
 			local tEnv = {["shell"] = {}}
 			setmetatable(tEnv.shell,{ __index = shell})
 			tEnv.shell.getRunningProgram = function()
 				return sFileLocation
 			end
 			setmetatable(tEnv,{ __index = _G})
 			setfenv(fProg,tEnv)
 			local test,probblem = pcall(fProg,...)
 			if not test then
 				print(probblem)
 				dialogBox("ERROR",tostring(probblem),{"ok"},3,30)
 			else
 				return true
 			end
 		else
 			print(probblem)
 			dialogBox("ERROR",tostring(probblem),{"ok"},3,30)
 		end
 	end
 end
 
 local function rClickMenu(title,tList,tItem,posX,posY)
 
 	term.setCursorBlink(false)
 	local BoxTitle = title
 	local choices = {}
 	local termX,termY = term.getSize()
 	local offX,offY
 
 	local width = #BoxTitle + 2
 	local hight
 
 	for k,v in pairs(tList) do
 		if v ~= nil then
 			table.insert(choices,k)
 		end
 		if width < #k + 2 then
 			width = #k + 2
 		end
 	end
 
 	if #choices == 0 then
 		return
 	end
 
 	hight = #choices + 1
 	table.sort(choices)
 
 	offX,offY = math.ceil((termX/2) - (width/2)),math.ceil((termY/2) - (hight/2))
 
 	if posX and posY then -- offX,offY = posX,posY
 		if posX >= termX - width - 1 then
 			offX = termX - width - 1
 		else
 			offX = posX
 		end
 		if posY >= termY - hight then
 			offY = termY - hight
 		else
 			offY = posY
 		end
 	end
 
 	local function reDrawer()
 		printC(offX,offY,rcmTitle.txt,rcmTitle.back," "..BoxTitle..string.rep(" ",width - #BoxTitle - 1))
 		for i = 1,#choices do
 			printC(offX,offY + i,rcmList.txt,rcmList.back," "..choices[i]..string.rep(" ",width - #choices[i] - 1))
 		end
 	end
 
 	while true do
 		reDrawer()
 		local event = {os.pullEvent()}
 		if event[1] == "mouse_click" then
 			if event[2] == 1 then -- event[3] = x event[4] = y
 				if event[4] > offY and event[4] < hight + offY and event[3] >= offX and event[3] < width + offX then
 					--dialogBox("ERROR:",type(tList[choices[event[4] - offY]]),{"ok"})
 					if type(tList[choices[event[4] - offY]]) == "function" then
 						return tList[choices[event[4] - offY]](tItem)
 					elseif type(tList[choices[event[4] - offY]]) == "table" then
 						return rClickMenu("Options",tList[choices[event[4] - offY]],tItem,event[3],event[4])
 					elseif type(tList[choices[event[4] - offY]]) == "string" then
 						return osRunSpaces(
 								unpack(
 									fixArgs(
 										tList[choices[event[4] - offY]].." \""..stringPath()..fSlash..tItem.n.."\""
 									)
 								)
 							)
 					else
 						dialogBox("ERROR:","somthing up with new rMenu",{"ok"})
 					end
 				else
 					return
 				end
 			elseif event[2] == 2 then
 				return
 			end
 		end
 	end
 
 end
 
 local function preferences()
 	local tItem = {
 		{txt = "Title Bar",it = titleBar},
 		{txt = "Address Bar",it = addressBar},
 		{txt = "Item Windo", it = itemWindo},
 		{txt = "Title Right Click Title",it = rcmTitle},
 		{txt = "Right Click Menu",it = rcmList},
 		{txt = "Title Dialog Box",it = dialogTitle},
 		{txt = "Dialog Box",it = dialogWindo},
 		{txt = "Scroll Bar",it = scrollCol}
 	}
 	local topL,topR = 13,5
 	local width,hight = 23,6
 	local bottomL,bottomR = topL + width,topR + hight
 
 	local listOffset = 0
 	local sel = 1
 	local otherSel = 1
 	local otherItems = {}
 
 	if tItem[sel] then
 		for k,v in pairs(tItem[sel].it) do
 			table.insert(otherItems,{txt = k,it = v})
 		end
 	end
 
 	local function draw()
 		printC(topL,topR,titleBar.txt,titleBar.back,string.sub(" Preferences "..string.rep(" ",width),1,width))
 		for i = 0,12,4 do
 			for a = 1,4 do
 				--printC(topL + (a*12)-12 ,topR + ((i+4)/4),4,2^(a+i-1)," "..tostring(2^(a+i-1)))
 				printC(topL + a-1 ,topR + ((i+4)/4),4,2^(a+i-1)," ")
 			end
 		end
 		local sSel = " "
 		for i = 1,hight - 2 do
 			if i == sel - listOffset then
 				sSel = ">"
 			end
 			if tItem[i+listOffset] then
 				printC(topL + 4 ,topR + i,colors.black,colors.white,string.sub(sSel..tItem[i+listOffset].txt..string.rep(" ",width),1,width - 4))
 			else
 				printC(topL + 4 ,topR + i,colors.black,colors.white,sSel..string.rep(" ",width-5))
 			end
 			if i == sel - listOffset then
 				sSel = " "
 			end
 		end
 		term.setCursorPos(topL,topR + hight - 1)
 		local loop = 1
 		local length = 0
 			for i = 1,#otherItems do
 				if otherSel == i then
 					sSel = ">"
 				end
 				if colors.black == otherItems[i].it or colors.gray == otherItems[i].it then
 					term.setTextColor(colors.white)
 				else
 					term.setTextColor(colors.black)
 				end
 				term.setBackgroundColor(otherItems[i].it)
 				term.write(sSel..tostring(otherItems[i].txt).." ")
 				length = length + #otherItems[i].txt + 2
 				if otherSel == i then
 					sSel = " "
 				end
 				loop = loop+1
 			end
 		term.setBackgroundColor(colors.white)
 		term.write(string.rep(" ",width - length))
 	end
 	while true do
 		draw()
 		local event = {os.pullEvent()}
 		if event[1] == "mouse_click" and event[2] == 1 then
 			if inBouwndry(event[3],event[4],topL,topR,width,hight) then
 				local inSideX,inSideY = event[3] - topL,event[4] - topR
 				if inBouwndry(inSideX+1,inSideY,1,1,4,4) and tItem[sel] then
 					--[[
 					term.setCursorPos(1,1)
 					term.setBackgroundColor(2^(inSideX + ((inSideY*4)-4)))
 					print(2^(inSideX + ((inSideY*4)-4))," ",inSideX + ((inSideY*4)-4),"     ")
 					]]--
 					tItem[sel]["it"][otherItems[otherSel].txt] = (2^(inSideX + ((inSideY*4)-4)))
 				end
 			end
 		elseif event[1] == "key" then
 			if event[2] == 200 then
 				sel = sel - 1
 			elseif event[2] == 208 then
 				sel = sel + 1
 			elseif event[2] == 203 then
 				otherSel = otherSel - 1
 			elseif event[2] == 205 then
 				otherSel = otherSel + 1
 			elseif event[2] == 28 then
 				if dialogBox("Confirm","Save prefrences?",{"Yes","No"}) == 1 then
 					saveCFG(true)
 				end
 				return
 			end
 		end
 		if sel < 1 then
 			sel = 1
 		elseif sel > #tItem then
 			sel = #tItem
 		end
 		if sel > listOffset + hight - 2 then
 			listOffset = listOffset + 1
 		elseif sel - listOffset < 1 then
 			listOffset = listOffset - 1
 		end
 
 		otherItems = {}
 		if tItem[sel] then
 			for k,v in pairs(tItem[sel].it) do
 				table.insert(otherItems,{txt = k,it = v})
 			end
 		end
 
 		if otherSel < 1 then
 			otherSel = 1
 		elseif otherSel > #otherItems then
 			otherSel = #otherItems
 		end
 
 		if bugTest then
 			term.setBackgroundColor(colors.black)
 			term.setTextColor(colors.white)
 			term.setCursorPos(1,1)
 			term.clearLine()
 			term.write("sel "..sel.." offset "..listOffset)
 		end
 	end
 end
 
 local function fileSelect(mode) -- save_file open_file browse < not yet implemented
 
 	local title = sTitle.." "..ver
 	local bRun = true
 	local clipboard = nil
 	local cut = false
 
 	local termX,termY = term.getSize()
 	local offsetX,offsetY = 1,1
 	local hight,width = math.ceil(termY-2),math.ceil(termX-2)
 	local oldHight,oldWidth
 
 	-- offsets
 	local boxOffX,boxOffY = offsetX,offsetY + 2
 	local boxH,boxW = hight - 2 ,width - 2
 
 	local barX,barY = offsetX + 1,offsetY + 2
 	local barH,barW = 1,width - 1
 
 	local tbarX,tbarY = offsetX + 1,offsetY + 1
 	local tbarH,tbarW = 1,width - 1
 
 	local exitX,exitY = offsetX + width - 1 ,offsetY + 1
 
 	local pading = string.rep(" ",boxW)
 	local list
 
 	local listOff = 0
 
 	local sPath
 	local tItemList = {}
 
 	local function newList()
 		listOff = 0
 		flag = true
 		tItemList = {{n = "..", id = "back"}} -- adds a back item at top of list
 		sPath = stringPath()
 		local folders = {}
 		local files = {}
 		local disks = {}
 		if not fs.exists(sPath) then
 			path = {}
 			sPath = stringPath()
 			dialogBox("ERROR:","Path no longer exists",{"ok"})
 		end
 		local test,list = pcall(fs.list,sPath) -- stopes fs.list crash
 		if list == nil then
 			list = {}
 			dialogBox("ERROR : ","fs.list crashed",{"ok"})
 		end
 		if #path == 0 then
 			for i,v in pairs(rs.getSides()) do
 				if disk.isPresent(v) then
 					if disk.hasData(v) then
 						table.insert(tItemList,{n = disk.getMountPath(v), id = "disk",s = v})
 						disks[disk.getMountPath(v)] = true
 					elseif disk.hasAudio(v) then
 						table.insert(tItemList,{n = disk.getAudioTitle(v), id = "audio",s = v})
 					end
 				end
 			end
 		end
 		for i,v in pairs(list) do
 			if fs.isDir(sPath..fSlash..v) then
 				table.insert(folders,v)
 			else
 				table.insert(files,v)
 			end
 		end
 		table.sort(folders)
 		table.sort(files)
 		for i,v in pairs(folders) do
 			if disks[v] == nil then
 				table.insert(tItemList,{n = v, id = "folder"})
 			end
 		end
 		for i,v in pairs(files) do
 			table.insert(tItemList,{n = v, id = "file"})
 		end
 	end
 
 	local function paste()
 		if cut then
 			local s, m = pcall(
 				function()
 					fs.move(clipboard[1]..fSlash..clipboard[2], stringPath()..fSlash..clipboard[2])
 					cut = false
 					clipboard = nil
 				end)
 			if not s then
 				dialogBox("Error", (m or "Couldn't move"), {"ok"}, 4, 30)
 			end
 			if bugTest then
 				local x, y = term.getCursorPos()
 				term.setCursorPos(1, ({term.getSize()})[2])
 				write("from "..clipboard[1]..fSlash..clipboard[2].." to "..stringPath()..fSlash..clipboard[2])
 			end
 		else
 			local s, m = pcall(function()
 				if fs.exists(stringPath()..fSlash..clipboard[2]) then
 					fs.copy(clipboard[1]..fSlash..clipboard[2], stringPath()..fSlash.."copy-"..clipboard[2])
 				else
 					fs.copy(clipboard[1]..fSlash..clipboard[2], stringPath()..fSlash..clipboard[2])
 				end
 			end)
 			if not s then
 				dialogBox("Error", (m or "Couldn't copy"), {"ok"}, 4, 30)
 			end
 			if bugTest then
 				local x, y = term.getCursorPos()
 				term.setCursorPos(1, ({term.getSize()})[2])
 				write("from "..clipboard[1]..fSlash..clipboard[2].." to "..stringPath()..fSlash..clipboard[2])
 			end
 		end
 		newList()
 	end
 
 	-- this section below handles the right click menu
 
 	local tmenu = {
 		disk = {
 			["Open"] = function(tItem)
 				table.insert(path,tItem.n)
 				newList()
 			end,
 			["Copy"] = function(tItem)
 				clipboard = {stringPath(), tItem.n}
 				cut = false
 			end,
 			["Eject"] = function(tItem)
 				if dialogBox("Confirm","Eject "..fSlash..tItem.n.." "..tItem.s,{"yes","no"}) == 1 then
 					disk.eject(tItem.s)
 					newList()
 				end
 			end,
 			["ID label"] = function(tItem)
 				dialogBox("ID label",disk.getDiskID(tItem.s).." "..tostring(disk.getLabel(tItem.s)),{"ok"})
 			end,
 			["Set label"] = function(tItem)
 				local name = InputBox("Label?")
 				if name then
 					disk.setLabel(tItem.s,name)
 				end
 			end,
 			["Clear label"] = function(tItem)
 				if dialogBox("Confirm","Cleal Label from "..tItem.s,{"yes","no"}) == 1 then
 					disk.setLabel(tItem.s)
 				end
 			end
 		},
 		folder = {
 			["Open"] = function(temp)
 				table.insert(path,temp.n)
 				newList()
 			end,
 			["Copy"] = function(tItem)
 				clipboard = {stringPath(), tItem.n}
 				cut = false
 			end,
 			["Cut"] = function(tItem)
 				clipboard = {stringPath(), tItem.n}
 				cut = true
 			end,
 			["Delete"] = function(tItem)
 				if dialogBox("Confirm","Delete "..tItem.id.." "..tItem.n,{"yes","no"}) == 1 then
 					if fs.isReadOnly(stringPath()..fSlash..tItem.n) then
 						dialogBox("ERROR",tItem.id.." Is read Only",{"ok"})
 					else
 						fs.delete(stringPath()..fSlash..tItem.n)
 						newList()
 					end
 				end
 			end,
 			["Rename"] = function(tItem)
 				local sName = InputBox("New Name")
 				if type(sName) == "string" and sName ~= "" then
 					local s, m = pcall(function()
 						fs.move(stringPath()..fSlash..tItem.n,stringPath()..fSlash..sName)
 					end)
 					if not s then
 						dialogBox("Error", (m or "Rename failed"), {"ok"})
 					end
 				end
 				newList()
 			end
 		},
 		file = {
 			["Run"] = {
 				["Run"] = function(tItem)
 					osRunSpaces(stringPath()..fSlash..tItem.n)
 				end,
 				["Run CMD"] = function(tItem)
 					local cmd = InputBox("Commands")
 					if cmd then
 						osRunSpaces(stringPath()..fSlash..tItem.n,unpack(fixArgs(cmd)))
 					end
 				end,
 			},
 			["Open With"] = customLaunch,
 			["Rename"] = function(tItem)
 				local sName = InputBox("New Name")
 				if type(sName) == "string" and sName ~= "" then
 					local s, m = pcall(function()
 						fs.move(stringPath()..fSlash..tItem.n,stringPath()..fSlash..sName)
 					end)
 					if not s then
 						dialogBox("Error", (m or "Rename failed"), {"ok"})
 					end
 				end
 				newList()
 			end,
 			["Delete"] = function(tItem)
 				if dialogBox("Confirm","Delete "..tItem.id.." "..tItem.n,{"yes","no"}) == 1 then
 					if fs.isReadOnly(stringPath()..fSlash..tItem.n) then
 						dialogBox("ERROR",tItem.id.." Is read Only",{"ok"})
 					else
 						fs.delete(stringPath()..fSlash..tItem.n)
 						newList()
 					end
 				end
 			end,
 			["Cut"] = function(tItem)
 				clipboard = {stringPath(), tItem.n}
 				cut = true
 			end,
 			["Copy"] = function(tItem)
 				clipboard = {stringPath(), tItem.n}
 				cut = false
 			end
 		},
 		audio = {
 			["Play"] = 1,
 			["Eject"] = 1
 		},
 		back = {
 		},
 		blank = { -- tmenu.blank.Paste =
 			["Paste"] = nil,
 			["New File"] = function()
 				local name = InputBox()
 				if name then
 					if fs.exists(stringPath()..fSlash..name) then
 						dialogBox("ERROR","Name exists",{"ok"})
 					else
 						local file = fs.open(stringPath()..fSlash..name,"w")
 						if file then
 							file.write("")
 							file.close()
 							newList()
 						else
 							dialogBox("ERROR","File not created",{"ok"})
 						end
 					end
 				end
 			end,
 			["New Folder"] = function()
 				local name = InputBox()
 				if name then
 					if fs.exists(stringPath()..fSlash..name) then
 						dialogBox("ERROR","Name exists",{"ok"})
 					else
 						if pcall(fs.makeDir,stringPath()..fSlash..name) then
 							newList()
 						else
 							dialogBox("ERROR","Access Denied",{"ok"})
 						end
 					end
 				end
 			end,
 			["Preferences"] = preferences
 		},
 	}
 
 	-- end right click menu
 
 	local function scrollBar(posX,posY)
 		if posX == boxOffX+boxW+1 and posY > boxOffY and posY <= boxOffY+boxH then
 			if #tItemList > boxH then
 				if posY == boxOffY + 1 then
 					listOff = 0
 				elseif posY == boxOffY+boxH then
 					listOff = #tItemList + 1 - boxH
 				else
 					listOff = math.ceil((posY - boxOffY - 1 )*(((#tItemList - boxH+2)/boxH)))
 				end
 				flag = true
 			end
 		end
 	end
 
 	newList()
 
 	while bRun do
 		if flag then
 			flag = false
 			-- clear
 			if oldHight ~= hight and oldWidth ~= width then
 				term.setBackgroundColor(colors.black)
 				term.clear()
 				oldHight,oldWidth = hight,width
 			end
 			-- draw top title bar
 			local b = tbarW - #title -2
 			if b < 0 then
 				b = 0
 			end
 			printC(tbarX,tbarY,titleBar.txt,titleBar.back,string.sub(" "..title,1,tbarW)..string.rep(" ",b))
 			term.setTextColor(colors.white)
 			term.setBackgroundColor(colors.red)
 			term.write("X")
 
 			-- draw location bar
 			local a = barW - #sPath - 1
 			if a < 0 then
 				a = 0
 			end
 			local tmppath = sPath
 			if shell and shell.getDisplayName then
 				tmppath = shell.getDisplayName(sPath)
 				--dialogBox("yay")
 			else
 				--dialogBox("moop")
 			end
 			tmppath = tmppath or sPath
 			local a = barW - #tmppath - 1
 			if a < 0 then
 				a = 0
 			end
 			printC(barX,barY,addressBar.txt,addressBar.back,string.sub(" "..tmppath,1,barW)..string.rep(" ",a))
 
 			-- draw scroll bar
 			if #tItemList > boxH then
 				term.setBackgroundColor(scrollCol.back)
 				for i = 1,boxH do
 					term.setCursorPos(boxOffX+boxW+1,i + boxOffY)
 					local scroll = math.floor( boxH* (listOff/(#tItemList-boxH+2)) )+1
 					if i == scroll then
 						term.setBackgroundColor(scrollCol.button)
 						term.write(" ")
 						term.setBackgroundColor(scrollCol.back)
 					else
 						term.write(" ")
 					end
 				end
 			else
 				term.setBackgroundColor(scrollCol.off)
 				for i = 1,boxH do
 					term.setCursorPos(boxOffX+boxW+1,i + boxOffY)
 					term.write(" ")
 				end
 			end
 
 			-- draw main section
 
 			for i = 1,boxH do -- listOff
 				local sel = i+listOff
 				if tItemList[sel] then
 					printC(1+boxOffX,i+boxOffY,(tIcons[tItemList[sel].id].tCol or itemWindo.txt),(tIcons[tItemList[sel].id].bCol or itemWindo.back),( tIcons[tItemList[sel].id].txt or "   "))
 					printC(4+boxOffX,i+boxOffY,itemWindo.txt,itemWindo.back,string.sub(" "..tItemList[sel].n..pading,1,boxW-3))
 				else
 					printC(1+boxOffX,i+boxOffY,itemWindo.txt,itemWindo.back,pading)
 				end
 			end
 
 			if bugTest then
 				printC(1,1,"black","white",listOff.." "..boxOffY.." "..boxH)
 			end
 
 		end
 
 		-- react to events
 		local event = {os.pullEvent()}
 
 		if event[1] == "mouse_click" then
 			if inBouwndry(event[3],event[4],boxOffX+1,boxOffY+1,boxW,boxH) then
 				local selected = tItemList[event[4]+listOff-boxOffY]
 				if selected and inBouwndry(event[3],event[4],boxOffX+1,event[4],#selected.n + 4,1) then
 					if event[2] == 1 then -- left mouse
 						if selected.id == "back" then
 							table.remove(path,#path)
 							newList()
 						elseif selected.id == "folder" or selected.id == "disk" then
 							table.insert(path,selected.n)
 							newList()
 						elseif selected.id == "file" then
 							if dialogBox("Run file ?",selected.n,{"yes","no"}) == 1 then
 								osRunSpaces(stringPath()..fSlash..selected.n)
 							end
 						flag = true
 						end
 					elseif event[2] == 2 then -- right mouse
 						rClickMenu("Options",tmenu[selected.id],selected,event[3],event[4])
 						flag = true
 					end
 				elseif event[2] == 2 then -- right clicking not on object
 					if clipboard then
 						tmenu.blank.Paste = paste
 					else
 						tmenu.blank.Paste = nil
 					end
 					rClickMenu("Options",tmenu["blank"],selected,event[3],event[4])
 					flag = true
 				end
 			elseif event[2] == 1 and event[3] == exitX and event[4] == exitY then
 				if dialogBox("Confirm","Exit application",{"yes","no"}) == 1 then
 					bRun = false
 				end
 				flag = true
 			elseif event[2] == 1 then
 				scrollBar(event[3],event[4])
 			end
 		elseif event[1] == "mouse_scroll" then -- flag this needs new math
 			local old = listOff
 			listOff = listOff + event[2]
 			if listOff < 0 then
 				listOff = 0
 			end
 			if #tItemList + 1 - boxH > 0 and listOff > #tItemList + 1 - boxH then
 				listOff = #tItemList + 1 - boxH
 			elseif listOff > 0 and #tItemList + 1 - boxH < 0 then
 				listOff = 0
 			end
 			if listOff ~= old then
 				flag = true
 			end
 
 		elseif event[1] == "mouse_drag" then -- scroll bar
 			scrollBar(event[3],event[4])
 		elseif event[1] == "disk" or event[1] == "disk_eject" then
 			newList()
 		elseif event[1] == "window_resize" then
 			termX,termY = term.getSize()
 			offsetX,offsetY = 1,1
 			hight,width = math.ceil(termY-2),math.ceil(termX-2)
 
 			boxOffX,boxOffY = offsetX,offsetY + 2
 			boxH,boxW = hight - 2 ,width - 2
 
 			barX,barY = offsetX + 1,offsetY + 2
 			barH,barW = 1,width - 1
 
 			tbarX,tbarY = offsetX + 1,offsetY + 1
 			tbarH,tbarW = 1,width - 1
 
 			exitX,exitY = offsetX + width - 1 ,offsetY + 1
 			pading = string.rep(" ",boxW)
 
 			flag = true
 		elseif event[1] == "redraw" then
 			flag = true
 		end
 	end
 end
 
 local function main()
 	if term.isColor() then
 		clear()
 		fileSelect()
 		clear()
 	else
 		error("Not an Advanced Computer")
 	end
 end
 
 local trash = (norun or main())