renderPageSelectorOn (Borges::GeeWeb)

    # 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