Apoc Browser

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())