'From Squeakland 3.8-05 of 7 September 2005 [latest update: #537] on 28 September 2007 at 4:41 pm'!
"Change Set:		EToyProjectQueryMorphFix-mu
Date:			28 September 2007
Author:			Masashi Umezawa

Fix to send encoded query string to SuperSwiki server. It enables searching e-Toy projects by MultiString queries."!


!EToyProjectQueryMorph class methodsFor: 'as yet unclassified' stamp: 'mu 9/14/2007 19:35'!
onServer: aProjectServer
	"EToyProjectQueryMorph onServer: SuperSwikiServer testOnlySuperSwiki"

	| criteria clean |

	(self basicNew)
		project: nil
		actionBlock: [ :x | 
			criteria _ OrderedCollection new.
			x keysAndValuesDo: [ :k :v |
				(clean _ v withBlanksTrimmed convertToEncoding: SuperSwikiServer defaultEncodingName) isEmpty
					ifFalse: [criteria add: k,': *',clean,'*']].
			aProjectServer queryProjectsAndShow: criteria];

		initialize;
		becomeModal;
		openCenteredInWorld! !