Window Manager

os.loadAPI("redirect")
os.loadAPI("goroutine")
function drawWindows()
term.clear()
for name, v in pairs(windowsdata) do
  x = windowsdata[name]["x"]-1
  y = windowsdata[name]["y"]-1
  w = windowsdata[name]["w"]+1
  h = windowsdata[name]["h"]+1
  wx = w+x
  running = windowsdata[name]["running"]
  dl = paintutils.drawLine
  dp = paintutils.drawPixel
  dl(x, y, wx, y, colors.blue)
  dl(x, h+y, wx, h+y, colors.blue)
  dl(x, y, x, h+y, colors.blue)
  dl(wx, y, wx, h+y)
  dp(wx, y, colors.red)
  dp(wx-1, y, colors.lightBlue)
  y1 = y
  x = nil
  w = nil
  h = nil
  x, y = term.getCursorPos()
  term.setCursorPos(wx-1, y1)
  term.write("DX")
  term.setCursorPos(x, y)
  y = nil
  wx = nil
  y1 = nil
  windows[name].makeActive(windowsdata[name]["x"], windowsdata[name]["y"])
end
end
function drag(name, x, y)
windowsdata[name]["x"] = x
windowsdata[name]["y"] = y
drawWindows()
end
function close(name)
goroutine.kill("windows - "..name)
windows[name] = nil
windowsdata[name] = nil
drawWindows()
end
function handleEvents()
while true do
  evt, p1, p2, p3 = os.pullEventRaw()
  for k, v in pairs(windowsdata) do
   if evt=="mouse_click" then
    if p1==v["w"] and p2==v["y"] then
	 close(k)
    elseif p1==v["w"]-1 and p2==v["y"] then
	 while true do
	  evt2, a1, a2 = os.pullEventRaw()
	  if evt2=="mouse_click" then break end
	  if evt2=="mouse_drag" then drag(k, a1, a2) end
	 end
    end
   end
  end
end
end
function runactual(name)
shell.run(windowsdata[name]["program"])
drawWindows()
end
function run(name)
for k, v in pairs(windowsdata) do
  if k==name then
   v["running"] = true
   goroutine.spawnWithRedirect("windows - "..name,run,windows[k],name)
  end
end
end
windows = {}
windowsdata = {}
function createWindow(name, w, h, x, y, prog)
windows[name] = redirect.createRedirectBuffer(w,h, nil, nil, true)
windowsdata[name]["x"] = x
windowsdata[name]["y"] = y
windowsdata[name]["w"] = w
windowsdata[name]["h"] = h
windowsdata[name]["program"] = prog
windowsdata[name]["running"] = false
end
paintutils.setBackgroundColor(colors.lightBlue)
term.clear()
while true do
term.setCursorPos(1,1)
print("#")
paintutils.drawPixel(1,1, colors.red)
evt, p1, p2 = os.pullEventRaw()
if evt=="mouse_click" and p1==1 and p2==1 then
  term.setCursorPos(1,2)
  b = read() or "rom/programs/shell"
  term.clear()
  a = a+1 or 1
  createWindow(a, 10, 10, 10, 10, B)/>
  run(a)
  drawWindows()
end
end

AnDwHaT5, on 22 February 2013 - 10:16 AM said:

Dropbox please