'From Squeak3.1alpha of 5 February 2001 [latest update: #3684] on 21 February 2001 at 10:24:44 am'! "Change Set: senderBadgeFix Date: 21 February 2001 Author: Bob Arning fix bounds problem when starting audio chat withing a sender badge"! !EToySenderMorph methodsFor: 'as yet unclassified' stamp: 'RAA 2/21/2001 10:22'! startAudioChat: toggleMode | chat r | (self valueOfProperty: #embeddedAudioChatHolder) ifNotNil: [ toggleMode ifFalse: [^self]. ^self killExistingChat ]. (self ownerThatIsA: EToyFridgeMorph) isNil ifTrue: [ chat _ AudioChatGUI new ipAddress: self ipAddress. chat removeConnectButton; "we already know the connectee" vResizing: #shrinkWrap; hResizing: #shrinkWrap; borderWidth: 2. r _ (self addARow: {chat}) vResizing: #shrinkWrap. self world startSteppingSubmorphsOf: chat. self setProperty: #embeddedAudioChatHolder toValue: r. self hResizing: #shrinkWrap; vResizing: #shrinkWrap. ] ifFalse: [ chat _ AudioChatGUI new ipAddress: self ipAddress. chat openInWorld: self world. ] ! !