apps/nekos/helpers/menu.lua

return function(a,u)
  local helper = { App = a, Conns = {}, User = u }
  function helper:connect(e,c,t) self.Conns[#self.Conns+1]=self.App:connect(e,c,t or self) end
  function helper:destroy() for i,conn in ipairs(self.Conns) do self.App:disconnect(conn) end end
  function helper:build()
    self.Dragging = false
    self.Selection = nil
    self.Buttons = {}
    self:connect("mouse_click",self.handleMousePressed)
    self:connect("mouse_up",self.handleMouseReleased)
    self:connect("mouse_drag",self.handleMouseDragged)
    self:connect("term_resize",self.handleResize)
    self:connect("terminate", self.handleTerminate)
    self:handleResize()
  end

  function helper:handleTerminate()
    self.App:activate("login")
  end

  function helper:draw()
    term.setTextColor(system:getTextColor())
    term.setBackgroundColor(system:getBackgroundColor())
    term.clear()
    term.setCursorPos(1,1)

    local cx,cy = term.getCursorPos()
    local tc = term.getTextColor()
    local tb = term.getBackgroundColor()

    for code,app in pairs(app.Apps.Data) do
      if not app[4] then
        local icon = "/nekOS/Apps/"..code.."/icon.nfp"
        local image = paintutils.loadImage(fs.exists(icon) and icon or system:getMissingIcon())
        local x,y = math.min(math.max(app[1],1),self.Width-2),math.min(math.max(app[2],1),self.Height-2)
        paintutils.drawImage(image,x,y)
      end
    end

    for i,btn in ipairs(self.Buttons) do
      paintutils.drawFilledBox(btn[1],btn[2],btn[1]+btn[3]-1,btn[2]+btn[4]-1,btn[6])
      local textBtn = self.TextButtons[i]
      if textBtn then
        term.setCursorPos(btn[1],btn[2])
        term.setTextColor(textBtn[2])
        term.setBackgroundColor(btn[6])
        term.write(textBtn[1])
      end
    end

    term.setCursorPos(cx,cy)
    term.setTextColor(tc)
    term.setBackgroundColor(tb)

    term.blit("nekOS///","00000bde","77777777")
    term.write(" "..self.User.Username)
    term.setCursorPos(1,2)
  end

  function helper:handleResize()
    self.Width,self.Height = term.getSize()
    self.Buttons = {}
    self.TextButtons = {}

    self:addTextButton(self.Width,1,"X",function() os.queueEvent("terminate") end, colors.red, colors.black)
    self:addTextButton(self.Width-2,1,"> ",function() self.App:activate("term") end, colors.black, colors.white)
  end

  function helper.checkBB(x1,y1,x2,y2,x,y)
    return x >= x1 and x < x2 and y >= y1 and y < y2
  end

  function helper:addButton(x,y,w,h,s,b)
    self.Buttons[#self.Buttons+1] = {x,y,w,h,s,b}
    return #self.Buttons
  end

  function helper:addTextButton(x,y,i,s,b,c)
    local index = self:addButton(x,y,string.len(i),1,s,b)
    self.TextButtons[index] = {i,c}
    return index
  end

  function helper:handleMousePressed(b,mx,my)
    self.Selection = nil
    for code,app in pairs(app.Apps.Data) do
      if not app[4] then
        local x,y = math.min(math.max(app[1],1),self.Width-2),math.min(math.max(app[2],1),self.Height-2)
        if self.checkBB(x,y,x+3,y+3,mx,my) then self.Selection={code,x-mx,y-my} break end
      end
    end
  end

  function helper:handleMouseReleased(b,mx,my)
    if self.Dragging then
      self.Dragging = false
      app.Apps:save()
      return
    end

    for i,btn in ipairs(self.Buttons) do
      if self.checkBB(btn[1],btn[2],btn[1]+btn[3],btn[2]+btn[4],mx,my) then
        btn[5]()
        return
      end
    end

    for code,app in pairs(app.Apps.Data) do
      if not app[4] then
        local x,y = math.min(math.max(app[1],1),self.Width-2),math.min(math.max(app[2],1),self.Height-2)
        if self.checkBB(x,y,x+3,y+3,mx,my) then
          -- TODO: Execute app in new shell
          return
        end
      end
    end
  end

  function helper:handleMouseDragged(b,mx,my)
    self.Dragging = true
    if not self.Selection then return end
    local s = app.Apps[self.Selection[1]]
    s[1] = mx + self.Selection[2]
    s[2] = my + self.Selection[3]
  end

  return helper
end