Andreas Raab uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-ar.24.mcz

==================== Summary ====================

Name: Nebraska-ar.24
Author: ar
Time: 3 January 2010, 2:21 am
UUID: 5ae9b52a-9214-0d4b-83f9-034bde317a4b
Ancestors: Nebraska-nice.23

Make Nebraska unloadable. Some methods in Worldstate need to remain in the Morphic package otherwise things blow up after unloading Nebraska.

=============== Diff against Nebraska-nice.23 ===============

Item was removed:
- ----- Method: WorldState>>remoteCanvasesDo: (in category '*nebraska-Nebraska support') -----
- remoteCanvasesDo: aBlock
- 	remoteServer ifNil:[^self].
- 	^remoteServer clients do:[:client| aBlock value: client canvas]!

Item was removed:
- ----- Method: WorldState>>remoteServer: (in category '*nebraska-Nebraska support') -----
- remoteServer: aNebraskaServer
- 	remoteServer ifNotNil:[remoteServer destroy].
- 	remoteServer := aNebraskaServer.
- 	self canvas: nil.!

Item was removed:
- ----- Method: WorldState>>addRemoteCanvas: (in category '*nebraska-Nebraska support') -----
- addRemoteCanvas: c
- 	self canvas: nil. "force recomputation"!

Item was removed:
- ----- Method: WorldState>>assuredRemoteCanvas (in category '*nebraska-Nebraska support') -----
- assuredRemoteCanvas
- 	| newCanvas |
- 	(self canvas notNil) ifTrue: [ ^self canvas ].
- 	newCanvas := MultiCanvas new.
- 	newCanvas depth: 32.
- 	newCanvas extent: viewBox extent.
- 	self remoteCanvasesDo: [ :c | newCanvas addCanvas: c ].
- 	newCanvas addCanvas: Display getCanvas.
- 
- 	"newCanvas := CachingCanvas on: newCanvas."
- 	self canvas: newCanvas.
- 	^newCanvas!

Item was removed:
- ----- Method: WorldState>>removeRemoteCanvas: (in category '*nebraska-Nebraska support') -----
- removeRemoteCanvas: c
- 	self canvas: nil.	"force withdrawal of remote from MultiCanvas"
- !

Item was removed:
- ----- Method: WorldState>>remoteServer (in category '*nebraska-Nebraska support') -----
- remoteServer
- 	^remoteServer!

Item was removed:
- ----- Method: WorldState>>releaseRemoteServer (in category '*nebraska-Nebraska support') -----
- releaseRemoteServer
- 	"My server has been transferred to some other world. Release pending references"
- 	remoteServer := nil.
- 	self canvas: nil.!