Button API

mon = peripheral.wrap("top")
mon.clear()
mon.setCursorPos(1,1)
mon.setBackgroundColor(colors.black)
mon.setTextColor(colors.white)
local button = {}

function fillTable(name, xmin, xmax, ymin, ymax, text, func, color, draw)
    button[name] = {}
    button[name]["text"] = text
    button[name]["xmin"] = xmin
    button[name]["xmax"] = xmax
    button[name]["ymin"] = ymin
    button[name]["ymax"] = ymax
    button[name]["func"] = func
    button[name]["color"] = color
    button[name]["draw"] = draw
    button[name]["active"] = false
end

function createBox(name)
    tableData = button[name]
    currentY = tableData["ymin"]
    while currentY ~= tableData["ymax"]+1 do
        mon.setCursorPos(tableData["xmin"], currentY)
        for i = tableData["xmin"],tableData["xmax"] do
            mon.write(" ")
        end
        currentY = currentY +1
    end
end

function createButton(name)
    tableData = button[name]
    xLoc = tableData["xmin"] + (math.floor((tableData["xmax"] - tableData["xmin"] - string.len(tableData["text"])) / 2))
    yLoc = math.floor((tableData["ymax"]+tableData["ymin"])/2)
    if tableData["color"] == nil then
        if tableData["active"] == false then
            mon.setBackgroundColor(colors.red)
        elseif tableData["active"] == true then
            mon.setBackgroundColor(colors.lime)
        end
    else
        mon.setBackgroundColor(tableData["color"])
    end
    createBox(name)
    mon.setCursorPos(xLoc,yLoc)
    mon.write(tableData["text"])
    mon.setBackgroundColor(colors.black)
end

function centerText(y, text, color)
   width, height = mon.getSize()
   mon.setCursorPos((width-string.len(text))/2+1, y)
   mon.setTextColor(color)
   mon.write(text)
end

function title(text,titleColor)
    centerText(1, text, titleColor)
end

function createScreen(text,color)
    if text ~= nil then
        title(text,color)
    end
    for name,tableData in pairs(button) do
        if tableData["draw"] == true or tableData["draw"] == nil then
            createButton(name)
        end
    end
end

function checkClick(x,y)
    for name, tableData in pairs(button) do
        if tableData["draw"] == true or tableData["draw"] == nil then
            if x >= tableData["xmin"] and x <= tableData["xmax"] then
                if y >= tableData["ymin"] and y <= tableData["ymax"] then
                    tableData["func"](name)
                    break
                end
            end
        end
    end
end

function activateDraw(name)
    tableData = button[name]
    tableData["draw"] = true
end

function deActivateDraw(name)
    tableData = button[name]
    tableData["draw"] = false
end

function deActivateAllDraw()
    for name, tableData in pairs(button) do
        tableData["draw"] = false
    end
end

function activateAllDraw()
    for name, tableData in pairs(button) do
        tableData["draw"] = true
    end
end

function activate(name)
    tableData = button[name]
    tableData["active"] = true
end

function deActivate(name)
    tableData = button[name]
    tableData["active"] = false
end

function activateAll()
    for name, tableData in pairs(button) do
        tableData["active"] = true
    end
end

function deActivateAll()
    for name, tableData in pairs(button) do
        tableData["active"] = false
    end
end


function toggle(name)
    tableData = button[name]
    tableData["active"] = not tableData["active"]
    createScreen()
end

function pulse(name, dur)
    toggle(name)
    sleep(dur)
    toggle(name)
end

function changeColor(name, newColor)
    button[name]["color"] = newColor
end

function changePos(name, newMinX, newMaxX, newMinY, newMaxY)
    button[name]["xmin"] = newMinX
    button[name]["xmax"] = newMaxX
    button[name]["ymin"] = newMinY
    button[name]["ymax"] = newMaxY
end

function changeText(name,newText)
    button[name]["text"] = newText
end

function getText(name)
    return button[name]["text"]
end

function getColor(name)
    return button[name]["color"]
end