'From etoys3.0 of 7 March 2008 [latest update: #2078] on 19 August 2008 at 2:01:33 pm'!
"Change Set:		noAudioNebraska-bf
Date:			19 August 2008
Author:			Bert Freudenberg

Remove AudioChat and ScreenSharing buttons which do not yet work over tubes"!


!SugarBuddy methodsFor: 'actions' stamp: 'bf 8/19/2008 13:50'!
makeBadge
	| badge font ext |
	badge := EToySenderMorph new
		userName: nick 
		userPicture: (self xoFormExtent: 61@53 background: Color veryVeryLightGray) 
		userEmail: 'who@where.net' 
		userIPAddress: ip;
		color: Color veryVeryLightGray;
		borderColor: Color gray.
	badge setProperty: #buddy toValue: self.
	#( tellAFriend emailAddress  startTelemorphic startAudioChat startNebraskaClient ipAddress checkOnAFriend )
		do: [:ea | badge hideField: ea].
	font := Preferences standardEToysFont.
	ext := (font widthOf: $m) + 2 @ font height.
	badge allMorphsDo: [:m |
		(m respondsTo: #font:) ifTrue: [m font: font].
		(m class == SimpleButtonMorph) ifTrue: [m extent: ext]].
	^ badge.! !