Direwolf20 Button API

-- Yorinar's adaptation of DW20's button code

local mon = peripheral.find("monitor")

mon.setTextScale(1)
mon.setTextColor(colors.white)
local button = {}
mon.setBackgroundColor(colors.black)

local registeredEvents = {}

function clearTable()
  button = {}
end

function clearRegisteredEvents()
  registeredEvents = {}
end

function setButton(name, buttonOn)
  print(name)
  print(button[name]["active"])
  button[name]["active"] = buttonOn
  screen()
end

function setTable(name, func, param, xmin, xmax, ymin, ymax)
  button[name] = {}
  button[name]["func"] = func
  button[name]["active"] = false
  button[name]["param"] = param
  button[name]["xmin"] = xmin
  button[name]["ymin"] = ymin
  button[name]["xmax"] = xmax
  button[name]["ymax"] = ymax
end

function funcName()
  print("You clicked buttonText")
end

function fillTable()
  setTable("ButtonText", funcName, 5, 25, 4, 8)
end

function fill(text, color, bData)
  mon.setBackgroundColor(color)
  local yspot = math.floor((bData["ymin"] + bData["ymax"]) /2)
  local xspot = math.floor((bData["xmax"] - bData["xmin"] - string.len(text)) /2) +1
  for j = bData["ymin"], bData["ymax"] do
    mon.setCursorPos(bData["xmin"], j)
    if j == yspot then
      for k = 0, bData["xmax"] - bData["xmin"] - string.len(text) +1 do
        if k == xspot then
          mon.write(text)
        else
          mon.write(" ")
        end
      end
    else
      for i = bData["xmin"], bData["xmax"] do
        mon.write(" ")
      end
    end
  end
  mon.setBackgroundColor(colors.black)
end

function screen()
  local currColor
  for name,data in pairs(button) do
    local on = data["active"]
    if on == true then currColor = colors.lime else currColor = colors.red end
    fill(name, currColor, data)
  end
end

function toggleButton(name)
  button[name]["active"] = not button[name]["active"]
  screen()
end

function flash(name)
  toggleButton(name)
  screen()
  sleep(0.15)
  toggleButton(name)
  screen()
end

function checkxy(side, x, y)
  print("side: "..side.." x:"..x.." y:"..y)
  for name, data in pairs(button) do
    if y >= data["ymin"] and y <= data["ymax"] then
      if x >= data["xmin"] and x <= data["xmax"] then
        if data["param"] == "" then
          data["func"]()
        else
          data["func"](data["param"])
        end

        return true
      end
    end
  end

  return false
end

function heading(text)
  w, h = mon.getSize()
  mon.setCursorPos((w-string.len(text))/2+1, 1)
  mon.write(text)
end

function label(w, h, text)
  mon.setCursorPos(w, h)
  mon.write(text)
end

function addEvent(event, func)
  registeredEvents[event]  = func
  print("registered event: "..event)
end

function screenEventLoop()
  local osEventArgs, event, args, rEventFunc

  if registeredEvents['monitor_touch'] == nil then
    addEvent('monitor_touch', checkxy)
  end

  mon.clear()
  screen()

  repeat
    osEventArgs = { os.pullEvent() }
    event = osEventArgs[1]

    print("Event: "..event)

    args = {}
    for i = 2, #osEventArgs do
      table.insert(args, osEventArgs[i])
    end

    if registeredEvents[event] then
      rEventFunc = registeredEvents[event]
      rEventFunc(unpack(args))
    end

  until event == 'stop_event_loop'
end