Pane_title_color = {r=0.5, g=0.5, b=0.5}
Pane_title_background_color = {r=0, g=0, b=0, a=0.1}

-- titles are optional and so affect the height of the pane
function add_title(pane, title)
  pane.title = title
  pane.height = pane.height + 5+Line_height+5
end

          end
          if pane.title then
            pane.top = pane.top + 5+Line_height+5

          if pane.title then
            draw_title(pane)
          end

  end
end
function draw_title(pane)
  assert(pane.title)
  if Text_cache[pane.title] == nil then
    Text_cache[pane.title] = App.newText(love.graphics.getFont(), pane.title)

  App.color(Pane_title_color)
  App.screen.draw(Text_cache[pane.title], pane.left, pane.top-Margin_above -5-Line_height)
  App.color(Pane_title_background_color)
  love.graphics.rectangle('fill', pane.left-Margin_left, pane.top-Margin_above-5-Line_height-5, Margin_left+App.width(Text_cache[pane.title])+Margin_right, 5+Line_height+5)

  local n=0

    curr = Cache[curr].links[rel]
    n = n+1
  end
  curr = id
  local i=1
  while curr do

    add_title(pane, ('%d/%d'):format(i, n))

    i = i+1