Search for pages in GToolkit databases

keyword := 'phlow'.

databases := LeDatabasesRegistry uniqueInstance defaultLogicalDatabase databases.
found := OrderedCollection new.
databases
	do: [ :database | 
		| asyncPages |
		asyncPages := database asyncPagesForWord: keyword.
		(asyncPages asyncSimilarCopy
			do: [ :page | found add: page -> database databaseName ]) wait ].
aPager := GtPager new matchParent.
found
	do: [ :assoc | 
		| pageStencil |
		pageStencil := GtSceneryLepiterPageStencil new
				pageName: assoc key type title;
				databaseName: assoc value.
		aPager addWrapped: pageStencil create matchParent ].
aPager scrollToLast.

BlSpace new
	rootDo: [ :r | r addChild: aPager ];
	withSceneDriller;
	title: 'Matched Pages in LeDatabases - ' , keyword;
	position: 0 @ 0;
	extent: 1920 @ 1080;
	show