[aida] A simple AJAX batcher for Aida

[nicolas petton]

Hi,

I needed a batcher for my blog to display posts, so I decided to write a
component. It is based on WebGrid, and uses AJAX to batch.
It batches a collection a webElements, and the batch size can be
specified. It still needs some clean up, but it seems to work fine (on
Squeak, not tested on VW yet). 

Usage example : 
WebBatcher new batchsize: 10; batchedElements: --a collection of
WebElements--

Any feedback is appreciated.

Nicolas
-- 
Nicolas Petton
http://nico.bioskop.fr
             ___
           ooooooo
          OOOOOOOOO
         |Smalltalk|
          OOOOOOOOO
           ooooooo
            \   /
             [|]
--------------------------------
Ma clé GPG est disponible ici :
http://pgp.mit.edu:11371/pks/lookup?op=get&search=0xE788C34D

-------------- section suivante --------------
'From Squeak3.10beta of 22 July 2007 [latest update: #7158] on 27 October 2007 at 12:37:53 am'!
WebElement subclass: #WebBatcher
	instanceVariableNames: 'batchsize batchedElements currentPage'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Snoop2-Components'!
!WebBatcher commentStamp: 'np 10/26/2007 22:42' prior: 0!
WebBatcher batchs a collection of webElements unsing AJAX.
Default batch size is set to 10.
Usage exemple:
WebBatcher new batchsize: 5; batchedElements: --a collection of WebElements--!
!WebBatcher methodsFor: 'accessing' stamp: 'np 10/26/2007 19:05'!
batchedElements
	^batchedElements! !
!WebBatcher methodsFor: 'accessing' stamp: 'np 10/26/2007 19:06'!
batchedElements: aCollection
	batchedElements := aCollection! !
!WebBatcher methodsFor: 'accessing' stamp: 'np 10/27/2007 00:37'!
batchsize
	batchsize < 1 ifTrue: [self batchsize: 1]. "Do not allow batchsize < 1!!"
	^batchsize! !
!WebBatcher methodsFor: 'accessing' stamp: 'np 10/26/2007 19:04'!
batchsize: aNumber
	batchsize := aNumber! !
!WebBatcher methodsFor: 'accessing' stamp: 'np 10/26/2007 19:15'!
currentPage
	^currentPage! !
!WebBatcher methodsFor: 'accessing' stamp: 'np 10/26/2007 19:24'!
currentPage: anInteger
	currentPage := anInteger! !
!WebBatcher methodsFor: 'accessing' stamp: 'np 10/26/2007 19:15'!
numberOfPages
	^(self batchedElements size / self batchsize asInteger) ceiling ! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/27/2007 00:14'!
ajaxUpdateWith: aParmString
	aParmString notNil ifTrue: [
		self currentPage: aParmString asInteger; batch]. 
	^self! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/26/2007 22:35'!
batch
	self initElements.
	self buildBatchedElements.! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/26/2007 22:26'!
buildBatchedElements
	self buildPageNumber: self currentPage.
	self numberOfPages > 1 ifTrue: [self buildFooter]! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/27/2007 00:36'!
buildFooter
	|pageNumber e|
	e := WebElement new class: #batcher.
	self currentPage = 1 
		ifFalse: [e add: (self linkForFirstPage)]
		ifTrue:[e addText: '<<'].
	e addNbSp.
	pageNumber := 1.
	self numberOfPages timesRepeat: [
		pageNumber = self currentPage 
			ifFalse: [e add: (self linkForPage: pageNumber)]
			ifTrue: [e addText: pageNumber printString].
		e addNbSp. 
		pageNumber := pageNumber + 1].
	self currentPage = self numberOfPages 
		ifFalse: [e add: (self linkForLastPage)]
		ifTrue:[e addText: '>>'].
	self add: e! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/26/2007 22:25'!
buildPageNumber: anInteger
	| selectedElements |
	selectedElements := self batchedElements 
		copyFrom: (self batchsize * self currentPage - self batchsize + 1 ) 
		to: ((self batchsize * self currentPage) min: self batchedElements size).
	selectedElements do: [:each | self add: each]! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/27/2007 00:16'!
linkForFirstPage
	| dummyLink |
	dummyLink := WebLink text: '<<' linkTo: (Array with: self app observee with: '-').
	dummyLink onClickUpdate: self with: 1 printString.
	^dummyLink! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/27/2007 00:16'!
linkForLastPage
	| dummyLink |
	dummyLink := WebLink text: '>>' linkTo: (Array with: self app observee with: '-').
	dummyLink onClickUpdate: self with: self numberOfPages printString.
	^dummyLink! !
!WebBatcher methodsFor: 'as yet unclassified' stamp: 'np 10/27/2007 00:16'!
linkForPage: aNumber
	| dummyLink |
	dummyLink := WebLink text: aNumber printString linkTo: (Array with: self app observee with: '-').
	dummyLink onClickUpdate: self with: aNumber printString.
	^dummyLink! !
!WebBatcher methodsFor: 'initialize-release' stamp: 'np 10/26/2007 21:24'!
initialize
	super initialize.
	batchsize := 10.
	currentPage := 1.
	self method: #ajaxUpdateWith:! !
!WebBatcher methodsFor: 'printing' stamp: 'np 10/26/2007 22:48'!
prepareToHTMLPrintOn: aSession
	super prepareToHTMLPrintOn: aSession.
	self batch! !
!WebBatcher methodsFor: 'printing' stamp: 'np 10/27/2007 00:34'!
printHTMLPageOn: aStream forSession: aSession
	self prepareToHTMLPrintOn: aSession.
	aStream nextPutAll: self ident, '<div'. self printAttributesOn: aStream for: aSession. 
	aStream nextPutAll: '>', self eol.
	elements notNil ifTrue: [elements do: [:element | 
		element notNil ifTrue: [element printHTMLPageOn: aStream forSession: aSession] ] ].
	aStream nextPutAll: self ident, '</div>', self eol.! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
WebBatcher class
	instanceVariableNames: ''!
!WebBatcher class methodsFor: 'instance creation' stamp: 'np 10/26/2007 19:06'!
new
	^super new initialize! !
-------------- section suivante --------------
Une pi�ce jointe non texte a �t� nettoy�e...
Nom: non disponible
Type: application/pgp-signature
Taille: 189 octets
Desc: Ceci est une partie de message
	=?ISO-8859-1?Q?num=E9riquement?= =?ISO-8859-1?Q?_sign=E9e?=
Url: http://lists.aidaweb.si/pipermail/aida/attachments/20071027/e64263f6/attachment-0001.sig