# File lib/Borges/Component/GeeWeb.rb, line 66
  def renderPageSelectorOn(r)
    r.cssId(:nav)

    r.center do
      if @page.contents == self.allPages.first then
        r.text('<<')
      else
        r.anchorWithAction_text(proc do self.prevPage end, '<<')
      end

      self.allPages.each_with_index do |ea, i|
        r.space
        text = ea.copyAfter(?e)

        if @page.contents == ea then
          r.text(i)
        else
          r.anchorWithAction_text(proc do
            self.choosePage(ea) end,
            i)
        end
      end

      r.space

      if @page.contents == self.allPages.last then
        r.text('>>')
      else
        r.anchorWithAction_text(proc do self.nextPage end, '>>')
      end
    end
  end