'From Squeakland.396-Nihongo7.29 of 18 March 2005 [latest update: #80] on 14 July 2005 at 2:18:58 pm'!
StringHolder subclass: #QChat
	instanceVariableNames: 'server'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'NetText'!

!QChat methodsFor: 'accessing' stamp: 'tak 7/14/2005 14:18'!
acceptContents: aString 
	| client2 |
	client2 := RbtClient bindForBroadcast: self port.
	client2 sendData: aString asString.
	super acceptContents: aString.
	^ true! !

!QChat methodsFor: 'accessing' stamp: 'tak 7/14/2005 14:18'!
port
	^ 20050714! !

!QChat methodsFor: 'accessing' stamp: 'tak 7/14/2005 14:18'!
startServer
	server := RbtServer startOn: self port.
	server
		handlerBlock: [:data | 
			contents := data.
			self contentsChanged]! !

!QChat methodsFor: 'initialize-release' stamp: 'tak 7/14/2005 14:18'!
initialize
	super initialize.
	self startServer! !


!QChat class methodsFor: 'instance creation' stamp: 'tak 7/14/2005 14:18'!
open
	"self open"
	^ super openLabel: self name! !


!QChat class reorganize!
('instance creation' open)
!