'From Croquet1.0beta of 11 April 2006 [latest update: #0] on 23 December 2006 at 7:50:51 pm'!
CroquetParticipantWithMenu subclass: #KCroquetParticipant
	instanceVariableNames: 'entry address port nav '
	classVariableNames: 'OldWindowButtonsClass RouterAddress RouterPort Worlds '
	poolDictionaries: ''
	category: 'Wisconsin-UI'!

!KCroquetParticipant methodsFor: 'initialization' stamp: 'strick 12/23/2006 18:20'!
createStandardHarness

	^ KStandardHarness new! !

!KCroquetParticipant methodsFor: 'initialization' stamp: 'strick 12/23/2006 18:20'!
setup
	| uname |

	harness := self createStandardHarness.
	harness addOverlay: self.

	"CroquetParticipantWithMenu removed the dock, just as things were getting layed out!!"	
	self addMorph: dock.
	dock position: self position.

	nav := KNavMorph new.
	self addMorph: nav.
	"This is also the method that is automatically used after e.g., toggleFullScreen."
	nav snapToEdgeIfAppropriate. 
	harness avatar actOnThirdPerson.

	"If we want unique logins..."
	"uname := (UIManager default request: 'Enter user name'
								initialAnswer: 'everyone').
	"
	uname := 'everyone'.

	harness setupUser: uname 
		password: (uname= 'everyone' ifTrue: ['else'] 
						ifFalse: [UIManager default requestPassword: 'Enter password'])
		entry: self entry
		address: self routerAddress
		port: self routerPort.! !


!KCroquetParticipant class methodsFor: 'accessing' stamp: 'has 12/23/2006 19:20'!
worlds

	^ Worlds ifNil: [ {
		UWIntroWorld. DungeonWorld. MarsWorld. 
		UWSpreadSheetWorld. T3BodyWorld. UWUnderwaterWorld. 
		WisconsinWorld. CritiquetWorld. QuiltersWorld. ForensicsWorld. 
		WisconsinNextWorld1. WisconsinNextWorld2
	} ]
! !

!KCroquetParticipant class methodsFor: 'accessing' stamp: 'strick 12/23/2006 18:16'!
worlds: aCollection

	"Be able to bypass a hardcoded list in #worlds via a class variable Worlds"

	Worlds := aCollection

	! !

CroquetParticipantWithMenu subclass: #KCroquetParticipant
	instanceVariableNames: 'entry address port nav'
	classVariableNames: 'OldWindowButtonsClass RouterAddress RouterPort Worlds'
	poolDictionaries: ''
	category: 'Wisconsin-UI'!