Hi!

I tried

| server |server := NebraskaServer new.
server startListeningOnPort: 9091.
(NebraskaServerMorph new server: server) openInWorld.

as described on http://minnow.cc.gatech.edu/squeak/1356 and did get the 
following walkback. "Share" in the navigator flap works.

Regards, Markus

P.S.:
Could this be used to get a remote workspace or is this to naive?

| server |server := NebraskaServer new.
server startListeningOnPort: 9091.
server sharedWorld addMorph: Workspace open.
(NebraskaServerMorph new server: server) openInWorld.


27 November 2002 10:40:34 am

VM: Win32 - Squeak3.3alpha of 24 January 2002 [latest update: #4967]
Image: Squeak3.4alpha [latest update: #5125]

UndefinedObject(Object)>>doesNotUnderstand:
	Receiver: nil
	Arguments and temporary variables:
		aMessage: 	a Message with selector: #extent: and arguments: #(800 at 600)
	Receiver's instance variables:
nil

NebraskaServer>>extent:depth:
	Receiver: a NebraskaServer
	Arguments and temporary variables:
		newExtent: 	800 at 600
		newDepth: 	16
		client: 	nil
	Receiver's instance variables:
		dependents: 	nil
		worldDepth: 	nil
		world: 	nil
		clients: 	an IdentitySet()
		listenQueue: 	nil

NebraskaServer>>initialize
	Receiver: a NebraskaServer
	Arguments and temporary variables:

	Receiver's instance variables:
		dependents: 	nil
		worldDepth: 	nil
		world: 	nil
		clients: 	an IdentitySet()
		listenQueue: 	nil

NebraskaServer class>>new
	Receiver: NebraskaServer
	Arguments and temporary variables:

	Receiver's instance variables:
		superclass: 	Model
		methodDict: 	a MethodDictionary(#acceptNewConnections->a 
CompiledMethod (2431) #...etc...
		format: 	140
		instanceVariables: 	#('worldDepth' 'world' 'clients' 'listenQueue')
		organization: 	('initialization' destroy initialize initializeForWorld:)
('netwo...etc...
		subclasses: 	nil
		name: 	#NebraskaServer
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand:
NebraskaServer>>extent:depth:
NebraskaServer>>initialize
NebraskaServer class>>new
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:
[] in TextMorphEditor(ParagraphEditor)>>evaluateSelection
BlockContext>>on:do:
TextMorphEditor(ParagraphEditor)>>evaluateSelection
TextMorphEditor(ParagraphEditor)>>doIt
[] in TextMorphEditor(ParagraphEditor)>>doIt:
TextMorphEditor(Controller)>>terminateAndInitializeAround:
TextMorphEditor(ParagraphEditor)>>doIt:
TextMorphEditor(ParagraphEditor)>>dispatchOnCharacter:with:
TextMorphEditor>>dispatchOnCharacter:with:
TextMorphEditor(ParagraphEditor)>>readKeyboard
TextMorphEditor>>readKeyboard
[] in TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView(TextMorph)>>handleInteraction:fromEvent:
TextMorphForEditView>>handleInteraction:fromEvent:
TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView>>keyStroke:
TextMorphForEditView(TextMorph)>>handleKeystroke:
KeyboardEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
TextMorphForEditView(Morph)>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendKeyboardEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess
[] in BlockContext>>newProcess

-- 
http://reauktion.de/archer/