The Trunk: Nebraska-ar.24.mcz

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.!