Multitasking kernel draws windows at wrong moments

--[[
TheOS Kernel
by Creator
for OmniOS &
you to learn
from it! (Yeah learn, rather become dumber)
theoriginalbit
also gets credit for
his safePairs function.
Lots of thanks to BombBloke too for
finalizing and bug fixing it.
]]--


--[[::VARIABLES::]]--
local logMessage = ""
local newRoutine = ""
local history = {}
local w,h = term.getSize()
local monitors = {}
local currTerm, routines, activeRoutine, eventBuffer = term.current(), {}, "", {}
local eventFilter = {["key"] = true, ["mouse_click"] = true, ["paste"] = true,["char"] = true, ["terminate"] = true, ["mouse_scroll"] = true, ["mouse_drag"] = true}

local function safePairs(t)
  local keys = {}
  for k,v in pairs(t) do
keys[#keys+1] = k
  end
  local i = 0
  return function()
i = i + 1
return keys[i], t[keys[i]]
  end
end

local function drawClosed()
paintutils.drawLine(w,1,w,h,colors.black)
term.setTextColor(colors.white)
term.setBackgroundColor(colors.black)
term.setCursorPos(w,h/2+2)
term.write("<")
end

--[[local function switch()
if routines[newRoutine] and not newRoutine == "" then
routines[activeRoutine].window.setVisible( false )
activeRoutine = newRoutine
routines[activeRoutine].window.setVisible(true)
newRoutine = ""
end
end]]--

local function drawOpen()
term.setCursorBlink(false)
paintutils.drawFilledBox(w-15,1,w,h,colors.black)
local xVsProcess, curr = {}, 1
term.setTextColor(colors.white)
for i,v in pairs(routines) do
paintutils.drawLine(w-15,curr*2,w,curr*2,i == activeRoutine and colours.blue or colours.black)
paintutils.drawLine(w-15,curr*2+1,w,curr*2+1,i == activeRoutine and colours.blue or colours.black)
term.setBackgroundColour(i == activeRoutine and colours.blue or colours.black)
term.setCursorPos(w-14,curr*2)
term.write("x "..v.title)
term.setCursorPos(w-12,curr*2+1)
term.write(coroutine.status(v.routine))
xVsProcess[curr*2] = i
curr = curr + 1
end

while true do
local evnt = {os.pullEventRaw()}
log.log("Close",xVsProcess[evnt[4]])
if evnt[1] == "mouse_click" then
if w-12 <= evnt[3] and evnt[3] <= w then
if xVsProcess[evnt[4]] then
routines[activeRoutine].window.setVisible(false)
--term.redirect(currTerm)
log.log("Multitask","Current: "..activeRoutine.." New: "..xVsProcess[evnt[4]])
activeRoutine = xVsProcess[evnt[4]]
term.redirect(routines[activeRoutine].window)
routines[activeRoutine].window.setVisible(true)
routines[activeRoutine].window.redraw()
term.redirect(currTerm)
return
end
elseif w-14 == evnt[3] then
if xVsProcess[evnt[4]] and xVsProcess[evnt[4]] ~= "Debug1" then
if activeRoutine == xVsProcess[evnt[4]] then
activeRoutine = "Debug1"
routines[activeRoutine].window.setVisible(true)
end
routines[xVsProcess[evnt[4]]] = nil
return
end
else return end
else eventBuffer[#eventBuffer+1] = evnt end
end
end

local function checkIfDead(routine)
if coroutine.status(routines[routine].routine) == "dead" then
routines[routine] = nil
if routine == activeRoutine then
activeRoutine = "Debug1"
routines[activeRoutine].window.setVisible(true)
end
return true
else return false end
end

Kernel = {}

function Kernel.newRoutine(name,title,func,permission,tParent,...)
if tParent == term or tParent == term.current() or tParent == "term" then
tParent = term.current()
else
if monitors[tParent] then
log.log("Processes/Mon","A program is using the monitor!")
return "A program is using the monitor!"
end
if not peripheral.isPresent(tParent) then
log.log("Processes/Mon","The monitor does not exist!")
return "The monitor does not exist!"
end
if not peripheral.getType(tParent) == "monitor" then
log.log("Processes/Mon","The peripheral is not a monitor!")
return "The peripheral is not a monitor!"
end
monitors[tParent] = true
end
log.log("System","Launching task "..name..". By kernel")
local oldName = name
do
local tries = 1
while routines[name .. tries] do tries = tries + 1 end
name = name .. tries
end
if permission == "userTest" then
log.log("Env","Launching task "..name..": adding environment. By kernel")
local env = Sandbox.newEnv(oldName)
log.log("Env","Environment was successful")
setfenv(func,env)
end

routines[name] = {
["title"] = title,
["permission"] = permission,
["path"] = path,
["routine"] = coroutine.create(func),
["window"] = (tParent == term or tParent == term.current()) and OmniWindow.create(tParent,1,1,w-1,h,true) or OmniWindow.create(peripheral.wrap(tParent),1,1,w-1,h,true),
["filter"] = "",
["parent"] = (tParent == term or tParent == term.current()) and "term" or "mon",
}

--Run it!
if routines[activeRoutine] then
routines[activeRoutine].window.setVisible(false)
term.redirect(currTerm)
term.redirect(routines[name].window)
routines[name].window.setVisible(false)
logMessage, routines[name].filter = coroutine.resume(routines[name].routine,...)
if not logMessage then
log.log(name,"Error: "..tostring(routines[name].filter),name)
end
term.redirect(currTerm)
checkIfDead(name,"term")
term.redirect(routines[activeRoutine].window)
routines[activeRoutine].window.setVisible(true)
routines[activeRoutine].window.redraw()
else
activeRoutine = name
term.redirect(routines[activeRoutine].window)
routines[activeRoutine].window.setVisible(true)
logMessage, routines[activeRoutine].filter = coroutine.resume(routines[activeRoutine].routine,...)
if not logMessage then
log.log(activeRoutine,"Error: "..tostring(routines[activeRoutine].filter),activeRoutine)
end
term.redirect(currTerm)
checkIfDead(activeRoutine,"term")
end
end

function Kernel.getPermission(program)
return routines[program].permission or "Not a valid program"
end

function Kernel.kill(thread)
if thread == "Debug1" then
return "Cannot kill debug, instead use kill !zygote"
else
if thread == activeRoutine then
activeRoutine = "Debug1"
routines[activeRoutine].window.setVisible(true)
end
routines[thread] = nil
end
end

function Kernel.getScreen(routine)
return routines[routine] and routines[routine].window.getBuffer() or false
end

function Kernel.list()
local buffer = {}
for i,v in pairs(routines) do
buffer[#buffer+1] = i
end
return buffer
end

function Kernel.switch(newTask)
newRoutine = newTask
end

drawClosed()

Kernel.newRoutine(...)

while true do
--switch()
local event = #eventBuffer == 0 and {os.pullEventRaw()} or table.remove(eventBuffer,1)
if fs.exists("OmniOS/Drivers/"..event[1]..".lua") then
local func = loadfile("OmniOS/Drivers/"..event[1]..".lua")
func(unpack(event))
routines[activeRoutine].window.redraw()
else
if (event[1] == "mouse_click" or event[1] == "monitor_touch") and event[3] == w then
drawOpen()
drawClosed()
routines[activeRoutine].window.redraw()
elseif eventFilter[event[1]] then
if routines[activeRoutine].filter == nil or routines[activeRoutine].filter == "" or routines[activeRoutine].filter == event[1] then
term.redirect(routines[activeRoutine].window)
logMessage, routines[activeRoutine].filter = coroutine.resume(routines[activeRoutine].routine,unpack(event))
if not logMessage then
log.log(activeRoutine,"Error: "..tostring(routines[activeRoutine].filter),activeRoutine)
end
term.redirect(currTerm)
checkIfDead(activeRoutine,"term")
end
else
for i,v in safePairs(routines) do
if routines[i] and routines[i].filter == event[1] or routines[i].filter == nil then
term.redirect(routines[i].window)
logMessage, routines[i].filter = coroutine.resume(routines[i].routine,unpack(event))
if not logMessage then
log.log(i,"Error: "..tostring(routines[i].filter),i)
end
term.redirect(currTerm)
checkIfDead(i,"term")
end
end
end
end
end

--[[
TheOS Kernel
by Creator
for TheOS &
you to learn
from it! (Yeah learn, rather become dumber)
theoriginalbit
also gets credit for
his safePairs function.
]]--
local args = {...}
local w,h = term.getSize()
local currTerm = term.current()
local routines = {}
local routinesToKill = {}
local activeRoutine = ""
local eventGlobal = true
local halfH = math.floor(h/2 +2)
local first = true
local function drawClosed()
paintutils.drawLine(w,1,w,h,colors.black)
term.setTextColor(colors.white)
term.setBackgroundColor(colors.black)
term.setCursorPos(w,halfH)
term.write("<")
end
local function safePairs(t)
  local keys = {}
  for k,v in pairs(t) do
	keys[#keys+1] = k
  end
  local i = 0
  return function()
	i = i + 1
	return keys[i], t[keys[i]]
  end
end
local function drawOpen()
paintutils.drawFilledBox(w-15,1,w,h,colors.black)
local xVsProcess = {}
local curr = 1
term.setTextColor(colors.white)
for i,v in pairs(routines) do
  term.setCursorPos(w-14,(curr*2))
  term.write("x "..v.title)
  term.setCursorPos(w-12,(curr*2)+1)
  term.write(coroutine.status(v.routine))
  xVsProcess[curr*2] = v.ID
  curr = curr + 1
end
local notH = true
local switchRoutine = false
local toDelete = false
while notH do
  evnt = {os.pullEventRaw("mouse_click")}
  if w-12 <= evnt[3] and evnt[3] <= w then
   print(event[3])
   if xVsProcess[evnt[4]] ~= nil then
	notH = false
	switchRoutine = true
   end
  elseif w-14 == evnt[3] then
   term.setCursorPos(evnt[3],evnt[4])
   print("yes")
   if xVsProcess[evnt[4]] ~= nil then
	print("himom")
	notH = false
	toDelete = true
   end
   os.pullEventRaw()
  else
   notH = false
  end
end
print(toDelete)
if switchRoutine then
  print(xVsProcess[evnt[4]])
  routines[activeRoutine].window.setVisible( false )
  print(activeRoutine)
  activeRoutine = xVsProcess[evnt[4]]
  routines[activeRoutine].window.setVisible(true)
elseif toDelete then
  if activeRoutine == xVsProcess[evnt[4]] then print("Changing "..xVsProcess[evnt[4]]) activeRoutine = "Desktop1" end
  if not xVsProcess[evnt[4]] == "Desktop1" then
   routines[xVsProcess[evnt[4]]] = nil
  end
  term.redirect(routines[activeRoutine].window)
  routines[activeRoutine].window.setVisible(true)
end
end
function newRoutine(name,title,func,permission,...)
name = name.."1"
if not routines[name] then
  local notUnique = true
  local tries = 1
  while notUnique do
   tries = tries + 1
   if routines[name] ~= nil then
	name = name:sub(1,-2)..tostring(tries)
   else
	notUnique = false
   end
  end
  local arguments = {...}
  routines[name] = {}
  routines[name].routine = coroutine.create(func)
  if first then
   routines[name].window = window.create(term.current(),1,1,w-1,h,true)
   activeRoutine = name
   first = false
  else
   routines[name].window = window.create(term.current(),1,1,w-1,h,false)
  end
  routines[name].title = title
  routines[name].ID = name
  routines[name].permission = permission
  routines[name].path = path
  --Run it!
  routines[activeRoutine].window.setVisible(false)
  activeRoutine = name
  term.redirect(routines[activeRoutine].window)
  routines[activeRoutine].window.setVisible(true)
  coroutine.resume(routines[activeRoutine].routine,unpack(arguments))
  term.redirect(currTerm)
end
end
local function checkIfDead(routine)
local wasDead = false
status = coroutine.status(routines[routine].routine)
print(routine.."."..status)
if status == "dead" then
  wasDead = true
  routines[activeRoutine].window.setVisible(false)
  routines[routine] = nil
  if routine == activeRoutine then activeRoutine = "Desktop1" end
  for i,v in pairs(routines) do print(i) end
  print("cow")
  os.pullEventRaw()
  routines[activeRoutine].window.setVisible(true)
end
return wasDead
end
local function main()
while true do
  routinesToKill = {}
  event = {os.pullEventRaw()}
  if (event[1] == "mouse_click" or event[1] == "monitor_touch") and event[3] == w then
   drawOpen()
   term.setBackgroundColor(colors.black)
   term.clear()
   drawClosed()
   routines[activeRoutine].window.redraw()
  elseif event[1] == "key" or event[1] == "mouse_click" or event[1] == "monitor_touch" or event[1] == "paste" or event[1] == "char" then
   checkIfDead(activeRoutine)
   term.redirect(routines[activeRoutine].window)
   routines[activeRoutine].window.redraw()
   coroutine.resume(routines[activeRoutine].routine,unpack(event))
   term.redirect(currTerm)
  else
   for i,v in safePairs(routines) do
	if not checkIfDead(i) then
	 term.redirect(routines[i].window)
	 coroutine.resume(routines[i].routine,unpack(event))
	 term.redirect(currTerm)
	end
   end
  end
end
end

drawClosed()
newRoutine(unpack(args))
main()