'From Squeak 1.22 of September 21, 1997 on 2 October 1997 at 10:06:24 am'!
ModelValueViewContainer subclass: #ChatView
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Chat'!

!ChatView methodsFor: 'view opening' stamp: 'MJG 9/29/97 11:23'!
buildViewOn: aChat
	self addConnectButtonOn: aChat.
	self addSendButtonOn: aChat.
	self addDisplayBoxOn: aChat.! !

!ChatView methodsFor: 'view opening' stamp: 'MJG 9/29/97 11:44'!
windowLabel
	^'Chat Window'! !

!ChatView methodsFor: 'view opening' stamp: 'mjg 10/1/97 20:58'!
windowSize
	^50@50! !


!ChatView methodsFor: 'view creation' stamp: 'MJG 9/29/97 11:21'!
addConnectButtonOn: aChat

	|button buttonArea|
	button _ self makeButton: 'Connect To'
		on: aChat
		for: #connect.
	buttonArea _ self constraintFrame: 0 @ 0 corner: (1/2) @ (1/4).
	self addView: button in: buttonArea.
! !

!ChatView methodsFor: 'view creation' stamp: 'mjg 10/2/97 09:18'!
addDisplayBoxOn: aChat

| itemView itemArea |

itemView _ self makeDisplayBoxOn: aChat for: #value.
itemArea _ self constraintFrame: 0 @ (1/4) corner: (1) @ (1).
self addView: itemView in: itemArea.! !

!ChatView methodsFor: 'view creation' stamp: 'MJG 9/29/97 11:22'!
addSendButtonOn: aChat

	|button buttonArea|
	button _ self makeButton: 'Send'
		on: aChat
		for: #sendChat.
	buttonArea _ self constraintFrame: (1/2) @ 0 corner: 1 @ (1/4).
	self addView: button in: buttonArea.
! !

!ChatView methodsFor: 'view creation' stamp: 'mjg 10/1/97 20:56'!
makeDisplayBoxOn: aModel for: aspect

| displayView |
displayView _ DisplayBox new
	model: aModel;
	aspect: aspect;
	controller: NoController new;
	borderWidth: 1.
aModel addDependent: displayView.

^displayView.! !