Add window setHeight in winhlp

for repositionOrCreateEntryFrame.

listframes.lua

@@ -68,7 +68,8 @@ local function repositionOrCreateEntryFrame(idx)
     if previousFrame ~= nil then
         local xPos
         xPos, yPos = previousFrame.getPosition()
-        yPos = yPos + 1
+        local xSize, ySize = previousFrame.getSize()
+        yPos = yPos + ySize
     end
     local tw, th = frame.getSize()
     local entryFrame = subFrames[idx]

orders.lua

@@ -39,9 +39,7 @@ local function fetch(wait_for)
 end
 
 local function drawEntry(win, obj)
-    local winX, winY = win.getPosition()
-    local sizeX, sizeY = win.getSize()
-    win.reposition(winX, winY, sizeX, 2)
+    winhlp.setHeight(win, 2)
     win.setBackgroundColor(colors.black)
     win.setTextColor(colors.lightGray)
     win.write(obj.id)

winhlp.lua

@@ -1,14 +1,20 @@
-local function translate(window, x, y)
-    local winX, winY = window.getPosition()
+local function translate(win, x, y)
+    local winX, winY = win.getPosition()
     return x-winX+1, y-winY+1
 end
 
-local function contains(window, x, y)
-    local winX, winY = window.getPosition()
-    local width, height = window.getSize()
+local function contains(win, x, y)
+    local winX, winY = win.getPosition()
+    local width, height = win.getSize()
     return x >= winX and y >= winY and x-winX < width and y-winY < height
 end
 
+local function setHeight(win, height)
+    local winX, winY = win.getPosition()
+    local sizeX, sizeY = win.getSize()
+    win.reposition(winX, winY, sizeX, height)
+end
+
 local function alignRight(termlike, length)
     local tw, th = termlike.getSize()
     local x, y = termlike.getCursorPos()
@@ -20,5 +26,6 @@ end
 return {
     translate=translate,
     contains=contains,
+    setHeight=setHeight,
     alignRight=alignRight,
 }