'From etoys2.3 of 28 November 2007 [latest update: #1837] on 12 December 2007 at 9:40:46 pm'!
"Change Set:		ComposeNick-yo
Date:			12 December 2007
Author:			Yoshiki Ohshima

Compose decomposed form of Unicode string."!


!String methodsFor: 'converting' stamp: 'yo 12/12/2007 21:38'!
composeAccents

	| stream |
	stream _ UnicodeCompositionStream on: (String new: 16).
	self do: [:e | stream nextPut: e].
	^ stream contents.
! !


!SugarBuddy class methodsFor: 'instance creation' stamp: 'yo 12/12/2007 21:38'!
fromDictionary: aDict
	| buddyClass |
	buddyClass := SugarBuddy.
	(aDict at: 'owner' ifAbsent: []) == true
		ifTrue: [
			buddyClass := SugarBuddyOwner.
			Utilities authorName: (aDict at: 'nick' ifAbsent: ['missing nick']) utf8ToSqueak composeAccents].

	^buddyClass
		key: (aDict at: 'key' ifAbsent: ['missing key'])
		nick: (aDict at: 'nick' ifAbsent: ['missing nick']) utf8ToSqueak
		colors: (aDict at: 'color' ifAbsent: ['#FF0000,#FF0000']) 
		ip: (aDict at: 'ip4-address' ifAbsent: ['missing address'])
! !