SystemOrganization addCategory: #'Seaside-Universe'!

Object subclass: #SeasideUniverseServer
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Seaside-Universe'!

SeasideUniverseServer class
	instanceVariableNames: 'server'!

SeasideUniverseServer class
	instanceVariableNames: 'server'!

!SeasideUniverseServer class methodsFor: 'as yet unclassified' stamp: 'pmm 9/14/2008 12:45'!
bootstrap
	server := UUniverseServer forUniverse: UUniverse seaside29.
	server saveDirectory: self saveDirectory.
	server saveCheckpoint.
	server savePackageList.
	server := nil! !

!SeasideUniverseServer class methodsFor: 'as yet unclassified' stamp: 'pmm 9/14/2008 12:38'!
saveDirectory
	^FileDirectory on: '/Users/marschall/apps/Smalltalk/Pharo/0.1/universe'! !

!SeasideUniverseServer class methodsFor: 'as yet unclassified' stamp: 'pmm 9/14/2008 12:34'!
server
	^server! !

!SeasideUniverseServer class methodsFor: 'as yet unclassified' stamp: 'pmm 9/14/2008 12:38'!
start
	server := UUniverseServer forSaveDirectory: self saveDirectory.
	server := UHeadlessUniverseServer on: server.
	server startListening.
	^server! !

!SeasideUniverseServer class methodsFor: 'as yet unclassified' stamp: 'pmm 9/14/2008 12:34'!
stop
	server stopListening.
	server := nil! !