WABatchedList

• batchSize
• batchSize:
• currentPage
• currentPage:
• items
• items:

• batch
• endIndex
• maxPages
• pageRange
• pageRangeEnd
• pageRangeStart
• startIndex

• nextPage
• previousPage

• initialize

• renderContentOn:
• renderNextOn:
• renderPagesOn:
• renderPreviousOn:

• isOnFirstPage
• isOnLastPage

• example

	^ batchSize

	batchSize _ aNumber

	^ currentPage

	currentPage _ aNumber

	^ items

	items _ aCollection

	^ items copyFrom: self startIndex to: self endIndex

	^ currentPage * batchSize min: items size

	^ (items size / batchSize) ceiling

	^ self pageRangeStart to: self pageRangeEnd

	^ self maxPages min: self currentPage + 9

	^ 1 max: self currentPage - 9

	^ (currentPage - 1) * batchSize + 1

	self isOnLastPage ifFalse: [currentPage _ currentPage + 1]

	self isOnFirstPage ifFalse: [currentPage _ currentPage - 1]

	batchSize _ 10.
	currentPage _ 1.
	self session registerObjectForBacktracking: self.

	self maxPages > 0 ifTrue: [
		html divNamed: 'batch' with: [
			self renderPreviousOn: html.
			self renderPagesOn: html. 
			self renderNextOn: html ] ]

	html space.
	self isOnLastPage
		ifFalse: [ html anchorWithAction: [ self nextPage ] text: '>>' ]
		ifTrue: [ html text: '>>' ]		

	self pageRange
		do: [ :index |
			currentPage = index
				ifFalse: [html anchorWithAction: [self currentPage: index] text: index]
				ifTrue: [html bold: index ] ]
		separatedBy: [ html space ]

	self isOnFirstPage
		ifFalse: [ html anchorWithAction: [ self previousPage ] text: '<<' ]
		ifTrue: [ html text: '<<' ].
	html space.

	^ currentPage = 1

	^ currentPage = self maxPages

	^self new
		items: (1 to: 100);
		yourself.