WAAlphabeticBatchedList

• currentPage
• currentPage:
• items
• items:

• allPages
• batch
• validPages

• nextPage
• previousPage

• initialize

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

• isOnFirstPage
• isOnLastPage

	^ currentPage ifNil: [currentPage _ self validPages first]

	currentPage _ aCharacter

	^ items

	items _ aCollection

	^ $A to: $Z

	^ items select: [:ea | ea asString asUppercase first = self currentPage]

	^ (items collect: [:ea | ea asString asUppercase first]) asSet asSortedCollection

	self isOnLastPage ifFalse: [currentPage _ self validPages after: currentPage]

	self isOnFirstPage ifFalse: [currentPage _ self validPages before: currentPage]

	self session registerObjectForBacktracking: self.

	items isEmpty ifFalse: [
		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 allPages
		do: [ :char |
			currentPage = char
				ifFalse:
					[(self validPages includes: char)
						ifTrue: [html anchorWithAction: [self currentPage: char] text: char]
						ifFalse: [html text: char]]
				ifTrue: [html bold: char ] ]
		separatedBy: [ html space ]

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

	^ self validPages first = self currentPage

	^ self validPages last = self currentPage