Implement pages

gfx/element.lua

@@ -165,7 +165,7 @@ function Element:isVisible()
   return self.visible
 end
 
-function Element:setDirty()
+function Element:setDirty(fullInvalidate)
   self.dirty = true
 end
 

gfx/list.lua

@@ -66,6 +66,15 @@ function List:isHorizontal()
   return not self:isVertical()
 end
 
+function List:setDirty(fullInvalidate)
+  Element.setDirty(self, fullInvalidate)
+  if fullInvalidate then
+    for _,child in self.children do
+      child:setDirty(fullInvalidate)
+    end
+  end
+end
+
 function List:draw()
   local dirty = Element.draw(self)
   if dirty then

gfx/padding.lua

@@ -37,6 +37,13 @@ function Padding:draw()
   return false
 end
 
+function Padding:setDirty(fullInvalidate)
+  Element.setDirty(self, fullInvalidate)
+  if fullInvalidate then
+    self.element:setDirty(fullInvalidate)
+  end
+end
+
 function Padding:getPaddingLeft()
   return self.left
 end

itemcontroller.lua

@@ -70,15 +70,7 @@ local function loadState(fname, node)
 end
 
 
-local accessNode = Chest:fromPeripheral("minecraft:trapped_chest", true)
+local function itemList(groups, wBudget, onClick)
----@diagnostic disable-next-line: need-check-nil
-local controller = loadState(CACHE_FILE, accessNode:getInventory())
-local monitor = peripheral.find("monitor")
-
-local width, height = monitor.getSize()
-
-
-local function itemList(groups, wBudget)
   local bgColors = {
     colors.gray,
     colors.black
@@ -119,9 +111,7 @@ local function itemList(groups, wBudget)
         countLabel
       },
       vertical = false,
-      onClick = function(table, x, y, source)
+      onClick = onClick
-        print("Clicked: "..group:getDisplayName())
-      end
     }
     table.insert(entries, list)
   end
@@ -132,18 +122,79 @@ local function itemList(groups, wBudget)
   }
 end
 
-local found = ItemGroup.collectStacks(controller:find(function(stack)
+local function renderDefault(state, rootElement)
-  return not stack:isEmpty()
+  local event = {os.pullEvent()}
-end))
+  local handled = rootElement:handleEvent(event)
+  if not handled and event[1] == "monitor_resize" then
+    local width, height = state.monitor.getSize()
+    if state.width ~= width or state.height ~= height then
+      state.width = width
+      state.height = height
 
-table.sort(found, function(a, b) return a:getItemCount() > b:getItemCount() end)
+      -- Trigger re-render
+      rootElement:setDirty(true)
+    end
+  end
 
-local subset = {}
+  if not handled then
-for i=1,math.min(13, #found) do
+    os.queueEvent(table.unpack(event))
-  table.insert(subset, found[i])
+  end
 end
 
-local listResult = itemList(subset, width)
+local PAGES = {
+  MAIN = function(state)
+    local found = ItemGroup.collectStacks(state.controller:find(function(stack)
+      return not stack:isEmpty()
+    end))
 
-listResult:setParent(monitor)
+    table.sort(found, function(a, b) return a:getItemCount() > b:getItemCount() end)
-listResult:draw()
+
+    local subset = {}
+    for i=1,math.min(13, #found) do
+      table.insert(subset, found[i])
+    end
+
+    local listResult = itemList(subset, state.width, function(group, x, y, source)
+      print("Clicked: "..group:getDisplayName())
+    end)
+    listResult:setParent(state.monitor)
+
+    return function()
+      renderDefault(state, listResult)
+    end
+  end,
+
+  GROUP_DETAIL = function(state)
+
+  end,
+
+  REQUEST = function(state)
+
+  end
+}
+
+
+local accessNode = Chest:fromPeripheral("minecraft:trapped_chest", true)
+---@diagnostic disable-next-line: need-check-nil
+local controller = loadState(CACHE_FILE, accessNode:getInventory())
+local monitor = peripheral.find("monitor")
+local width, height = monitor.getSize()
+
+local CONTROLLER_STATE = {
+  controller = controller,
+  width = width,
+  height = height,
+  monitor = monitor,
+  currentPage = "MAIN",
+  exit = false
+}
+
+os.queueEvent("dummy_event")
+while not CONTROLLER_STATE.exit do
+  PAGES[CONTROLLER_STATE.currentPage](CONTROLLER_STATE)
+
+  if CONTROLLER_STATE.nextPage ~= nil then
+    CONTROLLER_STATE.currentPage = CONTROLLER_STATE.nextPage
+    CONTROLLER_STATE.nextPage = nil
+  end
+end