Kaz (Kazunori Iriya) iriyak

iriyak / Search for pages in GToolkit databases

Created May 11, 2025 10:11

	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 ].