'From etoys3.0 of 7 March 2008 [latest update: #2091] on 26 August 2008 at 5:19:29 pm'!
"Change Set:		typo-bf
Date:			26 August 2008
Author:			Bert Freudenberg

Fix a typo introduced in last update"!


!SugarLauncher methodsFor: 'presence' stamp: 'bf 8/26/2008 17:18'!
buddyJoined: buddyProxy
	"possibly sent via DBus in background process"
	| properties key buddy |
	properties := [buddyProxy getProperties] on: DBusError do: [^self].
	(properties at: #owner ifAbsent: [false]) == true ifTrue: [^self].
	key := properties at: #key ifAbsent: [^self].
	self buddiesLock critical: [
		buddies ifNil: [^self].
		(buddies includesKey: key) ifTrue: [^self].
		buddy := SugarBuddy fromDictionary: properties.
		buddies at: key put: buddy].
	WorldState addDeferredUIMessage: [
		self badgeHolder addMorph: buddy makeBadge.
		self showBadges]! !