THERE_BE_DRAGONS_HERE
PrimitiveFailed: primitive #primSocketReceiveDataAvailable: in a Socket[invalidSocketHandle] failed
24 August 2011 10:50:28 am

VM: Mac OS - intel - 1071 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.117] Croquet Cog 4.0.0
Image: Pharo1.3 [Latest update: #13298]

Socket(Object)>>primitiveFailed:
	Receiver: a Socket[invalidSocketHandle]
	Arguments and temporary variables: 
		t1: 	#primSocketReceiveDataAvailable:
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[242 3 91 78 0 0 0 0 128 11 58 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket(Object)>>primitiveFailed
	Receiver: a Socket[invalidSocketHandle]
	Arguments and temporary variables: 

	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[242 3 91 78 0 0 0 0 128 11 58 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket>>primSocketReceiveDataAvailable:
	Receiver: a Socket[invalidSocketHandle]
	Arguments and temporary variables: 
		t1: 	#[242 3 91 78 0 0 0 0 128 11 58 0]
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[242 3 91 78 0 0 0 0 128 11 58 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket>>waitForDataFor:ifClosed:ifTimedOut:
	Receiver: a Socket[invalidSocketHandle]
	Arguments and temporary variables: 
		t1: 	30
		t2: 	[ConnectionClosed signal: 'Connection closed while waiting for data.']
		t3: 	[ConnectionTimedOut signal: 'Data receive timed out.']
		t4: 	132799
		t5: 	30000
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[242 3 91 78 0 0 0 0 128 11 58 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket>>waitForDataFor:
	Receiver: a Socket[invalidSocketHandle]
	Arguments and temporary variables: 
		t1: 	30
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[242 3 91 78 0 0 0 0 128 11 58 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket>>receiveDataSignallingTimeout:into:startingAt:
	Receiver: a Socket[invalidSocketHandle]
	Arguments and temporary variables: 
		t1: 	30
		t2: 	#[71 69 84 32 47 101 120 97 109 112 108 101 115 47 109 117 108 116 105 99 1...etc...
		t3: 	2058
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[242 3 91 78 0 0 0 0 128 11 58 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


SocketStream>>receiveData
	Receiver: SocketStream[inbuf:4kb/outbuf:4kb]
	Arguments and temporary variables: 

	Receiver's instance variables: 
		recentlyRead: 	685
		socket: 	a Socket[invalidSocketHandle]
		inBuffer: 	#[71 69 84 32 47 101 120 97 109 112 108 101 115 47 109 117 108 116 10...etc...
		outBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 67 111 110 116 ...etc...
		inNextToWrite: 	2058
		outNextToWrite: 	1
		lastRead: 	2057
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


SocketStream>>next
	Receiver: SocketStream[inbuf:4kb/outbuf:4kb]
	Arguments and temporary variables: 

	Receiver's instance variables: 
		recentlyRead: 	685
		socket: 	a Socket[invalidSocketHandle]
		inBuffer: 	#[71 69 84 32 47 101 120 97 109 112 108 101 115 47 109 117 108 116 10...etc...
		outBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 67 111 110 116 ...etc...
		inNextToWrite: 	2058
		outNextToWrite: 	1
		lastRead: 	2057
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


ZnLineReader>>processNext
	Receiver: a ZnLineReader
	Arguments and temporary variables: 
		t1: 	nil
	Receiver's instance variables: 
		stream: 	SocketStream[inbuf:4kb/outbuf:4kb]
		buffer: 	'                                                                '
		position: 	0
		limit: 	4096


ZnLineReader>>nextLine
	Receiver: a ZnLineReader
	Arguments and temporary variables: 

	Receiver's instance variables: 
		stream: 	SocketStream[inbuf:4kb/outbuf:4kb]
		buffer: 	'                                                                '
		position: 	0
		limit: 	4096


ZnRequestLine>>readFrom:
	Receiver: a ZnRequestLine
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
		t2: 	nil
		t3: 	nil
	Receiver's instance variables: 
		method: 	nil
		uri: 	nil
		version: 	nil


ZnRequestLine class>>readFrom:
	Receiver: ZnRequestLine
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#isHttp10->(ZnRequestLine>>#isHttp10 "a Compiled...etc...
		format: 	136
		instanceVariables: 	#('method' 'uri' 'version')
		organization: 	('accessing' method method: uri uri: uriPathQueryFragment version...etc...
		subclasses: 	nil
		name: 	#ZnRequestLine
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Core'
		traitComposition: 	{}
		localSelectors: 	nil


ZnRequest>>readHeaderFrom:
	Receiver: <<error during printing>>
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		headers: 	nil
		entity: 	nil
		requestLine: 	nil


ZnRequest(ZnMessage)>>readFrom:
	Receiver: <<error during printing>>
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		headers: 	nil
		entity: 	nil
		requestLine: 	nil


ZnRequest class(ZnMessage class)>>readFrom:
	Receiver: ZnRequest
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		superclass: 	ZnMessage
		methodDict: 	a MethodDictionary(#accept->(ZnRequest>>#accept "a CompiledMethod(1...etc...
		format: 	136
		instanceVariables: 	#('requestLine')
		organization: 	('accessing' accept method requestLine requestLine: setAccept: se...etc...
		subclasses: 	nil
		name: 	#ZnRequest
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Core'
		traitComposition: 	{}
		localSelectors: 	nil


ZnMultiThreadedServer(ZnSingleThreadedServer)>>readRequest:
	Receiver: a ZnMultiThreadedServer(stopped 8080)
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
		t2: 	nil
	Receiver's instance variables: 
		port: 	8080
		process: 	nil
		serverSocket: 	nil
		delegate: 	a ZnSeasideServerAdaptorDelegate
		authenticator: 	nil
		log: 	a ZnLogSupport
		lastRequest: 	nil
		lastResponse: 	nil


[self readRequest: t1] in ZnMultiThreadedServer>>readRequestSafely:
	Receiver: a ZnMultiThreadedServer(stopped 8080)
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		port: 	8080
		process: 	nil
		serverSocket: 	nil
		delegate: 	a ZnSeasideServerAdaptorDelegate
		authenticator: 	nil
		log: 	a ZnLogSupport
		lastRequest: 	nil
		lastResponse: 	nil


BlockClosure>>on:do:
	Receiver: [self readRequest: t1]
	Arguments and temporary variables: 
		t1: 	an ExceptionSet
		t2: 	[self log debug: 'Connection closed while reading request'.
	nil]
		t3: 	true
	Receiver's instance variables: 
		outerContext: 	ZnMultiThreadedServer>>readRequestSafely:
		startpc: 	54
		numArgs: 	0


ZnMultiThreadedServer>>readRequestSafely:
	Receiver: a ZnMultiThreadedServer(stopped 8080)
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		port: 	8080
		process: 	nil
		serverSocket: 	nil
		delegate: 	a ZnSeasideServerAdaptorDelegate
		authenticator: 	nil
		log: 	a ZnLogSupport
		lastRequest: 	nil
		lastResponse: 	nil


ZnMultiThreadedServer>>executeRequestResponseLoopOn:
	Receiver: a ZnMultiThreadedServer(stopped 8080)
	Arguments and temporary variables: 
		t1: 	SocketStream[inbuf:4kb/outbuf:4kb]
		t2: 	a ZnRequest(GET /examples/multicounter?_s=7JoTrTLjNzyGtGmN&_k=AUYlmGKifB1GM...etc...
		t3: 	a ZnResponse(200 OK text/html;charset=utf-8 2436B)
	Receiver's instance variables: 
		port: 	8080
		process: 	nil
		serverSocket: 	nil
		delegate: 	a ZnSeasideServerAdaptorDelegate
		authenticator: 	nil
		log: 	a ZnLogSupport
		lastRequest: 	nil
		lastResponse: 	nil


[self executeRequestResponseLoopOn: t2] in [[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]] in [[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]]
		ifCurtailed: [self log debug: 'Destroying socket'.
			t3 destroy]] in ZnMultiThreadedServer>>serveConnectionsOn:
	Receiver: a ZnMultiThreadedServer(stopped 8080)
	Arguments and temporary variables: 
		t2: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		port: 	8080
		process: 	nil
		serverSocket: 	nil
		delegate: 	a ZnSeasideServerAdaptorDelegate
		authenticator: 	nil
		log: 	a ZnLogSupport
		lastRequest: 	nil
		lastResponse: 	nil


BlockClosure>>ensure:
	Receiver: [self executeRequestResponseLoopOn: t2]
	Arguments and temporary variables: 
		aBlock: 	[self log debug: 'Closing stream'.
	t2 close]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debu...etc...
		startpc: 	122
		numArgs: 	0


[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]] in [[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]]
		ifCurtailed: [self log debug: 'Destroying socket'.
			t3 destroy]] in ZnMultiThreadedServer>>serveConnectionsOn:
	Receiver: a ZnMultiThreadedServer(stopped 8080)
	Arguments and temporary variables: 
		t2: 	SocketStream[inbuf:4kb/outbuf:4kb]
	Receiver's instance variables: 
		port: 	8080
		process: 	nil
		serverSocket: 	nil
		delegate: 	a ZnSeasideServerAdaptorDelegate
		authenticator: 	nil
		log: 	a ZnLogSupport
		lastRequest: 	nil
		lastResponse: 	nil


BlockClosure>>ifCurtailed:
	Receiver: [[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t...etc...
	Arguments and temporary variables: 
		t1: 	[self log debug: 'Destroying socket'.
	t3 destroy]
		t2: 	nil
		t3: 	nil
	Receiver's instance variables: 
		outerContext: 	[[[self executeRequestResponseLoopOn: t2]
		ensure: [self log deb...etc...
		startpc: 	117
		numArgs: 	0


[[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]]
		ifCurtailed: [self log debug: 'Destroying socket'.
			t3 destroy]] in ZnMultiThreadedServer>>serveConnectionsOn:
	Receiver: a ZnMultiThreadedServer(stopped 8080)
	Arguments and temporary variables: 
		t2: 	SocketStream[inbuf:4kb/outbuf:4kb]
		t3: 	a Socket[invalidSocketHandle]
	Receiver's instance variables: 
		port: 	8080
		process: 	nil
		serverSocket: 	nil
		delegate: 	a ZnSeasideServerAdaptorDelegate
		authenticator: 	nil
		log: 	a ZnLogSupport
		lastRequest: 	nil
		lastResponse: 	nil


[self value.
	Processor terminateActive] in BlockClosure>>newProcess
	Receiver: [[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			...etc...
	Arguments and temporary variables: 

	Receiver's instance variables: 
		outerContext: 	ZnMultiThreadedServer>>serveConnectionsOn:
		startpc: 	112
		numArgs: 	0



--- The full stack ---
Socket(Object)>>primitiveFailed:
Socket(Object)>>primitiveFailed
Socket>>primSocketReceiveDataAvailable:
Socket>>waitForDataFor:ifClosed:ifTimedOut:
Socket>>waitForDataFor:
Socket>>receiveDataSignallingTimeout:into:startingAt:
SocketStream>>receiveData
SocketStream>>next
ZnLineReader>>processNext
ZnLineReader>>nextLine
ZnRequestLine>>readFrom:
ZnRequestLine class>>readFrom:
ZnRequest>>readHeaderFrom:
ZnRequest(ZnMessage)>>readFrom:
ZnRequest class(ZnMessage class)>>readFrom:
ZnMultiThreadedServer(ZnSingleThreadedServer)>>readRequest:
[self readRequest: t1] in ZnMultiThreadedServer>>readRequestSafely:
BlockClosure>>on:do:
ZnMultiThreadedServer>>readRequestSafely:
ZnMultiThreadedServer>>executeRequestResponseLoopOn:
[self executeRequestResponseLoopOn: t2] in [[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]] in [[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]]
		ifCurtailed: [self log debug: 'Destroying socket'.
			t3 destroy]] in ZnMultiThreadedServer>>serveConnectionsOn:
BlockClosure>>ensure:
[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]] in [[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]]
		ifCurtailed: [self log debug: 'Destroying socket'.
			t3 destroy]] in ZnMultiThreadedServer>>serveConnectionsOn:
BlockClosure>>ifCurtailed:
[[[self executeRequestResponseLoopOn: t2]
		ensure: [self log debug: 'Closing stream'.
			t2 close]]
		ifCurtailed: [self log debug: 'Destroying socket'.
			t3 destroy]] in ZnMultiThreadedServer>>serveConnectionsOn:
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------

Processes and their stacks: 
Process: a Process in Delay class>>handleTimerEvent
  stack:

Delay class>>handleTimerEvent
Delay class>>runTimerEventLoop
[self runTimerEventLoop] in Delay class>>startTimerEventLoop
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------

Process: a Process in Process>>resume
  stack:

Process>>resume
BlockClosure>>forkAt:
InputEventPollingFetcher(InputEventFetcher)>>installEventLoop
InputEventPollingFetcher(InputEventFetcher)>>startUp
InputEventFetcher class>>startUp
InputEventFetcher class(Behavior)>>startUp:
[:t5 | 
| t6 |
t6 := self
				at: t5
				ifAbsent: [].
	t6 isNil
		ifTrue: [t4 add: t5]
		ifFalse: [t6 perform: t1 with: t3]] in SmalltalkImage>>send:toClassesNamedIn:with:
OrderedCollection>>do:
SmalltalkImage>>send:toClassesNamedIn:with:
SmalltalkImage>>processStartUpList:
[self processStartUpList: t4.
	t4
		ifTrue: [self recordStartupStamp]] in SmalltalkImage>>snapshot:andQuit:
BlockClosure>>ensure:
MorphicUIManager(UIManager)>>boot:during:
SmalltalkImage>>snapshot:andQuit:
WorldState class>>saveAndQuit
[| t3 |
(t3 := selector numArgs) = 0
		ifTrue: [target perform: selector]
		ifFalse: [t3 = arguments size
				ifTrue: [target perform: selector withArguments: arguments]
				ifFalse: [target
						perform: selector
						withArguments: (arguments copyWith: t1)]].
	self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
------------------------------

Process: a Process in Process>>terminate
  stack:

Process>>terminate
------------------------------

Process: a Process in SmalltalkImage>>lowSpaceWatcher
  stack:

SmalltalkImage>>lowSpaceWatcher
[self lowSpaceWatcher] in SmalltalkImage>>installLowSpaceWatcher
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------

Process: a Process in ProcessorScheduler class>>idleProcess
  stack:

ProcessorScheduler class>>idleProcess
[self idleProcess] in ProcessorScheduler class>>startUp
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------

Process: a Process in [self value.
	Processor terminateActive] in BlockClosure>>newProcess
  stack:

[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------

Process: a Process in WeakArray class>>finalizationProcess
  stack:

WeakArray class>>finalizationProcess
[self finalizationProcess] in WeakArray class>>restartFinalizationProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------

Process: a Process in nil
  stack:

Array(SequenceableCollection)>>do:
[:t3 | 
t3 nextPutAll: 'Processes and their stacks: ';
		 cr.
	Process allInstances
		do: [:t4 | 
			| t5 |
			t3 nextPutAll: 'Process: ';
				 print: t4;
				 cr;
				 nextPutAll: '  stack:';
				 cr;
				 cr.
			t5 := t4 isActiveProcess
						ifTrue: [thisContext sender]
						ifFalse: [t4 suspendedContext].
			t5
				ifNotNil: [(t5 stackOfSize: 20)
						do: [:t6 | t3 print: t6;
								 cr]].
			t3 nextPutAll: '------------------------------';
				 cr;
				 cr]] in [Smalltalk logError: t2 inContext: t1.
	Smalltalk
		logDuring: [:t3 | 
			t3 nextPutAll: 'Processes and their stacks: ';
				 cr.
			Process allInstances
				do: [:t4 | 
					| t5 |
					t3 nextPutAll: 'Process: ';
						 print: t4;
						 cr;
						 nextPutAll: '  stack:';
						 cr;
						 cr.
					t5 := t4 isActiveProcess
								ifTrue: [thisContext sender]
								ifFalse: [t4 suspendedContext].
					t5
						ifNotNil: [(t5 stackOfSize: 20)
								do: [:t6 | t3 print: t6;
										 cr]].
					t3 nextPutAll: '------------------------------';
						 cr;
						 cr]]] in StartupUIManager(NonInteractiveUIManager)>>quitFrom:withMessage:
[t2 := self openLog.
	t1 value: t2] in SmalltalkImage>>logDuring:
BlockClosure>>ensure:
SmalltalkImage>>logDuring:
[Smalltalk logError: t2 inContext: t1.
	Smalltalk
		logDuring: [:t3 | 
			t3 nextPutAll: 'Processes and their stacks: ';
				 cr.
			Process allInstances
				do: [:t4 | 
					| t5 |
					t3 nextPutAll: 'Process: ';
						 print: t4;
						 cr;
						 nextPutAll: '  stack:';
						 cr;
						 cr.
					t5 := t4 isActiveProcess
								ifTrue: [thisContext sender]
								ifFalse: [t4 suspendedContext].
					t5
						ifNotNil: [(t5 stackOfSize: 20)
								do: [:t6 | t3 print: t6;
										 cr]].
					t3 nextPutAll: '------------------------------';
						 cr;
						 cr]]] in StartupUIManager(NonInteractiveUIManager)>>quitFrom:withMessage:
BlockClosure>>ensure:
StartupUIManager(NonInteractiveUIManager)>>quitFrom:withMessage:
StartupUIManager(NonInteractiveUIManager)>>unhandledErrorDefaultAction:
UnhandledError>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
UnhandledError(Exception)>>signal
UnhandledError class>>signalForException:
PrimitiveFailed(Error)>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
PrimitiveFailed(Exception)>>signal
PrimitiveFailed class(SelectorException class)>>signalFor:
Socket(Object)>>primitiveFailed:
------------------------------

Process: a Process in [delaySemaphore wait] in Delay>>wait
  stack:

[delaySemaphore wait] in Delay>>wait
BlockClosure>>ifCurtailed:
Delay>>wait
InputEventPollingFetcher>>waitForInput
InputEventPollingFetcher(InputEventFetcher)>>eventLoop
[self eventLoop] in InputEventPollingFetcher(InputEventFetcher)>>installEventLoop
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------

THERE_BE_DRAGONS_HERE
ZeroDivide
24 August 2011 12:51:42 pm

VM: Mac OS - intel - 1071 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.117] Croquet Cog 4.0.0
Image: Pharo1.3 [Latest update: #13298]

SmallInteger>>/
	Receiver: 1
	Arguments and temporary variables: 
		aNumber: 	0
	Receiver's instance variables: 
1

GRPlatformTest class>>DoIt
	Receiver: GRPlatformTest
	Arguments and temporary variables: 

	Receiver's instance variables: 
		superclass: 	TestCase
		methodDict: 	a MethodDictionary(#decodeUtf8Character:->(GRPlatformTest>>#decodeU...etc...
		format: 	132
		instanceVariables: 	nil
		organization: 	('*comet-tests-core' testForkCometProcessDo)
('accessing' platfor...etc...
		subclasses: 	{WAPlatformTest}
		name: 	#GRPlatformTest
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Grease-Tests-Core'
		traitComposition: 	{}
		localSelectors: 	nil
		history: 	a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc...


Compiler>>evaluate:in:to:notifying:ifFail:logged:
	Receiver: a Compiler
	Arguments and temporary variables: 
		textOrStream: 	a ReadWriteStream 'testGreaseString
	self assert: ''Timberwolf'' ...etc...
		aContext: 	nil
		receiver: 	GRPlatformTest
		aRequestor: 	an OBTextMorph(889716736)
		failBlock: 	[self morph flash.
	^ nil]
		logFlag: 	true
		methodNode: 	DoIt
	^ 1 perform: #/ with: 0
		method: 	(GRPlatformTest class>>#DoIt "a CompiledMethod(850132992)")
		value: 	nil
		toLog: 	nil
		itsSelection: 	nil
		itsSelectionString: 	nil
	Receiver's instance variables: 
		sourceStream: 	a ReadWriteStream 'testGreaseString
	self assert: ''Timberwolf'' ...etc...
		requestor: 	an OBTextMorph(889716736)
		class: 	GRPlatformTest class
		category: 	nil
		context: 	nil
		parser: 	a Parser


[rcvr class evaluatorClass new
		evaluate: self selectionForDoitAsStream
		in: ctxt
		to: rcvr
		notifying: self morph
		ifFail: [self morph flash.
			^ nil]
		logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
	Receiver: a SmalltalkEditor
	Arguments and temporary variables: 
		rcvr: 	GRPlatformTest
		ctxt: 	nil
	Receiver's instance variables: 
		morph: 	an OBTextMorph(889716736)
		selectionShowing: 	true
		model: 	an OBDefinitionPanel
		editingState: 	a SmalltalkEditingState


BlockClosure>>on:do:
	Receiver: [rcvr class evaluatorClass new
		evaluate: self selectionForDoitAsStream
		in: ctxt
		to: ...etc...
	Arguments and temporary variables: 
		exception: 	OutOfScopeNotification
		handlerAction: 	[:ex | ex resume: true]
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	SmalltalkEditor>>evaluateSelectionAndDo:
		startpc: 	106
		numArgs: 	0


SmalltalkEditor>>evaluateSelectionAndDo:
	Receiver: a SmalltalkEditor
	Arguments and temporary variables: 
		aBlock: 	[:result | 
selectionInterval := oldEditor selectionInterval.
	textMorp...etc...
		result: 	nil
		rcvr: 	GRPlatformTest
		ctxt: 	nil
	Receiver's instance variables: 
		morph: 	an OBTextMorph(889716736)
		selectionShowing: 	true
		model: 	an OBDefinitionPanel
		editingState: 	a SmalltalkEditingState


[(oldEditor := textMorph editor)
		evaluateSelectionAndDo: [:result | 
			selectionInterval := oldEditor selectionInterval.
			textMorph installEditorToReplace: oldEditor.
			textMorph
				handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString].
			selectionInterval := oldEditor selectionInterval.
			textMorph editor selectFrom: selectionInterval first to: selectionInterval last.
			self scrollSelectionIntoView]] in OBPluggableShoutTextMorph(PluggableTextMorph)>>printIt
	Receiver: an OBPluggableShoutTextMorph(290193408)
	Arguments and temporary variables: 
		oldEditor: 	an Array(a SmalltalkEditor)
	Receiver's instance variables: 
		bounds: 	119@288 corner: 1073@685
		owner: 	an OBGroupingMorph(895483904)
		submorphs: 	an Array(a TransformMorph(958398464))
		fullBounds: 	119@288 corner: 1073@685
		color: 	Color white
		extension: 	a MorphExtension (884473856)
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBDefinitionPanel
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(297271296)
		scroller: 	a TransformMorph(958398464)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(92536832)
		textMorph: 	an OBTextMorph(889716736)
		getTextSelector: 	#text
		setTextSelector: 	#accept:notifying:
		getSelectionSelector: 	#selection
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	(414 to: 434)
		hasEditingConflicts: 	false
		acceptAction: 	nil
		getColorSelector: 	nil
		unstyledAcceptText: 	nil
		styler: 	a SHTextStylerST80
		styled: 	false
		autoAccept: 	nil
		enabled: 	true
		getEnabledSelector: 	nil
		highlights: 	an OrderedCollection()
		acceptOnFocusChange: 	nil
		selectionColor: 	nil
		alwaysAccept: 	nil
		nullStyler: 	nil
		shoutedStyler: 	nil


OBTextMorph(TextMorph)>>handleEdit:
	Receiver: an OBTextMorph(889716736)
	Arguments and temporary variables: 
		editBlock: 	[(oldEditor := textMorph editor)
		evaluateSelectionAndDo: [:result ...etc...
	Receiver's instance variables: 
		bounds: 	0@0 corner: 948@322
		owner: 	a TransformMorph(958398464)
		submorphs: 	#()
		fullBounds: 	0@0 corner: 948@322
		color: 	Color black
		extension: 	a MorphExtension (909901824) [other:  (myDependents -> a DependentsA...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Bitmap DejaVu Sans 9
		text: 	a Text for 'testGreaseString
	self assert: ''Timberwolf'' greaseString = ...etc...
		wrapFlag: 	true
		paragraph: 	a MultiNewParagraph
		editor: 	a SmalltalkEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil
		editView: 	an OBPluggableShoutTextMorph(290193408)
		acceptOnCR: 	false
		autoAccept: 	false
		acceptOnFocusChange: 	false
		selectionColor: 	nil


OBPluggableShoutTextMorph(PluggableTextMorph)>>printIt
	Receiver: an OBPluggableShoutTextMorph(290193408)
	Arguments and temporary variables: 
		oldEditor: 	an Array(a SmalltalkEditor)
	Receiver's instance variables: 
		bounds: 	119@288 corner: 1073@685
		owner: 	an OBGroupingMorph(895483904)
		submorphs: 	an Array(a TransformMorph(958398464))
		fullBounds: 	119@288 corner: 1073@685
		color: 	Color white
		extension: 	a MorphExtension (884473856)
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBDefinitionPanel
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(297271296)
		scroller: 	a TransformMorph(958398464)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(92536832)
		textMorph: 	an OBTextMorph(889716736)
		getTextSelector: 	#text
		setTextSelector: 	#accept:notifying:
		getSelectionSelector: 	#selection
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	(414 to: 434)
		hasEditingConflicts: 	false
		acceptAction: 	nil
		getColorSelector: 	nil
		unstyledAcceptText: 	nil
		styler: 	a SHTextStylerST80
		styled: 	false
		autoAccept: 	nil
		enabled: 	true
		getEnabledSelector: 	nil
		highlights: 	an OrderedCollection()
		acceptOnFocusChange: 	nil
		selectionColor: 	nil
		alwaysAccept: 	nil
		nullStyler: 	nil
		shoutedStyler: 	nil


OBTextMorphSelection>>printIt
	Receiver: an OBTextMorphSelection
	Arguments and temporary variables: 

	Receiver's instance variables: 
		selection: 	(414 to: 434)
		text: 	a Text for 'testGreaseString
	self assert: ''Timberwolf'' greaseString = ...etc...
		morph: 	an OBPluggableShoutTextMorph(290193408)


OBPrintItTextCommand>>execute
	Receiver: an OBPrintItTextCommand
	Arguments and temporary variables: 

	Receiver's instance variables: 
		target: 	an OBTextMorphSelection
		requestor: 	an OBDefinitionPanel


[:each | 
(each isActive
			and: [each isEnabled])
		ifTrue: [each execute.
			^ true].
	nil] in OBTextCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
	Receiver: an OBTextCommandScan
	Arguments and temporary variables: 
		each: 	an OBPrintItTextCommand
	Receiver's instance variables: 
		factories: 	an OrderedCollection(ORCmdAbstractInstVarRefactoring ORCmdSplitClass...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(an OBPrintItTextCommand)
	Arguments and temporary variables: 
		aBlock: 	[:each | 
(each isActive
			and: [each isEnabled])
		ifTrue: [each exec...etc...
		index: 	3
	Receiver's instance variables: 
		array: 	an Array(nil nil an OBPrintItTextCommand nil nil nil nil nil nil nil)
		firstIndex: 	3
		lastIndex: 	3


OBTextCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
	Receiver: an OBTextCommandScan
	Arguments and temporary variables: 
		aKeystroke: 	cmd+p
		aNode: 	an OBTextMorphSelection
		aRequestor: 	an OBDefinitionPanel
	Receiver's instance variables: 
		factories: 	an OrderedCollection(ORCmdAbstractInstVarRefactoring ORCmdSplitClass...etc...


OBDefinitionPanel(OBTextPanel)>>keystroke:selection:
	Receiver: an OBDefinitionPanel
	Arguments and temporary variables: 
		aKeystroke: 	cmd+p
		aTextSelection: 	an OBTextMorphSelection
	Receiver's instance variables: 
		browser: 	an OBSystemBrowser
		definition: 	an ORMethodDefinition
		selection: 	(1 to: 0)


OBTextMorph>>keyStroke:
	Receiver: an OBTextMorph(889716736)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
	Receiver's instance variables: 
		bounds: 	0@0 corner: 948@322
		owner: 	a TransformMorph(958398464)
		submorphs: 	#()
		fullBounds: 	0@0 corner: 948@322
		color: 	Color black
		extension: 	a MorphExtension (909901824) [other:  (myDependents -> a DependentsA...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Bitmap DejaVu Sans 9
		text: 	a Text for 'testGreaseString
	self assert: ''Timberwolf'' greaseString = ...etc...
		wrapFlag: 	true
		paragraph: 	a MultiNewParagraph
		editor: 	a SmalltalkEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil
		editView: 	an OBPluggableShoutTextMorph(290193408)
		acceptOnCR: 	false
		autoAccept: 	false
		acceptOnFocusChange: 	false
		selectionColor: 	nil


OBTextMorph(TextMorph)>>handleKeystroke:
	Receiver: an OBTextMorph(889716736)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
		pasteUp: 	nil
	Receiver's instance variables: 
		bounds: 	0@0 corner: 948@322
		owner: 	a TransformMorph(958398464)
		submorphs: 	#()
		fullBounds: 	0@0 corner: 948@322
		color: 	Color black
		extension: 	a MorphExtension (909901824) [other:  (myDependents -> a DependentsA...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Bitmap DejaVu Sans 9
		text: 	a Text for 'testGreaseString
	self assert: ''Timberwolf'' greaseString = ...etc...
		wrapFlag: 	true
		paragraph: 	a MultiNewParagraph
		editor: 	a SmalltalkEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil
		editView: 	an OBPluggableShoutTextMorph(290193408)
		acceptOnCR: 	false
		autoAccept: 	false
		acceptOnFocusChange: 	false
		selectionColor: 	nil


KeyboardEvent>>sentTo:
	Receiver: [keystroke '<Cmd-p>']
	Arguments and temporary variables: 
		anObject: 	an OBTextMorph(889716736)
	Receiver's instance variables: 
		timeStamp: 	354315
		source: 	a HandMorph(843055104)
		windowIndex: 	nil
		type: 	#keystroke
		buttons: 	64
		position: 	171@152
		handler: 	nil
		wasHandled: 	true
		keyValue: 	112
		charCode: 	112
		scanCode: 	35


OBTextMorph(Morph)>>handleEvent:
	Receiver: an OBTextMorph(889716736)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
	Receiver's instance variables: 
		bounds: 	0@0 corner: 948@322
		owner: 	a TransformMorph(958398464)
		submorphs: 	#()
		fullBounds: 	0@0 corner: 948@322
		color: 	Color black
		extension: 	a MorphExtension (909901824) [other:  (myDependents -> a DependentsA...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Bitmap DejaVu Sans 9
		text: 	a Text for 'testGreaseString
	self assert: ''Timberwolf'' greaseString = ...etc...
		wrapFlag: 	true
		paragraph: 	a MultiNewParagraph
		editor: 	a SmalltalkEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil
		editView: 	an OBPluggableShoutTextMorph(290193408)
		acceptOnCR: 	false
		autoAccept: 	false
		acceptOnFocusChange: 	false
		selectionColor: 	nil


OBTextMorph(Morph)>>handleFocusEvent:
	Receiver: an OBTextMorph(889716736)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
	Receiver's instance variables: 
		bounds: 	0@0 corner: 948@322
		owner: 	a TransformMorph(958398464)
		submorphs: 	#()
		fullBounds: 	0@0 corner: 948@322
		color: 	Color black
		extension: 	a MorphExtension (909901824) [other:  (myDependents -> a DependentsA...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Bitmap DejaVu Sans 9
		text: 	a Text for 'testGreaseString
	self assert: ''Timberwolf'' greaseString = ...etc...
		wrapFlag: 	true
		paragraph: 	a MultiNewParagraph
		editor: 	a SmalltalkEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil
		editView: 	an OBPluggableShoutTextMorph(290193408)
		acceptOnCR: 	false
		autoAccept: 	false
		acceptOnFocusChange: 	false
		selectionColor: 	nil


[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
		focusHolder: 	an OBTextMorph(889716736)
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	293@440 corner: 309@456
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(654311424)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[293@440 293@440 mouseMove CMD 353984 nil]
		targetOffset: 	45@155
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 353984 293 440 0 8 0 1)
		lastKeyScanCode: 	35
		combinedChar: 	nil


[aBlock value] in PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1280@800
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(670040064) an OB...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


BlockClosure>>on:do:
	Receiver: [aBlock value]
	Arguments and temporary variables: 
		exception: 	Error
		handlerAction: 	[:ex | 
ActiveWorld := priorWorld.
	ActiveEvent := priorEvent.
	...etc...
		handlerActive: 	false
	Receiver's instance variables: 
		outerContext: 	PasteUpMorph>>becomeActiveDuring:
		startpc: 	67
		numArgs: 	0


PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
		priorWorld: 	a PasteUpMorph(425197568) [world]
		priorHand: 	a HandMorph(843055104)
		priorEvent: 	nil
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1280@800
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(670040064) an OB...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
		focusHolder: 	an OBTextMorph(889716736)
		aBlock: 	[self keyboardFocus: nil]
		w: 	a PasteUpMorph(425197568) [world]
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	293@440 corner: 309@456
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(654311424)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[293@440 293@440 mouseMove CMD 353984 nil]
		targetOffset: 	45@155
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 353984 293 440 0 8 0 1)
		lastKeyScanCode: 	35
		combinedChar: 	nil


HandMorph>>sendEvent:focus:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
		focusHolder: 	an OBTextMorph(889716736)
		aBlock: 	[self keyboardFocus: nil]
		result: 	nil
	Receiver's instance variables: 
		bounds: 	293@440 corner: 309@456
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(654311424)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[293@440 293@440 mouseMove CMD 353984 nil]
		targetOffset: 	45@155
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 353984 293 440 0 8 0 1)
		lastKeyScanCode: 	35
		combinedChar: 	nil


HandMorph>>sendKeyboardEvent:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
	Receiver's instance variables: 
		bounds: 	293@440 corner: 309@456
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(654311424)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[293@440 293@440 mouseMove CMD 353984 nil]
		targetOffset: 	45@155
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 353984 293 440 0 8 0 1)
		lastKeyScanCode: 	35
		combinedChar: 	nil


HandMorph>>handleEvent:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-p>']
		evt: 	[keystroke '<Cmd-p>']
		ofs: 	nil
	Receiver's instance variables: 
		bounds: 	293@440 corner: 309@456
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(654311424)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[293@440 293@440 mouseMove CMD 353984 nil]
		targetOffset: 	45@155
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 353984 293 440 0 8 0 1)
		lastKeyScanCode: 	35
		combinedChar: 	nil


HandMorph>>processEvents
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		evt: 	[keystroke '<Cmd-p>']
		evtBuf: 	#(2 354315 112 0 8 112 0 1)
		type: 	2
		hadAny: 	true
	Receiver's instance variables: 
		bounds: 	293@440 corner: 309@456
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(654311424)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[293@440 293@440 mouseMove CMD 353984 nil]
		targetOffset: 	45@155
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 353984 293 440 0 8 0 1)
		lastKeyScanCode: 	35
		combinedChar: 	nil


[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
	Receiver: a WorldState
	Arguments and temporary variables: 
		h: 	a HandMorph(843055104)
	Receiver's instance variables: 
		hands: 	an Array(a HandMorph(843055104))
		viewBox: 	0@0 corner: 1280@800
		canvas: 	a FormCanvas on: DisplayScreen(1280x800x32)
		damageRecorder: 	a DamageRecorder
		stepList: 	a Heap(StepMessage(#stepAt: -> a PreDebugWindow(670040064))(a PreDebu...etc...
		lastStepTime: 	354301
		lastStepMessage: 	nil
		lastCycleTime: 	354342
		alarms: 	a Heap()
		lastAlarmTime: 	354301
		menuBuilder: 	a PragmaMenuBuilder


Array(SequenceableCollection)>>do:
	Receiver: an Array(a HandMorph(843055104))
	Arguments and temporary variables: 
		aBlock: 	[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil]
		index: 	1
		indexLimiT: 	1
	Receiver's instance variables: 
an Array(a HandMorph(843055104))

WorldState>>handsDo:
	Receiver: a WorldState
	Arguments and temporary variables: 
		aBlock: 	[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil]
	Receiver's instance variables: 
		hands: 	an Array(a HandMorph(843055104))
		viewBox: 	0@0 corner: 1280@800
		canvas: 	a FormCanvas on: DisplayScreen(1280x800x32)
		damageRecorder: 	a DamageRecorder
		stepList: 	a Heap(StepMessage(#stepAt: -> a PreDebugWindow(670040064))(a PreDebu...etc...
		lastStepTime: 	354301
		lastStepMessage: 	nil
		lastCycleTime: 	354342
		alarms: 	a Heap()
		lastAlarmTime: 	354301
		menuBuilder: 	a PragmaMenuBuilder


WorldState>>doOneCycleNowFor:
	Receiver: a WorldState
	Arguments and temporary variables: 
		aWorld: 	a PasteUpMorph(425197568) [world]
	Receiver's instance variables: 
		hands: 	an Array(a HandMorph(843055104))
		viewBox: 	0@0 corner: 1280@800
		canvas: 	a FormCanvas on: DisplayScreen(1280x800x32)
		damageRecorder: 	a DamageRecorder
		stepList: 	a Heap(StepMessage(#stepAt: -> a PreDebugWindow(670040064))(a PreDebu...etc...
		lastStepTime: 	354301
		lastStepMessage: 	nil
		lastCycleTime: 	354342
		alarms: 	a Heap()
		lastAlarmTime: 	354301
		menuBuilder: 	a PragmaMenuBuilder


WorldState>>doOneCycleFor:
	Receiver: a WorldState
	Arguments and temporary variables: 
		aWorld: 	a PasteUpMorph(425197568) [world]
	Receiver's instance variables: 
		hands: 	an Array(a HandMorph(843055104))
		viewBox: 	0@0 corner: 1280@800
		canvas: 	a FormCanvas on: DisplayScreen(1280x800x32)
		damageRecorder: 	a DamageRecorder
		stepList: 	a Heap(StepMessage(#stepAt: -> a PreDebugWindow(670040064))(a PreDebu...etc...
		lastStepTime: 	354301
		lastStepMessage: 	nil
		lastCycleTime: 	354342
		alarms: 	a Heap()
		lastAlarmTime: 	354301
		menuBuilder: 	a PragmaMenuBuilder


PasteUpMorph>>doOneCycle
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	0@0 corner: 1280@800
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(670040064) an OB...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in Project class>>spawnNewProcess
	Receiver: Project
	Arguments and temporary variables: 

	Receiver's instance variables: 
		superclass: 	Model
		methodDict: 	a MethodDictionary()
		format: 	132
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#Project
		classPool: 	a Dictionary(#UIProcess->a Process in nil )
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'System-Support'
		traitComposition: 	{}
		localSelectors: 	nil


[self value.
	Processor terminateActive] in BlockClosure>>newProcess
	Receiver: [[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil]
	Arguments and temporary variables: 

	Receiver's instance variables: 
		outerContext: 	Project class>>spawnNewProcess
		startpc: 	57
		numArgs: 	0



--- The full stack ---
SmallInteger>>/
GRPlatformTest class>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
[rcvr class evaluatorClass new
		evaluate: self selectionForDoitAsStream
		in: ctxt
		to: rcvr
		notifying: self morph
		ifFail: [self morph flash.
			^ nil]
		logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
BlockClosure>>on:do:
SmalltalkEditor>>evaluateSelectionAndDo:
[(oldEditor := textMorph editor)
		evaluateSelectionAndDo: [:result | 
			selectionInterval := oldEditor selectionInterval.
			textMorph installEditorToReplace: oldEditor.
			textMorph
				handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString].
			selectionInterval := oldEditor selectionInterval.
			textMorph editor selectFrom: selectionInterval first to: selectionInterval last.
			self scrollSelectionIntoView]] in OBPluggableShoutTextMorph(PluggableTextMorph)>>printIt
OBTextMorph(TextMorph)>>handleEdit:
OBPluggableShoutTextMorph(PluggableTextMorph)>>printIt
OBTextMorphSelection>>printIt
OBPrintItTextCommand>>execute
[:each | 
(each isActive
			and: [each isEnabled])
		ifTrue: [each execute.
			^ true].
	nil] in OBTextCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
OrderedCollection>>do:
OBTextCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
OBDefinitionPanel(OBTextPanel)>>keystroke:selection:
OBTextMorph>>keyStroke:
OBTextMorph(TextMorph)>>handleKeystroke:
KeyboardEvent>>sentTo:
OBTextMorph(Morph)>>handleEvent:
OBTextMorph(Morph)>>handleFocusEvent:
[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendKeyboardEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in Project class>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------

THERE_BE_DRAGONS_HERE
TestFailure: Assertion failed
27 August 2011 3:23:11 pm

VM: Mac OS - intel - 1071 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.117] Croquet Cog 4.0.0
Image: Pharo1.3 [Latest update: #13298]

WARequestTest(TestCase)>>signalFailure:
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 
		aString: 	'Assertion failed'
	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


WARequestTest(TestCase)>>assert:
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 
		aBoolean: 	false
	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


WARequestTest>>testBasicAuthorisation
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 
		request: 	a WARequest method: GET uri: /foo?bar=1 version: HTTP/1.1
		headers: 	a Dictionary('authorization'->'Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==' )
	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


WARequestTest(TestCase)>>performTest
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


[self setUp.
	self performTest] in WARequestTest(TestCase)>>runCase
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


BlockClosure>>ensure:
	Receiver: [self setUp.
	self performTest]
	Arguments and temporary variables: 
		aBlock: 	[self tearDown.
	self cleanUpInstanceVariables]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	WARequestTest(TestCase)>>runCase
		startpc: 	57
		numArgs: 	0


WARequestTest(TestCase)>>runCase
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


[(self class selector: testSelector) runCase] in WARequestTest(TestCase)>>debug
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


BlockClosure>>ensure:
	Receiver: [(self class selector: testSelector) runCase]
	Arguments and temporary variables: 
		aBlock: 	[TestResource resetResources: self resources]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	WARequestTest(TestCase)>>debug
		startpc: 	41
		numArgs: 	0


WARequestTest(TestCase)>>debug
	Receiver: WARequestTest>>#testBasicAuthorisation
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testBasicAuthorisation


OBCmdRunTests>>execute
	Receiver: an OBCmdRunTests
	Arguments and temporary variables: 
		result: 	1 run, 0 passes, 0 expected failures, 1 failures, 0 errors, 0 unexpecte...etc...
		defect: 	WARequestTest>>#testBasicAuthorisation
	Receiver's instance variables: 
		target: 	OBMethodNode<WARequestTest#testBasicAuthorisation>
		requestor: 	an OBColumn(testBasicAuthorisation)


[:each | 
(each isActive
			and: [each isEnabled])
		ifTrue: [each execute.
			^ true].
	nil] in OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
	Receiver: an OBNodeCommandScan
	Arguments and temporary variables: 
		each: 	an OBCmdRunTests
	Receiver's instance variables: 
		factories: 	an OrderedCollection(ORCmdAbstractInstVarRefactoring ORCmdCategoryRe...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(an OBCmdRunTests)
	Arguments and temporary variables: 
		aBlock: 	[:each | 
(each isActive
			and: [each isEnabled])
		ifTrue: [each exec...etc...
		index: 	3
	Receiver's instance variables: 
		array: 	an Array(nil nil an OBCmdRunTests nil nil nil nil nil nil nil)
		firstIndex: 	3
		lastIndex: 	3


OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
	Receiver: an OBNodeCommandScan
	Arguments and temporary variables: 
		aKeystroke: 	cmd+t
		aNode: 	OBMethodNode<WARequestTest#testBasicAuthorisation>
		aRequestor: 	an OBColumn(testBasicAuthorisation)
	Receiver's instance variables: 
		factories: 	an OrderedCollection(ORCmdAbstractInstVarRefactoring ORCmdCategoryRe...etc...


[:each | 
(scan
			processKeystroke: aCharacter asKeystroke
			withNode: each
			for: self)
		ifTrue: [^ self].
	nil] in OBColumn>>keystroke:from:
	Receiver: an OBColumn(testBasicAuthorisation)
	Arguments and temporary variables: 
		aCharacter: 	OBMethodNode<WARequestTest#testBasicAuthorisation>
		scan: 	$t
		each: 	an OBNodeCommandScan
	Receiver's instance variables: 
		panel: 	an OBColumnPanel
		switch: 	an OBSwitch
		listHolder: 	an OBList


OrderedCollection>>reverseDo:
	Receiver: an OrderedCollection(an OBEnvironmentNode OBClassCategoryNode<Seaside-Tests-Core-HTTP> OBC...etc...
	Arguments and temporary variables: 
		aBlock: 	[:each | 
(scan
			processKeystroke: aCharacter asKeystroke
			withNode...etc...
		index: 	7
	Receiver's instance variables: 
		array: 	an Array(nil nil an OBEnvironmentNode OBClassCategoryNode<Seaside-Tests-...etc...
		firstIndex: 	3
		lastIndex: 	7


OBColumn>>keystroke:from:
	Receiver: an OBColumn(testBasicAuthorisation)
	Arguments and temporary variables: 
		aCharacter: 	$t
		aMorph: 	an OBPluggableListMorph(402653184)
		scan: 	an OBNodeCommandScan
		nodes: 	an OrderedCollection(an OBEnvironmentNode OBClassCategoryNode<Seaside-Te...etc...
	Receiver's instance variables: 
		panel: 	an OBColumnPanel
		switch: 	an OBSwitch
		listHolder: 	an OBList


OBPluggableListMorph(PluggableListMorph)>>modifierKeyPressed:
	Receiver: an OBPluggableListMorph(402653184)
	Arguments and temporary variables: 
		aChar: 	$t
		args: 	2
	Receiver's instance variables: 
		bounds: 	634@0 corner: 842@246
		owner: 	an OBPane(387973120)
		submorphs: 	an Array(a TransformMorph(1070071808))
		fullBounds: 	634@0 corner: 842@246
		color: 	Color white
		extension: 	a MorphExtension (563871744) [other:  (dragEnabled -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBColumn(testBasicAuthorisation)
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(409993216)
		scroller: 	a TransformMorph(1070071808)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(204210176)
		list: 	nil
		getListSelector: 	#list
		getListSizeSelector: 	#listSize
		getListElementSelector: 	#listAt:
		getIndexSelector: 	#selection
		setIndexSelector: 	#selection:
		keystrokeActionSelector: 	#keystroke:from:
		autoDeselect: 	false
		lastKeystrokeTime: 	0
		lastKeystrokes: 	''
		doubleClickSelector: 	#doubleClick
		handlesBasicKeys: 	nil
		potentialDropRow: 	0
		listMorph: 	an OBLazyListMorph(225705984)
		hScrollRangeCache: 	nil
		dragItemSelector: 	nil
		dropItemSelector: 	nil
		wantsDropSelector: 	nil
		wrapSelector: 	nil
		searchedElement: 	nil
		multipleSelection: 	false
		dragOnOrOff: 	nil
		setSelectionListSelector: 	nil
		getSelectionListSelector: 	nil
		resetListSelector: 	nil


OBPluggableListMorph(PluggableListMorph)>>keyStroke:
	Receiver: an OBPluggableListMorph(402653184)
	Arguments and temporary variables: 
		event: 	[keystroke '<Cmd-t>']
		aChar: 	$t
		aSpecialKey: 	116
	Receiver's instance variables: 
		bounds: 	634@0 corner: 842@246
		owner: 	an OBPane(387973120)
		submorphs: 	an Array(a TransformMorph(1070071808))
		fullBounds: 	634@0 corner: 842@246
		color: 	Color white
		extension: 	a MorphExtension (563871744) [other:  (dragEnabled -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBColumn(testBasicAuthorisation)
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(409993216)
		scroller: 	a TransformMorph(1070071808)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(204210176)
		list: 	nil
		getListSelector: 	#list
		getListSizeSelector: 	#listSize
		getListElementSelector: 	#listAt:
		getIndexSelector: 	#selection
		setIndexSelector: 	#selection:
		keystrokeActionSelector: 	#keystroke:from:
		autoDeselect: 	false
		lastKeystrokeTime: 	0
		lastKeystrokes: 	''
		doubleClickSelector: 	#doubleClick
		handlesBasicKeys: 	nil
		potentialDropRow: 	0
		listMorph: 	an OBLazyListMorph(225705984)
		hScrollRangeCache: 	nil
		dragItemSelector: 	nil
		dropItemSelector: 	nil
		wantsDropSelector: 	nil
		wrapSelector: 	nil
		searchedElement: 	nil
		multipleSelection: 	false
		dragOnOrOff: 	nil
		setSelectionListSelector: 	nil
		getSelectionListSelector: 	nil
		resetListSelector: 	nil


OBPluggableListMorph(Morph)>>handleKeystroke:
	Receiver: an OBPluggableListMorph(402653184)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
	Receiver's instance variables: 
		bounds: 	634@0 corner: 842@246
		owner: 	an OBPane(387973120)
		submorphs: 	an Array(a TransformMorph(1070071808))
		fullBounds: 	634@0 corner: 842@246
		color: 	Color white
		extension: 	a MorphExtension (563871744) [other:  (dragEnabled -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBColumn(testBasicAuthorisation)
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(409993216)
		scroller: 	a TransformMorph(1070071808)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(204210176)
		list: 	nil
		getListSelector: 	#list
		getListSizeSelector: 	#listSize
		getListElementSelector: 	#listAt:
		getIndexSelector: 	#selection
		setIndexSelector: 	#selection:
		keystrokeActionSelector: 	#keystroke:from:
		autoDeselect: 	false
		lastKeystrokeTime: 	0
		lastKeystrokes: 	''
		doubleClickSelector: 	#doubleClick
		handlesBasicKeys: 	nil
		potentialDropRow: 	0
		listMorph: 	an OBLazyListMorph(225705984)
		hScrollRangeCache: 	nil
		dragItemSelector: 	nil
		dropItemSelector: 	nil
		wantsDropSelector: 	nil
		wrapSelector: 	nil
		searchedElement: 	nil
		multipleSelection: 	false
		dragOnOrOff: 	nil
		setSelectionListSelector: 	nil
		getSelectionListSelector: 	nil
		resetListSelector: 	nil


KeyboardEvent>>sentTo:
	Receiver: [keystroke '<Cmd-t>']
	Arguments and temporary variables: 
		anObject: 	an OBPluggableListMorph(402653184)
	Receiver's instance variables: 
		timeStamp: 	1375147
		source: 	a HandMorph(843055104)
		windowIndex: 	nil
		type: 	#keystroke
		buttons: 	64
		position: 	666@37
		handler: 	nil
		wasHandled: 	true
		keyValue: 	116
		charCode: 	116
		scanCode: 	17


OBPluggableListMorph(Morph)>>handleEvent:
	Receiver: an OBPluggableListMorph(402653184)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
	Receiver's instance variables: 
		bounds: 	634@0 corner: 842@246
		owner: 	an OBPane(387973120)
		submorphs: 	an Array(a TransformMorph(1070071808))
		fullBounds: 	634@0 corner: 842@246
		color: 	Color white
		extension: 	a MorphExtension (563871744) [other:  (dragEnabled -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBColumn(testBasicAuthorisation)
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(409993216)
		scroller: 	a TransformMorph(1070071808)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(204210176)
		list: 	nil
		getListSelector: 	#list
		getListSizeSelector: 	#listSize
		getListElementSelector: 	#listAt:
		getIndexSelector: 	#selection
		setIndexSelector: 	#selection:
		keystrokeActionSelector: 	#keystroke:from:
		autoDeselect: 	false
		lastKeystrokeTime: 	0
		lastKeystrokes: 	''
		doubleClickSelector: 	#doubleClick
		handlesBasicKeys: 	nil
		potentialDropRow: 	0
		listMorph: 	an OBLazyListMorph(225705984)
		hScrollRangeCache: 	nil
		dragItemSelector: 	nil
		dropItemSelector: 	nil
		wantsDropSelector: 	nil
		wrapSelector: 	nil
		searchedElement: 	nil
		multipleSelection: 	false
		dragOnOrOff: 	nil
		setSelectionListSelector: 	nil
		getSelectionListSelector: 	nil
		resetListSelector: 	nil


MorphicEventDispatcher>>dispatchDefault:with:
	Receiver: a MorphicEventDispatcher
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
		aMorph: 	an OBPluggableListMorph(402653184)
		localEvt: 	[keystroke '<Cmd-t>']
		index: 	2
		child: 	a TransformMorph(1070071808)
		morphs: 	an Array(a TransformMorph(1070071808))
		inside: 	true
	Receiver's instance variables: 
		lastType: 	#keystroke
		lastDispatch: 	#dispatchDefault:with:


MorphicEventDispatcher>>dispatchEvent:with:
	Receiver: a MorphicEventDispatcher
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
		aMorph: 	an OBPluggableListMorph(402653184)
	Receiver's instance variables: 
		lastType: 	#keystroke
		lastDispatch: 	#dispatchDefault:with:


OBPluggableListMorph(Morph)>>processEvent:using:
	Receiver: an OBPluggableListMorph(402653184)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
		defaultDispatcher: 	a MorphicEventDispatcher
	Receiver's instance variables: 
		bounds: 	634@0 corner: 842@246
		owner: 	an OBPane(387973120)
		submorphs: 	an Array(a TransformMorph(1070071808))
		fullBounds: 	634@0 corner: 842@246
		color: 	Color white
		extension: 	a MorphExtension (563871744) [other:  (dragEnabled -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBColumn(testBasicAuthorisation)
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(409993216)
		scroller: 	a TransformMorph(1070071808)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(204210176)
		list: 	nil
		getListSelector: 	#list
		getListSizeSelector: 	#listSize
		getListElementSelector: 	#listAt:
		getIndexSelector: 	#selection
		setIndexSelector: 	#selection:
		keystrokeActionSelector: 	#keystroke:from:
		autoDeselect: 	false
		lastKeystrokeTime: 	0
		lastKeystrokes: 	''
		doubleClickSelector: 	#doubleClick
		handlesBasicKeys: 	nil
		potentialDropRow: 	0
		listMorph: 	an OBLazyListMorph(225705984)
		hScrollRangeCache: 	nil
		dragItemSelector: 	nil
		dropItemSelector: 	nil
		wantsDropSelector: 	nil
		wrapSelector: 	nil
		searchedElement: 	nil
		multipleSelection: 	false
		dragOnOrOff: 	nil
		setSelectionListSelector: 	nil
		getSelectionListSelector: 	nil
		resetListSelector: 	nil


OBPluggableListMorph(Morph)>>processEvent:
	Receiver: an OBPluggableListMorph(402653184)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
	Receiver's instance variables: 
		bounds: 	634@0 corner: 842@246
		owner: 	an OBPane(387973120)
		submorphs: 	an Array(a TransformMorph(1070071808))
		fullBounds: 	634@0 corner: 842@246
		color: 	Color white
		extension: 	a MorphExtension (563871744) [other:  (dragEnabled -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBColumn(testBasicAuthorisation)
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(409993216)
		scroller: 	a TransformMorph(1070071808)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(204210176)
		list: 	nil
		getListSelector: 	#list
		getListSizeSelector: 	#listSize
		getListElementSelector: 	#listAt:
		getIndexSelector: 	#selection
		setIndexSelector: 	#selection:
		keystrokeActionSelector: 	#keystroke:from:
		autoDeselect: 	false
		lastKeystrokeTime: 	0
		lastKeystrokes: 	''
		doubleClickSelector: 	#doubleClick
		handlesBasicKeys: 	nil
		potentialDropRow: 	0
		listMorph: 	an OBLazyListMorph(225705984)
		hScrollRangeCache: 	nil
		dragItemSelector: 	nil
		dropItemSelector: 	nil
		wantsDropSelector: 	nil
		wrapSelector: 	nil
		searchedElement: 	nil
		multipleSelection: 	false
		dragOnOrOff: 	nil
		setSelectionListSelector: 	nil
		getSelectionListSelector: 	nil
		resetListSelector: 	nil


OBPluggableListMorph(PluggableListMorph)>>handleFocusEvent:
	Receiver: an OBPluggableListMorph(402653184)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
	Receiver's instance variables: 
		bounds: 	634@0 corner: 842@246
		owner: 	an OBPane(387973120)
		submorphs: 	an Array(a TransformMorph(1070071808))
		fullBounds: 	634@0 corner: 842@246
		color: 	Color white
		extension: 	a MorphExtension (563871744) [other:  (dragEnabled -> true) (dropEna...etc...
		borderWidth: 	0
		borderColor: 	Color black
		model: 	an OBColumn(testBasicAuthorisation)
		slotName: 	nil
		open: 	false
		scrollBar: 	a ScrollBar(409993216)
		scroller: 	a TransformMorph(1070071808)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:
		getMenuTitleSelector: 	nil
		hasFocus: 	true
		hScrollBar: 	a ScrollBar(204210176)
		list: 	nil
		getListSelector: 	#list
		getListSizeSelector: 	#listSize
		getListElementSelector: 	#listAt:
		getIndexSelector: 	#selection
		setIndexSelector: 	#selection:
		keystrokeActionSelector: 	#keystroke:from:
		autoDeselect: 	false
		lastKeystrokeTime: 	0
		lastKeystrokes: 	''
		doubleClickSelector: 	#doubleClick
		handlesBasicKeys: 	nil
		potentialDropRow: 	0
		listMorph: 	an OBLazyListMorph(225705984)
		hScrollRangeCache: 	nil
		dragItemSelector: 	nil
		dropItemSelector: 	nil
		wantsDropSelector: 	nil
		wrapSelector: 	nil
		searchedElement: 	nil
		multipleSelection: 	false
		dragOnOrOff: 	nil
		setSelectionListSelector: 	nil
		getSelectionListSelector: 	nil
		resetListSelector: 	nil


[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
		focusHolder: 	an OBPluggableListMorph(402653184)
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	682@69 corner: 698@85
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(409993216)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[682@69 682@69 mouseMove CMD 1374865 nil]
		targetOffset: 	32@37
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 1374865 682 69 0 8 0 1)
		lastKeyScanCode: 	17
		combinedChar: 	nil


[aBlock value] in PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1280@800
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(418906112) an OB...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


BlockClosure>>on:do:
	Receiver: [aBlock value]
	Arguments and temporary variables: 
		exception: 	Error
		handlerAction: 	[:ex | 
ActiveWorld := priorWorld.
	ActiveEvent := priorEvent.
	...etc...
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	PasteUpMorph>>becomeActiveDuring:
		startpc: 	67
		numArgs: 	0


PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
		priorWorld: 	a PasteUpMorph(425197568) [world]
		priorHand: 	a HandMorph(843055104)
		priorEvent: 	nil
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1280@800
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(418906112) an OB...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
		focusHolder: 	an OBPluggableListMorph(402653184)
		aBlock: 	[self keyboardFocus: nil]
		w: 	a PasteUpMorph(425197568) [world]
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	682@69 corner: 698@85
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(409993216)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[682@69 682@69 mouseMove CMD 1374865 nil]
		targetOffset: 	32@37
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 1374865 682 69 0 8 0 1)
		lastKeyScanCode: 	17
		combinedChar: 	nil


HandMorph>>sendEvent:focus:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
		focusHolder: 	an OBPluggableListMorph(402653184)
		aBlock: 	[self keyboardFocus: nil]
		result: 	nil
	Receiver's instance variables: 
		bounds: 	682@69 corner: 698@85
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(409993216)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[682@69 682@69 mouseMove CMD 1374865 nil]
		targetOffset: 	32@37
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 1374865 682 69 0 8 0 1)
		lastKeyScanCode: 	17
		combinedChar: 	nil


HandMorph>>sendKeyboardEvent:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
	Receiver's instance variables: 
		bounds: 	682@69 corner: 698@85
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(409993216)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[682@69 682@69 mouseMove CMD 1374865 nil]
		targetOffset: 	32@37
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 1374865 682 69 0 8 0 1)
		lastKeyScanCode: 	17
		combinedChar: 	nil


HandMorph>>handleEvent:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[keystroke '<Cmd-t>']
		evt: 	[keystroke '<Cmd-t>']
		ofs: 	nil
	Receiver's instance variables: 
		bounds: 	682@69 corner: 698@85
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(409993216)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[682@69 682@69 mouseMove CMD 1374865 nil]
		targetOffset: 	32@37
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 1374865 682 69 0 8 0 1)
		lastKeyScanCode: 	17
		combinedChar: 	nil


HandMorph>>processEvents
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		evt: 	[keystroke '<Cmd-t>']
		evtBuf: 	#(2 1375147 116 0 8 116 0 1)
		type: 	2
		hadAny: 	true
	Receiver's instance variables: 
		bounds: 	682@69 corner: 698@85
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(409993216)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[682@69 682@69 mouseMove CMD 1374865 nil]
		targetOffset: 	32@37
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 1374865 682 69 0 8 0 1)
		lastKeyScanCode: 	17
		combinedChar: 	nil


[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
	Receiver: a WorldState
	Arguments and temporary variables: 
		h: 	a HandMorph(843055104)
	Receiver's instance variables: 
		hands: 	an Array(a HandMorph(843055104))
		viewBox: 	0@0 corner: 1280@800
		canvas: 	a FormCanvas on: DisplayScreen(1280x800x32)
		damageRecorder: 	a DamageRecorder
		stepList: 	a Heap(StepMessage(#stepAt: -> an OBSystemWindow(223870976))(an OBSys...etc...
		lastStepTime: 	1375131
		lastStepMessage: 	nil
		lastCycleTime: 	1375172
		alarms: 	a Heap()
		lastAlarmTime: 	1375131
		menuBuilder: 	a PragmaMenuBuilder


Array(SequenceableCollection)>>do:
	Receiver: an Array(a HandMorph(843055104))
	Arguments and temporary variables: 
		aBlock: 	[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil]
		index: 	1
		indexLimiT: 	1
	Receiver's instance variables: 
an Array(a HandMorph(843055104))

WorldState>>handsDo:
	Receiver: a WorldState
	Arguments and temporary variables: 
		aBlock: 	[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil]
	Receiver's instance variables: 
		hands: 	an Array(a HandMorph(843055104))
		viewBox: 	0@0 corner: 1280@800
		canvas: 	a FormCanvas on: DisplayScreen(1280x800x32)
		damageRecorder: 	a DamageRecorder
		stepList: 	a Heap(StepMessage(#stepAt: -> an OBSystemWindow(223870976))(an OBSys...etc...
		lastStepTime: 	1375131
		lastStepMessage: 	nil
		lastCycleTime: 	1375172
		alarms: 	a Heap()
		lastAlarmTime: 	1375131
		menuBuilder: 	a PragmaMenuBuilder



--- The full stack ---
WARequestTest(TestCase)>>signalFailure:
WARequestTest(TestCase)>>assert:
WARequestTest>>testBasicAuthorisation
WARequestTest(TestCase)>>performTest
[self setUp.
	self performTest] in WARequestTest(TestCase)>>runCase
BlockClosure>>ensure:
WARequestTest(TestCase)>>runCase
[(self class selector: testSelector) runCase] in WARequestTest(TestCase)>>debug
BlockClosure>>ensure:
WARequestTest(TestCase)>>debug
OBCmdRunTests>>execute
[:each | 
(each isActive
			and: [each isEnabled])
		ifTrue: [each execute.
			^ true].
	nil] in OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
OrderedCollection>>do:
OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for:
[:each | 
(scan
			processKeystroke: aCharacter asKeystroke
			withNode: each
			for: self)
		ifTrue: [^ self].
	nil] in OBColumn>>keystroke:from:
OrderedCollection>>reverseDo:
OBColumn>>keystroke:from:
OBPluggableListMorph(PluggableListMorph)>>modifierKeyPressed:
OBPluggableListMorph(PluggableListMorph)>>keyStroke:
OBPluggableListMorph(Morph)>>handleKeystroke:
KeyboardEvent>>sentTo:
OBPluggableListMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
OBPluggableListMorph(Morph)>>processEvent:using:
OBPluggableListMorph(Morph)>>processEvent:
OBPluggableListMorph(PluggableListMorph)>>handleFocusEvent:
[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendKeyboardEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in Project class>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------

THERE_BE_DRAGONS_HERE
ConnectionTimedOut: Data receive timed out.
28 August 2011 11:56:17 am

VM: Mac OS - intel - 1071 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.117] Croquet Cog 4.0.0
Image: Pharo1.3 [Latest update: #13298]

[ConnectionTimedOut signal: 'Data receive timed out.'] in Socket>>waitForDataFor:
	Receiver: a Socket[connected]
	Arguments and temporary variables: 

	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[10 153 95 78 0 0 0 0 128 55 69 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket>>waitForDataFor:ifClosed:ifTimedOut:
	Receiver: a Socket[connected]
	Arguments and temporary variables: 
		timeout: 	30
		closedBlock: 	[ConnectionClosed signal: 'Connection closed while waiting for dat...etc...
		timedOutBlock: 	[ConnectionTimedOut signal: 'Data receive timed out.']
		startTime: 	8274011
		msecsDelta: 	30000
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[10 153 95 78 0 0 0 0 128 55 69 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket>>waitForDataFor:
	Receiver: a Socket[connected]
	Arguments and temporary variables: 
		timeout: 	30
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[10 153 95 78 0 0 0 0 128 55 69 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


Socket>>receiveDataSignallingTimeout:into:startingAt:
	Receiver: a Socket[connected]
	Arguments and temporary variables: 
		timeout: 	30
		aStringOrByteArray: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 68 97 ...etc...
		aNumber: 	254929
	Receiver's instance variables: 
		semaphore: 	a Semaphore()
		socketHandle: 	#[10 153 95 78 0 0 0 0 128 55 69 0]
		readSemaphore: 	a Semaphore()
		writeSemaphore: 	a Semaphore()


SocketStream>>receiveData
	Receiver: SocketStream[inbuf:256kb/outbuf:4kb]
	Arguments and temporary variables: 

	Receiver's instance variables: 
		recentlyRead: 	2712
		socket: 	a Socket[connected]
		inBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 68 97 116 101 58...etc...
		outBuffer: 	#[71 69 84 32 47 83 101 97 115 105 100 101 51 48 47 74 81 117 101 11...etc...
		inNextToWrite: 	254929
		outNextToWrite: 	1
		lastRead: 	309
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


SocketStream>>receiveData:
	Receiver: SocketStream[inbuf:256kb/outbuf:4kb]
	Arguments and temporary variables: 
		nBytes: 	344349
	Receiver's instance variables: 
		recentlyRead: 	2712
		socket: 	a Socket[connected]
		inBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 68 97 116 101 58...etc...
		outBuffer: 	#[71 69 84 32 47 83 101 97 115 105 100 101 51 48 47 74 81 117 101 11...etc...
		inNextToWrite: 	254929
		outNextToWrite: 	1
		lastRead: 	309
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


[self receiveData: anInteger] in SocketStream>>readInto:startingAt:count:
	Receiver: SocketStream[inbuf:256kb/outbuf:4kb]
	Arguments and temporary variables: 
		anInteger: 	344349
	Receiver's instance variables: 
		recentlyRead: 	2712
		socket: 	a Socket[connected]
		inBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 68 97 116 101 58...etc...
		outBuffer: 	#[71 69 84 32 47 83 101 97 115 105 100 101 51 48 47 74 81 117 101 11...etc...
		inNextToWrite: 	254929
		outNextToWrite: 	1
		lastRead: 	309
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


BlockClosure>>on:do:
	Receiver: [self receiveData: anInteger]
	Arguments and temporary variables: 
		exception: 	ConnectionClosed
		handlerAction: 	[:ex | ex return]
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	SocketStream>>readInto:startingAt:count:
		startpc: 	42
		numArgs: 	0


SocketStream>>readInto:startingAt:count:
	Receiver: SocketStream[inbuf:256kb/outbuf:4kb]
	Arguments and temporary variables: 
		aCollection: 	#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc...
		startIndex: 	1
		anInteger: 	344349
		start: 	nil
		amount: 	nil
	Receiver's instance variables: 
		recentlyRead: 	2712
		socket: 	a Socket[connected]
		inBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 68 97 116 101 58...etc...
		outBuffer: 	#[71 69 84 32 47 83 101 97 115 105 100 101 51 48 47 74 81 117 101 11...etc...
		inNextToWrite: 	254929
		outNextToWrite: 	1
		lastRead: 	309
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


SocketStream>>next:into:startingAt:
	Receiver: SocketStream[inbuf:256kb/outbuf:4kb]
	Arguments and temporary variables: 
		requestedCount: 	344349
		collection: 	#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc...
		startIndex: 	1
		readCount: 	nil
	Receiver's instance variables: 
		recentlyRead: 	2712
		socket: 	a Socket[connected]
		inBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 68 97 116 101 58...etc...
		outBuffer: 	#[71 69 84 32 47 83 101 97 115 105 100 101 51 48 47 74 81 117 101 11...etc...
		inNextToWrite: 	254929
		outNextToWrite: 	1
		lastRead: 	309
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


SocketStream>>next:into:
	Receiver: SocketStream[inbuf:256kb/outbuf:4kb]
	Arguments and temporary variables: 
		n: 	344349
		aCollection: 	#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc...
	Receiver's instance variables: 
		recentlyRead: 	2712
		socket: 	a Socket[connected]
		inBuffer: 	#[72 84 84 80 47 49 46 49 32 50 48 48 32 79 75 13 10 68 97 116 101 58...etc...
		outBuffer: 	#[71 69 84 32 47 83 101 97 115 105 100 101 51 48 47 74 81 117 101 11...etc...
		inNextToWrite: 	254929
		outNextToWrite: 	1
		lastRead: 	309
		timeout: 	30
		autoFlush: 	false
		bufferSize: 	4096
		binary: 	true
		shouldSignal: 	true


ZnByteArrayEntity>>readFrom:
	Receiver: a ZnByteArrayEntity(application/x-monticello 344349B)
	Arguments and temporary variables: 
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
		byteArray: 	#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc...
	Receiver's instance variables: 
		contentType: 	application/x-monticello
		contentLength: 	344349
		bytes: 	nil


ZnEntity class>>readFrom:usingType:andLength:
	Receiver: ZnEntity
	Arguments and temporary variables: 
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
		mimeType: 	application/x-monticello
		length: 	344349
		newEntity: 	a ZnByteArrayEntity(application/x-monticello 344349B)
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#contentLength->(ZnEntity>>#contentLength "a Com...etc...
		format: 	134
		instanceVariables: 	#('contentType' 'contentLength')
		organization: 	('accessing' contentLength contentLength: contentType contentType...etc...
		subclasses: 	{ZnApplicationFormUrlEncodedEntity. ZnByteArrayEntity. ZnMultiPartF...etc...
		name: 	#ZnEntity
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Core'
		traitComposition: 	{}
		localSelectors: 	nil


ZnEntityReader>>readEntityFromStream
	Receiver: a ZnEntityReader
	Arguments and temporary variables: 
		entity: 	nil
		decodedEntityLength: 	344349
		chunkedStream: 	nil
	Receiver's instance variables: 
		headers: 	a ZnHeaders('Cache-Control'->'max-age=60' 'Connection'->'close' 'Conte...etc...
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
		streaming: 	nil
		allowReadingUpToEnd: 	true


ZnEntityReader>>readEntity
	Receiver: a ZnEntityReader
	Arguments and temporary variables: 
		entity: 	nil
	Receiver's instance variables: 
		headers: 	a ZnHeaders('Cache-Control'->'max-age=60' 'Connection'->'close' 'Conte...etc...
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
		streaming: 	nil
		allowReadingUpToEnd: 	true


ZnResponse(ZnMessage)>>readFrom:
	Receiver: a ZnResponse(200 OK)
	Arguments and temporary variables: 
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
	Receiver's instance variables: 
		headers: 	a ZnHeaders('Cache-Control'->'max-age=60' 'Connection'->'close' 'Conte...etc...
		entity: 	nil
		statusLine: 	a ZnStatusLine(200 OK)


ZnResponse class(ZnMessage class)>>readFrom:
	Receiver: ZnResponse
	Arguments and temporary variables: 
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
	Receiver's instance variables: 
		superclass: 	ZnMessage
		methodDict: 	a MethodDictionary(#addCookie:->(ZnResponse>>#addCookie: "a Compile...etc...
		format: 	136
		instanceVariables: 	#('statusLine')
		organization: 	('accessing' addCookie: code location location: setKeepAliveFor: ...etc...
		subclasses: 	nil
		name: 	#ZnResponse
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Core'
		traitComposition: 	{}
		localSelectors: 	nil


ZnClient class>>execute:on:
	Receiver: ZnClient
	Arguments and temporary variables: 
		request: 	a ZnRequest(GET /Seaside30/JQuery-UI-lr.79.mcz)
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#ZnClient
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Client-Server'
		traitComposition: 	{}
		localSelectors: 	nil


[ZnClient execute: request on: stream] in ZnHTTPSocketFacade class>>execute:on:
	Receiver: ZnHTTPSocketFacade
	Arguments and temporary variables: 
		request: 	a ZnRequest(GET /Seaside30/JQuery-UI-lr.79.mcz)
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#ZnHTTPSocketFacade
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Client-Server'
		traitComposition: 	{}
		localSelectors: 	nil


BlockClosure>>ensure:
	Receiver: [ZnClient execute: request on: stream]
	Arguments and temporary variables: 
		aBlock: 	[stream close]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	ZnHTTPSocketFacade class>>execute:on:
		startpc: 	42
		numArgs: 	0


ZnHTTPSocketFacade class>>execute:on:
	Receiver: ZnHTTPSocketFacade
	Arguments and temporary variables: 
		request: 	a ZnRequest(GET /Seaside30/JQuery-UI-lr.79.mcz)
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#ZnHTTPSocketFacade
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Client-Server'
		traitComposition: 	{}
		localSelectors: 	nil


ZnHTTPSocketFacade class>>httpGet:args:user:passwd:
	Receiver: ZnHTTPSocketFacade
	Arguments and temporary variables: 
		urlObject: 	'http://www.squeaksource.com/Seaside30/JQuery-UI-lr.79.mcz'
		queryArguments: 	nil
		username: 	'pmm'
		password: 	'pm01v3'
		url: 	http://www.squeaksource.com/Seaside30/JQuery-UI-lr.79.mcz
		stream: 	SocketStream[inbuf:256kb/outbuf:4kb]
		request: 	a ZnRequest(GET /Seaside30/JQuery-UI-lr.79.mcz)
		response: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#ZnHTTPSocketFacade
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Zinc-HTTP-Client-Server'
		traitComposition: 	{}
		localSelectors: 	nil


HTTPSocket class>>httpGet:args:user:passwd:
	Receiver: HTTPSocket
	Arguments and temporary variables: 
		url: 	'http://www.squeaksource.com/Seaside30/JQuery-UI-lr.79.mcz'
		queryArguments: 	nil
		username: 	'pmm'
		password: 	'pm01v3'
	Receiver's instance variables: 
		superclass: 	Socket
		methodDict: 	a MethodDictionary(#contentType->(HTTPSocket>>#contentType "a Compi...etc...
		format: 	144
		instanceVariables: 	#('headerTokens' 'headers' 'responseCode')
		organization: 	('accessing' contentType contentType: contentsLength: getHeader: ...etc...
		subclasses: 	nil
		name: 	#HTTPSocket
		classPool: 	a Dictionary(#HTTPBlabEmail->'' #HTTPProxyCredentials->'' #HTTPProxy...etc...
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Network-Protocols'
		traitComposition: 	nil
		localSelectors: 	nil


[contents := HTTPSocket
				httpGet: (self urlForFileNamed: aString)
				args: nil
				user: self user
				passwd: self password] in MCHttpRepository>>readStreamForFileNamed:do:
	Receiver: a MCHttpRepository(http://www.squeaksource.com/Seaside30)
	Arguments and temporary variables: 
		aString: 	'JQuery-UI-lr.79.mcz'
		contents: 	#(nil)
	Receiver's instance variables: 
		creationTemplate: 	'MCHttpRepository
	location: ''http://www.squeaksource.com/Se...etc...
		storeDiffs: 	nil
		cache: 	a Dictionary('Grease-Core-lr.63.mcz'->a MCVersion(Grease-Core-lr.63) 'Gr...etc...
		allFileNames: 	nil
		location: 	'http://www.squeaksource.com/Seaside30'
		user: 	'pmm'
		password: 	'pm01v3'
		readerCache: 	a Dictionary('Grease-Core-lr.63.mcz'->a MCMczReader 'Grease-Pharo-...etc...


[workBlock value] in [:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex total
					ifNil: [true]
					ifNotNil: [ex amount == nil])
				ifFalse: [(nextUpdateTime < Time millisecondClockValue
							or: [ex total = ex amount])
						ifTrue: [bar value: ex amount asFloat / ex total asFloat.
							nextUpdateTime := Time millisecondClockValue + 100]].
			ex resume]] in MCHttpRepository>>displayProgress:during:
	Receiver: a MCHttpRepository(http://www.squeaksource.com/Seaside30)
	Arguments and temporary variables: 
		workBlock: 	[contents := HTTPSocket
				httpGet: (self urlForFileNamed: aString)...etc...
	Receiver's instance variables: 
		creationTemplate: 	'MCHttpRepository
	location: ''http://www.squeaksource.com/Se...etc...
		storeDiffs: 	nil
		cache: 	a Dictionary('Grease-Core-lr.63.mcz'->a MCVersion(Grease-Core-lr.63) 'Gr...etc...
		allFileNames: 	nil
		location: 	'http://www.squeaksource.com/Seaside30'
		user: 	'pmm'
		password: 	'pm01v3'
		readerCache: 	a Dictionary('Grease-Core-lr.63.mcz'->a MCMczReader 'Grease-Pharo-...etc...


BlockClosure>>on:do:
	Receiver: [workBlock value]
	Arguments and temporary variables: 
		exception: 	HTTPProgress
		handlerAction: 	[:ex | 
(ex total
			ifNil: [true]
			ifNotNil: [ex amount == ni...etc...
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex...etc...
		startpc: 	114
		numArgs: 	0


[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex total
					ifNil: [true]
					ifNotNil: [ex amount == nil])
				ifFalse: [(nextUpdateTime < Time millisecondClockValue
							or: [ex total = ex amount])
						ifTrue: [bar value: ex amount asFloat / ex total asFloat.
							nextUpdateTime := Time millisecondClockValue + 100]].
			ex resume]] in MCHttpRepository>>displayProgress:during:
	Receiver: a MCHttpRepository(http://www.squeaksource.com/Seaside30)
	Arguments and temporary variables: 
		workBlock: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	re...etc...
		nextUpdateTime: 	[contents := HTTPSocket
				httpGet: (self urlForFileNamed: aSt...etc...
		bar: 	#(0)
	Receiver's instance variables: 
		creationTemplate: 	'MCHttpRepository
	location: ''http://www.squeaksource.com/Se...etc...
		storeDiffs: 	nil
		cache: 	a Dictionary('Grease-Core-lr.63.mcz'->a MCVersion(Grease-Core-lr.63) 'Gr...etc...
		allFileNames: 	nil
		location: 	'http://www.squeaksource.com/Seaside30'
		user: 	'pmm'
		password: 	'pm01v3'
		readerCache: 	a Dictionary('Grease-Core-lr.63.mcz'->a MCMczReader 'Grease-Pharo-...etc...


[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	a MorphicUIManager
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex to...etc...
		maxVal: 	1.0
		minVal: 	0.0
		aPoint: 	720@426
		progressTitle: 	'Downloading JQuery-UI-lr.79.mcz'


BlockClosure>>on:do:
	Receiver: [result := workBlock value: progress]
	Arguments and temporary variables: 
		exception: 	ProgressNotification
		handlerAction: 	[:ex | 
ex extraParam isString
		ifTrue: [SystemProgressMorph un...etc...
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	[[result := workBlock value: progress]
		on: ProgressNotification...etc...
		startpc: 	87
		numArgs: 	0


[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	a MorphicUIManager
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex to...etc...
		maxVal: 	1.0
		minVal: 	0.0
		aPoint: 	720@426
		progressTitle: 	'Downloading JQuery-UI-lr.79.mcz'


BlockClosure>>ensure:
	Receiver: [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extr...etc...
	Arguments and temporary variables: 
		aBlock: 	[SystemProgressMorph close: progress]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	ProgressInitiationException>>defaultMorphicAction
		startpc: 	81
		numArgs: 	0


ProgressInitiationException>>defaultMorphicAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		progress: 	[:barValArg | 
| barVal return newBarSize |
barVal := barValArg.
	ret...etc...
		result: 	#(nil)
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	a MorphicUIManager
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex to...etc...
		maxVal: 	1.0
		minVal: 	0.0
		aPoint: 	720@426
		progressTitle: 	'Downloading JQuery-UI-lr.79.mcz'


MorphicUIManager>>progressInitiationExceptionDefaultAction:
	Receiver: a MorphicUIManager
	Arguments and temporary variables: 
		anException: 	ProgressInitiationException
	Receiver's instance variables: 
		interactiveParser: 	nil


ProgressInitiationException>>defaultAction
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	a MorphicUIManager
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex to...etc...
		maxVal: 	1.0
		minVal: 	0.0
		aPoint: 	720@426
		progressTitle: 	'Downloading JQuery-UI-lr.79.mcz'


UndefinedObject>>handleSignal:
	Receiver: nil
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
	Receiver's instance variables: 
nil

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	ProgressInitiationException
		val: 	nil
	Receiver's instance variables: 
		sender: 	PasteUpMorph>>becomeActiveDuring:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(137625600)")
		closureOrNil: 	nil
		receiver: 	[aBlock value]


ProgressInitiationException(Exception)>>signal
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	a MorphicUIManager
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex to...etc...
		maxVal: 	1.0
		minVal: 	0.0
		aPoint: 	720@426
		progressTitle: 	'Downloading JQuery-UI-lr.79.mcz'


ProgressInitiationException>>display:at:from:to:during:
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		argString: 	'Downloading JQuery-UI-lr.79.mcz'
		argPoint: 	720@426
		argMinVal: 	0.0
		argMaxVal: 	1.0
		argWorkBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex...etc...
	Receiver's instance variables: 
		messageText: 	nil
		tag: 	nil
		signaler: 	a MorphicUIManager
		signalContext: 	ProgressInitiationException(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		workBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex to...etc...
		maxVal: 	1.0
		minVal: 	0.0
		aPoint: 	720@426
		progressTitle: 	'Downloading JQuery-UI-lr.79.mcz'


ProgressInitiationException class>>display:at:from:to:during:
	Receiver: ProgressInitiationException
	Arguments and temporary variables: 
		aString: 	'Downloading JQuery-UI-lr.79.mcz'
		aPoint: 	720@426
		minVal: 	0.0
		maxVal: 	1.0
		workBlock: 	[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex to...etc...
	Receiver's instance variables: 
		superclass: 	Exception
		methodDict: 	a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc...
		format: 	152
		instanceVariables: 	#('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle')
		organization: 	('*Morphic' defaultMorphicAction)
('accessing' maxVal minVal poin...etc...
		subclasses: 	nil
		name: 	#ProgressInitiationException
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'UIManager-Support'
		traitComposition: 	nil
		localSelectors: 	nil



--- The full stack ---
[ConnectionTimedOut signal: 'Data receive timed out.'] in Socket>>waitForDataFor:
Socket>>waitForDataFor:ifClosed:ifTimedOut:
Socket>>waitForDataFor:
Socket>>receiveDataSignallingTimeout:into:startingAt:
SocketStream>>receiveData
SocketStream>>receiveData:
[self receiveData: anInteger] in SocketStream>>readInto:startingAt:count:
BlockClosure>>on:do:
SocketStream>>readInto:startingAt:count:
SocketStream>>next:into:startingAt:
SocketStream>>next:into:
ZnByteArrayEntity>>readFrom:
ZnEntity class>>readFrom:usingType:andLength:
ZnEntityReader>>readEntityFromStream
ZnEntityReader>>readEntity
ZnResponse(ZnMessage)>>readFrom:
ZnResponse class(ZnMessage class)>>readFrom:
ZnClient class>>execute:on:
[ZnClient execute: request on: stream] in ZnHTTPSocketFacade class>>execute:on:
BlockClosure>>ensure:
ZnHTTPSocketFacade class>>execute:on:
ZnHTTPSocketFacade class>>httpGet:args:user:passwd:
HTTPSocket class>>httpGet:args:user:passwd:
[contents := HTTPSocket
				httpGet: (self urlForFileNamed: aString)
				args: nil
				user: self user
				passwd: self password] in MCHttpRepository>>readStreamForFileNamed:do:
[workBlock value] in [:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex total
					ifNil: [true]
					ifNotNil: [ex amount == nil])
				ifFalse: [(nextUpdateTime < Time millisecondClockValue
							or: [ex total = ex amount])
						ifTrue: [bar value: ex amount asFloat / ex total asFloat.
							nextUpdateTime := Time millisecondClockValue + 100]].
			ex resume]] in MCHttpRepository>>displayProgress:during:
BlockClosure>>on:do:
[:bar | [workBlock value]
		on: HTTPProgress
		do: [:ex | 
			(ex total
					ifNil: [true]
					ifNotNil: [ex amount == nil])
				ifFalse: [(nextUpdateTime < Time millisecondClockValue
							or: [ex total = ex amount])
						ifTrue: [bar value: ex amount asFloat / ex total asFloat.
							nextUpdateTime := Time millisecondClockValue + 100]].
			ex resume]] in MCHttpRepository>>displayProgress:during:
[result := workBlock value: progress] in [[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>on:do:
[[result := workBlock value: progress]
		on: ProgressNotification
		do: [:ex | 
			ex extraParam isString
				ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam].
			ex resume]] in ProgressInitiationException>>defaultMorphicAction
BlockClosure>>ensure:
ProgressInitiationException>>defaultMorphicAction
MorphicUIManager>>progressInitiationExceptionDefaultAction:
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
MorphicUIManager>>displayProgress:at:from:to:during:
MCHttpRepository>>displayProgress:during:
MCHttpRepository>>readStreamForFileNamed:do:
MCHttpRepository(MCFileBasedRepository)>>versionReaderForFileNamed:do:
[self resizeCache: readerCache.
	super
		versionReaderForFileNamed: aString
		do: [:r | r
				ifNotNil: [readerCache at: aString put: r]]] in MCHttpRepository>>versionReaderForFileNamed:
Dictionary>>at:ifAbsent:
MCHttpRepository>>versionReaderForFileNamed:
MCHttpRepository>>versionReaderForFileNamed:do:
MCHttpRepository(MCFileBasedRepository)>>loadVersionFromFileNamed:
[self loadVersionFromFileNamed: aString] in MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed:
Dictionary>>at:ifAbsent:
MCHttpRepository(MCFileBasedRepository)>>versionFromFileNamed:
[version := repository versionFromFileNamed: selectedVersion] in MCFileRepositoryInspector>>version
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
MCFileRepositoryInspector>>version
MCFileRepositoryInspector(MCVersionInspector)>>versionSummary
MCFileRepositoryInspector(MCVersionInspector)>>summary
PluggableTextMorph>>getText
PluggableTextMorph>>update:
[:aDependent | aDependent update: aParameter] in MCFileRepositoryInspector(Object)>>changed:
DependentsArray>>do:
MCFileRepositoryInspector(Object)>>changed:
MCFileRepositoryInspector>>versionSelection:
PluggableListMorph>>changeModelSelection:
PluggableListMorph>>mouseUpOnSingle:
PluggableListMorph>>mouseUp:
PluggableListMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
PluggableListMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
PluggableListMorph(Morph)>>processEvent:using:
PluggableListMorph(Morph)>>processEvent:
PluggableListMorph>>handleFocusEvent:
[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in Project class>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------

THERE_BE_DRAGONS_HERE
MessageNotUnderstood: receiver of "isConflict" is nil
28 August 2011 3:27:11 pm

VM: Mac OS - intel - 1071 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.117] Croquet Cog 4.0.0
Image: Pharo1.3 [Latest update: #13298]

UndefinedObject(Object)>>doesNotUnderstand: #isConflict
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	isConflict
		exception: 	MessageNotUnderstood: receiver of "isConflict" is nil
		resumeValue: 	nil
	Receiver's instance variables: 
nil

MCMergeBrowser>>selectionIsConflicted
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


PluggableButtonMorph>>update:
	Receiver: a PluggableButtonMorph(385089536)
	Arguments and temporary variables: 
		aParameter: 	#selectionIsConflicted
		state: 	false
		cc: 	nil
	Receiver's instance variables: 
		bounds: 	0@0 corner: 20@15
		owner: 	nil
		submorphs: 	an Array(an AlignmentMorph(854327296))
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (391643136) [other:  (lastState -> false)]
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCMergeBrowser
		label: 	'Keep'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#selectionIsConflicted


PluggableButtonMorph>>getEnabledSelector:
	Receiver: a PluggableButtonMorph(385089536)
	Arguments and temporary variables: 
		aSymbol: 	#selectionIsConflicted
	Receiver's instance variables: 
		bounds: 	0@0 corner: 20@15
		owner: 	nil
		submorphs: 	an Array(an AlignmentMorph(854327296))
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (391643136) [other:  (lastState -> false)]
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCMergeBrowser
		label: 	'Keep'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#selectionIsConflicted


[:triplet | 
| aButton state |
state := triplet
				at: 5
				ifAbsent: [#buttonState].
	aButton := PluggableButtonMorph
				on: self
				getState: state
				action: #performButtonAction:enabled:.
	aButton hResizing: #spaceFill;
		 vResizing: #spaceFill;
		 label: triplet first asString;
		
		getEnabledSelector: (triplet
				at: 4
				ifAbsent: [#buttonEnabled]);
		
		arguments: (Array
				with: triplet second
				with: (triplet
						at: 4
						ifAbsent: [#buttonEnabled])).
	aRow addMorphBack: aButton.
	aButton setBalloonText: triplet third] in MCMergeBrowser(MCTool)>>buttonRow:
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		aRow: 	#(#Keep #chooseRemote 'keep the selected change' #selectionIsConflicted)
		triplet: 	a PanelMorph(364380160)
		aButton: 	a PluggableButtonMorph(385089536)
		state: 	#buttonState
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


Array(SequenceableCollection)>>do:
	Receiver: #(#(#Keep #chooseRemote 'keep the selected change' #selectionIsConflicted) #(#Reject #choo...etc...
	Arguments and temporary variables: 
		aBlock: 	[:triplet | 
| aButton state |
state := triplet
				at: 5
				ifAbsent:...etc...
		index: 	1
		indexLimiT: 	2
	Receiver's instance variables: 
#(#(#Keep #chooseRemote 'keep the selected change' #selectionIsConflicted) #(#Reject #choo...etc...

MCMergeBrowser(MCTool)>>buttonRow:
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		specArray: 	#(#(#Keep #chooseRemote 'keep the selected change' #selectionIsConfl...etc...
		aRow: 	a PanelMorph(364380160)
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


[:spec | 
| send fractions offsets |
send := spec first.
	fractions := spec
				at: 2
				ifAbsent: [#(0 0 1 1 )].
	offsets := spec
				at: 3
				ifAbsent: [#(0 0 0 0 )].
	window
		addMorph: (self perform: send first withArguments: send allButFirst)
		fullFrame: (LayoutFrame
				fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
				offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth))] in MCMergeBrowser(MCTool)>>buildWindow
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		window: 	#(#(#buttonRow: #(#(#Keep #chooseRemote 'keep the selected change' #sel...etc...
		spec: 	a SystemWindow(688390144)
		send: 	#(#buttonRow: #(#(#Keep #chooseRemote 'keep the selected change' #selecti...etc...
		fractions: 	#(0 0.4 1 0.4)
		offsets: 	#(0 0 0 32)
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


Array(SequenceableCollection)>>do:
	Receiver: #(#(#(#buttonRow) #(0 0 1 0) #(0 0 0 30)) #(#(#listMorph:selection:menu: #list #selection ...etc...
	Arguments and temporary variables: 
		aBlock: 	[:spec | 
| send fractions offsets |
send := spec first.
	fractions := ...etc...
		index: 	3
		indexLimiT: 	4
	Receiver's instance variables: 
#(#(#(#buttonRow) #(0 0 1 0) #(0 0 0 30)) #(#(#listMorph:selection:menu: #list #selection ...etc...

MCMergeBrowser(MCTool)>>buildWindow
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		window: 	a SystemWindow(688390144)
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


MCMergeBrowser(MCTool)>>window
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


MCMergeBrowser(MCTool)>>showModally
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		tb: 	nil
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


MCMergeResolutionRequest>>viewMerger
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


MCMergeResolutionRequest>>defaultAction
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


UndefinedObject>>handleSignal:
	Receiver: nil
	Arguments and temporary variables: 
		exception: 	MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDav...etc...
	Receiver's instance variables: 
nil

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDav...etc...
		val: 	nil
	Receiver's instance variables: 
		sender: 	PasteUpMorph>>becomeActiveDuring:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(137625600)")
		closureOrNil: 	nil
		receiver: 	[aBlock value]


MCMergeResolutionRequest(Exception)>>signal
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


MCMergeResolutionRequest(Exception)>>signal:
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 
		signalerText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


MCVersionMerger>>resolveConflicts
	Receiver: a MCVersionMerger
	Arguments and temporary variables: 

	Receiver's instance variables: 
		records: 	an OrderedCollection(a MCMergeRecord)
		merger: 	a MCThreeWayMerger


MCVersionMerger>>mergeWithNameLike:
	Receiver: a MCVersionMerger
	Arguments and temporary variables: 
		baseName: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24'
	Receiver's instance variables: 
		records: 	an OrderedCollection(a MCMergeRecord)
		merger: 	a MCThreeWayMerger


MCVersionMerger class>>mergeVersion:
	Receiver: MCVersionMerger
	Arguments and temporary variables: 
		aVersion: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#addVersion:->(MCVersionMerger>>#addVersion: "a ...etc...
		format: 	134
		instanceVariables: 	#('records' 'merger')
		organization: 	('as yet unclassified' addVersion: initialize merge mergeWithName...etc...
		subclasses: 	nil
		name: 	#MCVersionMerger
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Monticello-Versioning'
		traitComposition: 	nil
		localSelectors: 	nil


MCVersion>>merge
	Receiver: a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		package: 	a MCPackage(Seaside-Pharo-Tools-Web)
		info: 	a MCVersionInfo(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		snapshot: 	a MCSnapshot
		dependencies: 	#()


MCFileRepositoryInspector(MCVersionInspector)>>merge
	Receiver: a MCFileRepositoryInspector
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	a SystemWindow(289931264)
		label: 	nil
		modal: 	false
		modalValue: 	nil
		version: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		repository: 	a MCDirectoryRepository(/Users/marschall/apps/Smalltalk/Pharo/Pharo...etc...
		versions: 	#(#('Seaside-Tests-Core' 'pmm' 253 'Seaside-Tests-Core-pmm.253.mcz') ...etc...
		loaded: 	a Set('Settings-Polymorph-MarcusDenker.30' 'Collections-Strings-Stephan...etc...
		newer: 	a Set('Grease-Core')
		inherited: 	a Set('Network-Url-TonyFleig.46' 'Morphic-stephane.ducasse.132' 'Sys...etc...
		packageList: 	an Array(a Text for 'Grease-Core' a Text for 'Grease-Tests-Core' a...etc...
		selectedPackage: 	'Seaside-Pharo-Tools-Web'
		selectedVersion: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24.mcz'
		order: 	5
		versionInfo: 	nil
		pattern: 	nil


MCFileRepositoryInspector>>merge
	Receiver: a MCFileRepositoryInspector
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	a SystemWindow(289931264)
		label: 	nil
		modal: 	false
		modalValue: 	nil
		version: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		repository: 	a MCDirectoryRepository(/Users/marschall/apps/Smalltalk/Pharo/Pharo...etc...
		versions: 	#(#('Seaside-Tests-Core' 'pmm' 253 'Seaside-Tests-Core-pmm.253.mcz') ...etc...
		loaded: 	a Set('Settings-Polymorph-MarcusDenker.30' 'Collections-Strings-Stephan...etc...
		newer: 	a Set('Grease-Core')
		inherited: 	a Set('Network-Url-TonyFleig.46' 'Morphic-stephane.ducasse.132' 'Sys...etc...
		packageList: 	an Array(a Text for 'Grease-Core' a Text for 'Grease-Tests-Core' a...etc...
		selectedPackage: 	'Seaside-Pharo-Tools-Web'
		selectedVersion: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24.mcz'
		order: 	5
		versionInfo: 	nil
		pattern: 	nil


MCFileRepositoryInspector(MCTool)>>performButtonAction:enabled:
	Receiver: a MCFileRepositoryInspector
	Arguments and temporary variables: 
		anActionSelector: 	#merge
		anEnabledSelector: 	#hasVersion
	Receiver's instance variables: 
		morph: 	a SystemWindow(289931264)
		label: 	nil
		modal: 	false
		modalValue: 	nil
		version: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		repository: 	a MCDirectoryRepository(/Users/marschall/apps/Smalltalk/Pharo/Pharo...etc...
		versions: 	#(#('Seaside-Tests-Core' 'pmm' 253 'Seaside-Tests-Core-pmm.253.mcz') ...etc...
		loaded: 	a Set('Settings-Polymorph-MarcusDenker.30' 'Collections-Strings-Stephan...etc...
		newer: 	a Set('Grease-Core')
		inherited: 	a Set('Network-Url-TonyFleig.46' 'Morphic-stephane.ducasse.132' 'Sys...etc...
		packageList: 	an Array(a Text for 'Grease-Core' a Text for 'Grease-Tests-Core' a...etc...
		selectedPackage: 	'Seaside-Pharo-Tools-Web'
		selectedVersion: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24.mcz'
		order: 	5
		versionInfo: 	nil
		pattern: 	nil


PluggableButtonMorph>>performAction
	Receiver: a PluggableButtonMorph(146800640)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	1097@77 corner: 1159@103
		owner: 	a PanelMorph(297795584)
		submorphs: 	an Array(an AlignmentMorph(616300544))
		fullBounds: 	1097@77 corner: 1159@103
		color: 	Color transparent
		extension: 	a MorphExtension (153616384) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


[:m | (m containsPoint: evt cursorPoint)
		ifTrue: [m enabled
				ifTrue: [m performAction]]] in PluggableButtonMorph>>mouseUp:
	Receiver: a PluggableButtonMorph(146800640)
	Arguments and temporary variables: 
		evt: 	a PluggableButtonMorph(146800640)
		m: 	[1131@92 mouseUp 51059 nil]
	Receiver's instance variables: 
		bounds: 	1097@77 corner: 1159@103
		owner: 	a PanelMorph(297795584)
		submorphs: 	an Array(an AlignmentMorph(616300544))
		fullBounds: 	1097@77 corner: 1159@103
		color: 	Color transparent
		extension: 	a MorphExtension (153616384) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


Array(SequenceableCollection)>>do:
	Receiver: an Array(a PluggableButtonMorph(318504960) a PluggableButtonMorph(896270336) a PluggableBu...etc...
	Arguments and temporary variables: 
		aBlock: 	[:m | (m containsPoint: evt cursorPoint)
		ifTrue: [m enabled
				ifTru...etc...
		index: 	7
		indexLimiT: 	10
	Receiver's instance variables: 
an Array(a PluggableButtonMorph(318504960) a PluggableButtonMorph(896270336) a PluggableBu...etc...

PluggableButtonMorph>>mouseUp:
	Receiver: a PluggableButtonMorph(146800640)
	Arguments and temporary variables: 
		evt: 	[1131@92 mouseUp 51059 nil]
		all: 	an Array(a PluggableButtonMorph(318504960) a PluggableButtonMorph(89627033...etc...
	Receiver's instance variables: 
		bounds: 	1097@77 corner: 1159@103
		owner: 	a PanelMorph(297795584)
		submorphs: 	an Array(an AlignmentMorph(616300544))
		fullBounds: 	1097@77 corner: 1159@103
		color: 	Color transparent
		extension: 	a MorphExtension (153616384) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


PluggableButtonMorph(Morph)>>handleMouseUp:
	Receiver: a PluggableButtonMorph(146800640)
	Arguments and temporary variables: 
		anEvent: 	[1131@92 mouseUp 51059 nil]
	Receiver's instance variables: 
		bounds: 	1097@77 corner: 1159@103
		owner: 	a PanelMorph(297795584)
		submorphs: 	an Array(an AlignmentMorph(616300544))
		fullBounds: 	1097@77 corner: 1159@103
		color: 	Color transparent
		extension: 	a MorphExtension (153616384) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


MouseButtonEvent>>sentTo:
	Receiver: [1131@92 mouseUp 51059 nil]
	Arguments and temporary variables: 
		anObject: 	a PluggableButtonMorph(146800640)
	Receiver's instance variables: 
		timeStamp: 	51059
		source: 	a HandMorph(843055104)
		windowIndex: 	nil
		type: 	#mouseUp
		buttons: 	0
		position: 	1131@92
		handler: 	nil
		wasHandled: 	true
		whichButton: 	4


PluggableButtonMorph(Morph)>>handleEvent:
	Receiver: a PluggableButtonMorph(146800640)
	Arguments and temporary variables: 
		anEvent: 	[1131@92 mouseUp 51059 nil]
	Receiver's instance variables: 
		bounds: 	1097@77 corner: 1159@103
		owner: 	a PanelMorph(297795584)
		submorphs: 	an Array(an AlignmentMorph(616300544))
		fullBounds: 	1097@77 corner: 1159@103
		color: 	Color transparent
		extension: 	a MorphExtension (153616384) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


PluggableButtonMorph(Morph)>>handleFocusEvent:
	Receiver: a PluggableButtonMorph(146800640)
	Arguments and temporary variables: 
		anEvent: 	[1131@92 mouseUp 51059 nil]
	Receiver's instance variables: 
		bounds: 	1097@77 corner: 1159@103
		owner: 	a PanelMorph(297795584)
		submorphs: 	an Array(an AlignmentMorph(616300544))
		fullBounds: 	1097@77 corner: 1159@103
		color: 	Color transparent
		extension: 	a MorphExtension (153616384) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[1131@92 mouseUp 51059 nil]
		focusHolder: 	a PluggableButtonMorph(146800640)
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	1131@92 corner: 1147@108
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	1131@92 corner: 1147@108
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(956563456)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[1131@92 mouseUp 51059 nil]
		targetOffset: 	34@15
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 51059 1131 92 0 0 1 1)
		lastKeyScanCode: 	125
		combinedChar: 	nil


[aBlock value] in PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1436@830
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(965214208) a Sys...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


BlockClosure>>on:do:
	Receiver: [aBlock value]
	Arguments and temporary variables: 
		exception: 	Error
		handlerAction: 	[:ex | 
ActiveWorld := priorWorld.
	ActiveEvent := priorEvent.
	...etc...
		handlerActive: 	false
	Receiver's instance variables: 
		outerContext: 	PasteUpMorph>>becomeActiveDuring:
		startpc: 	67
		numArgs: 	0


PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
		priorWorld: 	a PasteUpMorph(425197568) [world]
		priorHand: 	a HandMorph(843055104)
		priorEvent: 	[1131@92 mouseOver red nil nil]
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1436@830
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(965214208) a Sys...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[1131@92 mouseUp 51059 nil]
		focusHolder: 	a PluggableButtonMorph(146800640)
		aBlock: 	[self mouseFocus: nil]
		w: 	a PasteUpMorph(425197568) [world]
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	1131@92 corner: 1147@108
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	1131@92 corner: 1147@108
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(956563456)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[1131@92 mouseUp 51059 nil]
		targetOffset: 	34@15
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 51059 1131 92 0 0 1 1)
		lastKeyScanCode: 	125
		combinedChar: 	nil


HandMorph>>sendEvent:focus:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[1131@92 mouseUp 51059 nil]
		focusHolder: 	a PluggableButtonMorph(146800640)
		aBlock: 	[self mouseFocus: nil]
		result: 	nil
	Receiver's instance variables: 
		bounds: 	1131@92 corner: 1147@108
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	1131@92 corner: 1147@108
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(956563456)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[1131@92 mouseUp 51059 nil]
		targetOffset: 	34@15
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 51059 1131 92 0 0 1 1)
		lastKeyScanCode: 	125
		combinedChar: 	nil



--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #isConflict
MCMergeBrowser>>selectionIsConflicted
PluggableButtonMorph>>update:
PluggableButtonMorph>>getEnabledSelector:
[:triplet | 
| aButton state |
state := triplet
				at: 5
				ifAbsent: [#buttonState].
	aButton := PluggableButtonMorph
				on: self
				getState: state
				action: #performButtonAction:enabled:.
	aButton hResizing: #spaceFill;
		 vResizing: #spaceFill;
		 label: triplet first asString;
		
		getEnabledSelector: (triplet
				at: 4
				ifAbsent: [#buttonEnabled]);
		
		arguments: (Array
				with: triplet second
				with: (triplet
						at: 4
						ifAbsent: [#buttonEnabled])).
	aRow addMorphBack: aButton.
	aButton setBalloonText: triplet third] in MCMergeBrowser(MCTool)>>buttonRow:
Array(SequenceableCollection)>>do:
MCMergeBrowser(MCTool)>>buttonRow:
[:spec | 
| send fractions offsets |
send := spec first.
	fractions := spec
				at: 2
				ifAbsent: [#(0 0 1 1 )].
	offsets := spec
				at: 3
				ifAbsent: [#(0 0 0 0 )].
	window
		addMorph: (self perform: send first withArguments: send allButFirst)
		fullFrame: (LayoutFrame
				fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
				offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth))] in MCMergeBrowser(MCTool)>>buildWindow
Array(SequenceableCollection)>>do:
MCMergeBrowser(MCTool)>>buildWindow
MCMergeBrowser(MCTool)>>window
MCMergeBrowser(MCTool)>>showModally
MCMergeResolutionRequest>>viewMerger
MCMergeResolutionRequest>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MCMergeResolutionRequest(Exception)>>signal
MCMergeResolutionRequest(Exception)>>signal:
MCVersionMerger>>resolveConflicts
MCVersionMerger>>mergeWithNameLike:
MCVersionMerger class>>mergeVersion:
MCVersion>>merge
MCFileRepositoryInspector(MCVersionInspector)>>merge
MCFileRepositoryInspector>>merge
MCFileRepositoryInspector(MCTool)>>performButtonAction:enabled:
PluggableButtonMorph>>performAction
[:m | (m containsPoint: evt cursorPoint)
		ifTrue: [m enabled
				ifTrue: [m performAction]]] in PluggableButtonMorph>>mouseUp:
Array(SequenceableCollection)>>do:
PluggableButtonMorph>>mouseUp:
PluggableButtonMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
PluggableButtonMorph(Morph)>>handleEvent:
PluggableButtonMorph(Morph)>>handleFocusEvent:
[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
MouseClickState>>handleEvent:from:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in Project class>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------

THERE_BE_DRAGONS_HERE
MessageNotUnderstood: receiver of "isConflict" is nil
28 August 2011 3:36:06 pm

VM: Mac OS - intel - 1071 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.117] Croquet Cog 4.0.0
Image: Pharo1.3 [Latest update: #13298]

UndefinedObject(Object)>>doesNotUnderstand: #isConflict
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	isConflict
		exception: 	MessageNotUnderstood: receiver of "isConflict" is nil
		resumeValue: 	nil
	Receiver's instance variables: 
nil

MCMergeBrowser>>selectionIsConflicted
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


PluggableButtonMorph>>update:
	Receiver: a PluggableButtonMorph(304873472)
	Arguments and temporary variables: 
		aParameter: 	#selectionIsConflicted
		state: 	false
		cc: 	nil
	Receiver's instance variables: 
		bounds: 	0@0 corner: 20@15
		owner: 	nil
		submorphs: 	an Array(an AlignmentMorph(774111232))
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (311427072) [other:  (lastState -> false)]
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCMergeBrowser
		label: 	'Keep'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#selectionIsConflicted


PluggableButtonMorph>>getEnabledSelector:
	Receiver: a PluggableButtonMorph(304873472)
	Arguments and temporary variables: 
		aSymbol: 	#selectionIsConflicted
	Receiver's instance variables: 
		bounds: 	0@0 corner: 20@15
		owner: 	nil
		submorphs: 	an Array(an AlignmentMorph(774111232))
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (311427072) [other:  (lastState -> false)]
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCMergeBrowser
		label: 	'Keep'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#()
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#selectionIsConflicted


[:triplet | 
| aButton state |
state := triplet
				at: 5
				ifAbsent: [#buttonState].
	aButton := PluggableButtonMorph
				on: self
				getState: state
				action: #performButtonAction:enabled:.
	aButton hResizing: #spaceFill;
		 vResizing: #spaceFill;
		 label: triplet first asString;
		
		getEnabledSelector: (triplet
				at: 4
				ifAbsent: [#buttonEnabled]);
		
		arguments: (Array
				with: triplet second
				with: (triplet
						at: 4
						ifAbsent: [#buttonEnabled])).
	aRow addMorphBack: aButton.
	aButton setBalloonText: triplet third] in MCMergeBrowser(MCTool)>>buttonRow:
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		aRow: 	#(#Keep #chooseRemote 'keep the selected change' #selectionIsConflicted)
		triplet: 	a PanelMorph(284164096)
		aButton: 	a PluggableButtonMorph(304873472)
		state: 	#buttonState
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


Array(SequenceableCollection)>>do:
	Receiver: #(#(#Keep #chooseRemote 'keep the selected change' #selectionIsConflicted) #(#Reject #choo...etc...
	Arguments and temporary variables: 
		aBlock: 	[:triplet | 
| aButton state |
state := triplet
				at: 5
				ifAbsent:...etc...
		index: 	1
		indexLimiT: 	2
	Receiver's instance variables: 
#(#(#Keep #chooseRemote 'keep the selected change' #selectionIsConflicted) #(#Reject #choo...etc...

MCMergeBrowser(MCTool)>>buttonRow:
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		specArray: 	#(#(#Keep #chooseRemote 'keep the selected change' #selectionIsConfl...etc...
		aRow: 	a PanelMorph(284164096)
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


[:spec | 
| send fractions offsets |
send := spec first.
	fractions := spec
				at: 2
				ifAbsent: [#(0 0 1 1 )].
	offsets := spec
				at: 3
				ifAbsent: [#(0 0 0 0 )].
	window
		addMorph: (self perform: send first withArguments: send allButFirst)
		fullFrame: (LayoutFrame
				fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
				offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth))] in MCMergeBrowser(MCTool)>>buildWindow
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		window: 	#(#(#buttonRow: #(#(#Keep #chooseRemote 'keep the selected change' #sel...etc...
		spec: 	a SystemWindow(1028390912)
		send: 	#(#buttonRow: #(#(#Keep #chooseRemote 'keep the selected change' #selecti...etc...
		fractions: 	#(0 0.4 1 0.4)
		offsets: 	#(0 0 0 32)
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


Array(SequenceableCollection)>>do:
	Receiver: #(#(#(#buttonRow) #(0 0 1 0) #(0 0 0 30)) #(#(#listMorph:selection:menu: #list #selection ...etc...
	Arguments and temporary variables: 
		aBlock: 	[:spec | 
| send fractions offsets |
send := spec first.
	fractions := ...etc...
		index: 	3
		indexLimiT: 	4
	Receiver's instance variables: 
#(#(#(#buttonRow) #(0 0 1 0) #(0 0 0 30)) #(#(#listMorph:selection:menu: #list #selection ...etc...

MCMergeBrowser(MCTool)>>buildWindow
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		window: 	a SystemWindow(1028390912)
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


MCMergeBrowser(MCTool)>>window
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


MCMergeBrowser(MCTool)>>showModally
	Receiver: a MCMergeBrowser
	Arguments and temporary variables: 
		tb: 	nil
	Receiver's instance variables: 
		morph: 	nil
		label: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		modal: 	true
		modalValue: 	nil
		items: 	a SortedCollection(a MCAddition a MCModification a MCModification a MCAd...etc...
		selection: 	nil
		conflicts: 	an OrderedCollection(a MCConflict a MCConflict)
		merger: 	a MCThreeWayMerger
		ok: 	nil


MCMergeResolutionRequest>>viewMerger
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


MCMergeResolutionRequest>>defaultAction
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


UndefinedObject>>handleSignal:
	Receiver: nil
	Arguments and temporary variables: 
		exception: 	MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDav...etc...
	Receiver's instance variables: 
nil

MethodContext(ContextPart)>>handleSignal:
	Receiver: BlockClosure>>on:do:
	Arguments and temporary variables: 
		exception: 	MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDav...etc...
		val: 	nil
	Receiver's instance variables: 
		sender: 	PasteUpMorph>>becomeActiveDuring:
		pc: 	17
		stackp: 	3
		method: 	(BlockClosure>>#on:do: "a CompiledMethod(137625600)")
		closureOrNil: 	nil
		receiver: 	[aBlock value]


MCMergeResolutionRequest(Exception)>>signal
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 

	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


MCMergeResolutionRequest(Exception)>>signal:
	Receiver: MCMergeResolutionRequest: Merging Seaside-Pharo-Tools-Web-MichaelDavies.24
	Arguments and temporary variables: 
		signalerText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
	Receiver's instance variables: 
		messageText: 	'Merging Seaside-Pharo-Tools-Web-MichaelDavies.24'
		tag: 	nil
		signaler: 	a MCVersionMerger
		signalContext: 	MCMergeResolutionRequest(Exception)>>signal
		handlerContext: 	nil
		outerContext: 	nil
		merger: 	a MCThreeWayMerger


MCVersionMerger>>resolveConflicts
	Receiver: a MCVersionMerger
	Arguments and temporary variables: 

	Receiver's instance variables: 
		records: 	an OrderedCollection(a MCMergeRecord)
		merger: 	a MCThreeWayMerger


MCVersionMerger>>mergeWithNameLike:
	Receiver: a MCVersionMerger
	Arguments and temporary variables: 
		baseName: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24'
	Receiver's instance variables: 
		records: 	an OrderedCollection(a MCMergeRecord)
		merger: 	a MCThreeWayMerger


MCVersionMerger class>>mergeVersion:
	Receiver: MCVersionMerger
	Arguments and temporary variables: 
		aVersion: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#addVersion:->(MCVersionMerger>>#addVersion: "a ...etc...
		format: 	134
		instanceVariables: 	#('records' 'merger')
		organization: 	('as yet unclassified' addVersion: initialize merge mergeWithName...etc...
		subclasses: 	nil
		name: 	#MCVersionMerger
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Monticello-Versioning'
		traitComposition: 	nil
		localSelectors: 	nil


MCVersion>>merge
	Receiver: a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		package: 	a MCPackage(Seaside-Pharo-Tools-Web)
		info: 	a MCVersionInfo(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		snapshot: 	a MCSnapshot
		dependencies: 	#()


MCFileRepositoryInspector(MCVersionInspector)>>merge
	Receiver: a MCFileRepositoryInspector
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	a SystemWindow(261095424)
		label: 	nil
		modal: 	false
		modalValue: 	nil
		version: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		repository: 	a MCDirectoryRepository(/Users/marschall/apps/Smalltalk/Pharo/Pharo...etc...
		versions: 	#(#('Seaside-Tests-Core' 'pmm' 253 'Seaside-Tests-Core-pmm.253.mcz') ...etc...
		loaded: 	a Set('Settings-Polymorph-MarcusDenker.30' 'Collections-Strings-Stephan...etc...
		newer: 	a Set('Grease-Core')
		inherited: 	a Set('Network-Url-TonyFleig.46' 'Morphic-stephane.ducasse.132' 'Sys...etc...
		packageList: 	an Array(a Text for 'Grease-Core' a Text for 'Grease-Tests-Core' a...etc...
		selectedPackage: 	'Seaside-Pharo-Tools-Web'
		selectedVersion: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24.mcz'
		order: 	5
		versionInfo: 	nil
		pattern: 	nil


MCFileRepositoryInspector>>merge
	Receiver: a MCFileRepositoryInspector
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	a SystemWindow(261095424)
		label: 	nil
		modal: 	false
		modalValue: 	nil
		version: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		repository: 	a MCDirectoryRepository(/Users/marschall/apps/Smalltalk/Pharo/Pharo...etc...
		versions: 	#(#('Seaside-Tests-Core' 'pmm' 253 'Seaside-Tests-Core-pmm.253.mcz') ...etc...
		loaded: 	a Set('Settings-Polymorph-MarcusDenker.30' 'Collections-Strings-Stephan...etc...
		newer: 	a Set('Grease-Core')
		inherited: 	a Set('Network-Url-TonyFleig.46' 'Morphic-stephane.ducasse.132' 'Sys...etc...
		packageList: 	an Array(a Text for 'Grease-Core' a Text for 'Grease-Tests-Core' a...etc...
		selectedPackage: 	'Seaside-Pharo-Tools-Web'
		selectedVersion: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24.mcz'
		order: 	5
		versionInfo: 	nil
		pattern: 	nil


MCFileRepositoryInspector(MCTool)>>performButtonAction:enabled:
	Receiver: a MCFileRepositoryInspector
	Arguments and temporary variables: 
		anActionSelector: 	#merge
		anEnabledSelector: 	#hasVersion
	Receiver's instance variables: 
		morph: 	a SystemWindow(261095424)
		label: 	nil
		modal: 	false
		modalValue: 	nil
		version: 	a MCVersion(Seaside-Pharo-Tools-Web-MichaelDavies.24)
		repository: 	a MCDirectoryRepository(/Users/marschall/apps/Smalltalk/Pharo/Pharo...etc...
		versions: 	#(#('Seaside-Tests-Core' 'pmm' 253 'Seaside-Tests-Core-pmm.253.mcz') ...etc...
		loaded: 	a Set('Settings-Polymorph-MarcusDenker.30' 'Collections-Strings-Stephan...etc...
		newer: 	a Set('Grease-Core')
		inherited: 	a Set('Network-Url-TonyFleig.46' 'Morphic-stephane.ducasse.132' 'Sys...etc...
		packageList: 	an Array(a Text for 'Grease-Core' a Text for 'Grease-Tests-Core' a...etc...
		selectedPackage: 	'Seaside-Pharo-Tools-Web'
		selectedVersion: 	'Seaside-Pharo-Tools-Web-MichaelDavies.24.mcz'
		order: 	5
		versionInfo: 	nil
		pattern: 	nil


PluggableButtonMorph>>performAction
	Receiver: a PluggableButtonMorph(142344192)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	478@181 corner: 540@207
		owner: 	a PanelMorph(246153216)
		submorphs: 	an Array(an AlignmentMorph(611581952))
		fullBounds: 	478@181 corner: 540@207
		color: 	Color transparent
		extension: 	a MorphExtension (148897792) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


[:m | (m containsPoint: evt cursorPoint)
		ifTrue: [m enabled
				ifTrue: [m performAction]]] in PluggableButtonMorph>>mouseUp:
	Receiver: a PluggableButtonMorph(142344192)
	Arguments and temporary variables: 
		evt: 	a PluggableButtonMorph(142344192)
		m: 	[499@190 mouseUp 120293 nil]
	Receiver's instance variables: 
		bounds: 	478@181 corner: 540@207
		owner: 	a PanelMorph(246153216)
		submorphs: 	an Array(an AlignmentMorph(611581952))
		fullBounds: 	478@181 corner: 540@207
		color: 	Color transparent
		extension: 	a MorphExtension (148897792) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


Array(SequenceableCollection)>>do:
	Receiver: an Array(a PluggableButtonMorph(266862592) a PluggableButtonMorph(858521600) a PluggableBu...etc...
	Arguments and temporary variables: 
		aBlock: 	[:m | (m containsPoint: evt cursorPoint)
		ifTrue: [m enabled
				ifTru...etc...
		index: 	7
		indexLimiT: 	10
	Receiver's instance variables: 
an Array(a PluggableButtonMorph(266862592) a PluggableButtonMorph(858521600) a PluggableBu...etc...

PluggableButtonMorph>>mouseUp:
	Receiver: a PluggableButtonMorph(142344192)
	Arguments and temporary variables: 
		evt: 	[499@190 mouseUp 120293 nil]
		all: 	an Array(a PluggableButtonMorph(266862592) a PluggableButtonMorph(85852160...etc...
	Receiver's instance variables: 
		bounds: 	478@181 corner: 540@207
		owner: 	a PanelMorph(246153216)
		submorphs: 	an Array(an AlignmentMorph(611581952))
		fullBounds: 	478@181 corner: 540@207
		color: 	Color transparent
		extension: 	a MorphExtension (148897792) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


PluggableButtonMorph(Morph)>>handleMouseUp:
	Receiver: a PluggableButtonMorph(142344192)
	Arguments and temporary variables: 
		anEvent: 	[499@190 mouseUp 120293 nil]
	Receiver's instance variables: 
		bounds: 	478@181 corner: 540@207
		owner: 	a PanelMorph(246153216)
		submorphs: 	an Array(an AlignmentMorph(611581952))
		fullBounds: 	478@181 corner: 540@207
		color: 	Color transparent
		extension: 	a MorphExtension (148897792) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


MouseButtonEvent>>sentTo:
	Receiver: [499@190 mouseUp 120293 nil]
	Arguments and temporary variables: 
		anObject: 	a PluggableButtonMorph(142344192)
	Receiver's instance variables: 
		timeStamp: 	120293
		source: 	a HandMorph(843055104)
		windowIndex: 	nil
		type: 	#mouseUp
		buttons: 	0
		position: 	499@190
		handler: 	nil
		wasHandled: 	true
		whichButton: 	4


PluggableButtonMorph(Morph)>>handleEvent:
	Receiver: a PluggableButtonMorph(142344192)
	Arguments and temporary variables: 
		anEvent: 	[499@190 mouseUp 120293 nil]
	Receiver's instance variables: 
		bounds: 	478@181 corner: 540@207
		owner: 	a PanelMorph(246153216)
		submorphs: 	an Array(an AlignmentMorph(611581952))
		fullBounds: 	478@181 corner: 540@207
		color: 	Color transparent
		extension: 	a MorphExtension (148897792) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


PluggableButtonMorph(Morph)>>handleFocusEvent:
	Receiver: a PluggableButtonMorph(142344192)
	Arguments and temporary variables: 
		anEvent: 	[499@190 mouseUp 120293 nil]
	Receiver's instance variables: 
		bounds: 	478@181 corner: 540@207
		owner: 	a PanelMorph(246153216)
		submorphs: 	an Array(an AlignmentMorph(611581952))
		fullBounds: 	478@181 corner: 540@207
		color: 	Color transparent
		extension: 	a MorphExtension (148897792) [balloonText]  [other:  (lastState -> f...etc...
		borderWidth: 	0
		borderColor: 	#simple
		model: 	a MCFileRepositoryInspector
		label: 	'Merge'
		getStateSelector: 	#buttonState
		actionSelector: 	#performButtonAction:enabled:
		getLabelSelector: 	nil
		getMenuSelector: 	nil
		shortcutCharacter: 	nil
		askBeforeChanging: 	false
		triggerOnMouseDown: 	false
		offColor: 	nil
		onColor: 	nil
		feedbackColor: 	nil
		showSelectionFeedback: 	false
		allButtons: 	nil
		arguments: 	#(#merge #hasVersion)
		argumentsProvider: 	nil
		argumentsSelector: 	nil
		gradientLook: 	true
		enabled: 	true
		actionBlock: 	nil
		getColorSelector: 	nil
		getEnabledSelector: 	#hasVersion


[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[499@190 mouseUp 120293 nil]
		focusHolder: 	a PluggableButtonMorph(142344192)
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	499@190 corner: 515@206
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	499@190 corner: 515@206
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(224133120)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[499@190 mouseUp 120293 nil]
		targetOffset: 	21@9
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 120293 499 190 0 0 1 1)
		lastKeyScanCode: 	126
		combinedChar: 	nil


[aBlock value] in PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1436@830
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(220463104) a Sys...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


BlockClosure>>on:do:
	Receiver: [aBlock value]
	Arguments and temporary variables: 
		exception: 	Error
		handlerAction: 	[:ex | 
ActiveWorld := priorWorld.
	ActiveEvent := priorEvent.
	...etc...
		handlerActive: 	false
	Receiver's instance variables: 
		outerContext: 	PasteUpMorph>>becomeActiveDuring:
		startpc: 	67
		numArgs: 	0


PasteUpMorph>>becomeActiveDuring:
	Receiver: a PasteUpMorph(425197568) [world]
	Arguments and temporary variables: 
		aBlock: 	[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
		...etc...
		priorWorld: 	a PasteUpMorph(425197568) [world]
		priorHand: 	a HandMorph(843055104)
		priorEvent: 	[499@190 mouseOver red nil nil]
	Receiver's instance variables: 
		bounds: 	0@0 corner: 1436@830
		owner: 	nil
		submorphs: 	an Array(a TaskbarMorph(984088576) a PreDebugWindow(220463104) a Sys...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.191 g: 0.191 b: 0.191)
		extension: 	a MorphExtension (666632192) [eventHandler = an EventHandler]  [othe...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		backgroundMorph: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil


HandMorph>>sendFocusEvent:to:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[499@190 mouseUp 120293 nil]
		focusHolder: 	a PluggableButtonMorph(142344192)
		aBlock: 	[self mouseFocus: nil]
		w: 	a PasteUpMorph(425197568) [world]
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	499@190 corner: 515@206
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	499@190 corner: 515@206
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(224133120)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[499@190 mouseUp 120293 nil]
		targetOffset: 	21@9
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 120293 499 190 0 0 1 1)
		lastKeyScanCode: 	126
		combinedChar: 	nil


HandMorph>>sendEvent:focus:clear:
	Receiver: a HandMorph(843055104)
	Arguments and temporary variables: 
		anEvent: 	[499@190 mouseUp 120293 nil]
		focusHolder: 	a PluggableButtonMorph(142344192)
		aBlock: 	[self mouseFocus: nil]
		result: 	nil
	Receiver's instance variables: 
		bounds: 	499@190 corner: 515@206
		owner: 	a PasteUpMorph(425197568) [world]
		submorphs: 	#()
		fullBounds: 	499@190 corner: 515@206
		color: 	Color blue
		extension: 	a MorphExtension (141295616) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a PluggableButtonMorph(224133120)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[499@190 mouseUp 120293 nil]
		targetOffset: 	21@9
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hardwareCursor: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 120293 499 190 0 0 1 1)
		lastKeyScanCode: 	126
		combinedChar: 	nil



--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #isConflict
MCMergeBrowser>>selectionIsConflicted
PluggableButtonMorph>>update:
PluggableButtonMorph>>getEnabledSelector:
[:triplet | 
| aButton state |
state := triplet
				at: 5
				ifAbsent: [#buttonState].
	aButton := PluggableButtonMorph
				on: self
				getState: state
				action: #performButtonAction:enabled:.
	aButton hResizing: #spaceFill;
		 vResizing: #spaceFill;
		 label: triplet first asString;
		
		getEnabledSelector: (triplet
				at: 4
				ifAbsent: [#buttonEnabled]);
		
		arguments: (Array
				with: triplet second
				with: (triplet
						at: 4
						ifAbsent: [#buttonEnabled])).
	aRow addMorphBack: aButton.
	aButton setBalloonText: triplet third] in MCMergeBrowser(MCTool)>>buttonRow:
Array(SequenceableCollection)>>do:
MCMergeBrowser(MCTool)>>buttonRow:
[:spec | 
| send fractions offsets |
send := spec first.
	fractions := spec
				at: 2
				ifAbsent: [#(0 0 1 1 )].
	offsets := spec
				at: 3
				ifAbsent: [#(0 0 0 0 )].
	window
		addMorph: (self perform: send first withArguments: send allButFirst)
		fullFrame: (LayoutFrame
				fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
				offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth))] in MCMergeBrowser(MCTool)>>buildWindow
Array(SequenceableCollection)>>do:
MCMergeBrowser(MCTool)>>buildWindow
MCMergeBrowser(MCTool)>>window
MCMergeBrowser(MCTool)>>showModally
MCMergeResolutionRequest>>viewMerger
MCMergeResolutionRequest>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MCMergeResolutionRequest(Exception)>>signal
MCMergeResolutionRequest(Exception)>>signal:
MCVersionMerger>>resolveConflicts
MCVersionMerger>>mergeWithNameLike:
MCVersionMerger class>>mergeVersion:
MCVersion>>merge
MCFileRepositoryInspector(MCVersionInspector)>>merge
MCFileRepositoryInspector>>merge
MCFileRepositoryInspector(MCTool)>>performButtonAction:enabled:
PluggableButtonMorph>>performAction
[:m | (m containsPoint: evt cursorPoint)
		ifTrue: [m enabled
				ifTrue: [m performAction]]] in PluggableButtonMorph>>mouseUp:
Array(SequenceableCollection)>>do:
PluggableButtonMorph>>mouseUp:
PluggableButtonMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
PluggableButtonMorph(Morph)>>handleEvent:
PluggableButtonMorph(Morph)>>handleFocusEvent:
[ActiveHand := self.
	ActiveEvent := anEvent.
	result := focusHolder
				handleFocusEvent: (anEvent
						transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h | 
ActiveHand := h.
	h processEvents.
	ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
	Processor yield.
	false] whileFalse.
	nil] in Project class>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------

THERE_BE_DRAGONS_HERE
SubclassResponsibility: a WAJitStatus had the subclass responsibility to implement #renderValuesOn:
28 August 2011 4:01:17 pm

VM: Mac OS - intel - 1071 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.117] Croquet Cog 4.0.0
Image: Pharo1.3 [Latest update: #13298]

WAJitStatus(Object)>>subclassResponsibility
	Receiver: a WAJitStatus
	Arguments and temporary variables: 

	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


WAJitStatus(WAStatusItem)>>renderValuesOn:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		html: 	a WARenderCanvas
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


[self renderValuesOn: html.
	self isRunningCog
		ifTrue: [self renderCogValuesOn: html]] in [self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBody class: self tableBodyCssClass;
		
		with: [self renderValuesOn: html.
			self isRunningCog
				ifTrue: [self renderCogValuesOn: html]]] in WAJitStatus(WAPharoStatusItem)>>renderContentOn:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		html: 	a WARenderCanvas
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


BlockClosure>>renderOn:
	Receiver: [self renderValuesOn: html.
	self isRunningCog
		ifTrue: [self renderCogValuesOn: html]]
	Arguments and temporary variables: 
		aRenderer: 	a WARenderCanvas
	Receiver's instance variables: 
		outerContext: 	[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tab...etc...
		startpc: 	83
		numArgs: 	0


WARenderCanvas(WARenderer)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self renderValuesOn: html.
	self isRunningCog
		ifTrue: [self render...etc...
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WARenderCanvas(WACanvas)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self renderValuesOn: html.
	self isRunningCog
		ifTrue: [self render...etc...
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


[self before.
	canvas render: anObject.
	self after] in WAGenericTag(WATagBrush)>>with:
	Receiver: a WAGenericTag
	Arguments and temporary variables: 
		anObject: 	[self renderValuesOn: html.
	self isRunningCog
		ifTrue: [self render...etc...
	Receiver's instance variables: 
		canvas: 	a WARenderCanvas
		parent: 	a WATableTag
		closed: 	false
		attributes: 	a WAHtmlAttributes('class'->'left')
		tag: 	'tbody'


BlockClosure>>renderOn:
	Receiver: [self before.
	canvas render: anObject.
	self after]
	Arguments and temporary variables: 
		aRenderer: 	a WARenderCanvas
	Receiver's instance variables: 
		outerContext: 	WAGenericTag(WATagBrush)>>with:
		startpc: 	54
		numArgs: 	0


WARenderCanvas(WARenderer)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WARenderCanvas(WACanvas)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WARenderCanvas(WACanvas)>>nest:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		aBlock: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WAGenericTag(WABrush)>>with:
	Receiver: a WAGenericTag
	Arguments and temporary variables: 
		aBlock: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		canvas: 	a WARenderCanvas
		parent: 	a WATableTag
		closed: 	false
		attributes: 	a WAHtmlAttributes('class'->'left')
		tag: 	'tbody'


WAGenericTag(WATagBrush)>>with:
	Receiver: a WAGenericTag
	Arguments and temporary variables: 
		anObject: 	[self renderValuesOn: html.
	self isRunningCog
		ifTrue: [self render...etc...
	Receiver's instance variables: 
		canvas: 	a WARenderCanvas
		parent: 	a WATableTag
		closed: 	false
		attributes: 	a WAHtmlAttributes('class'->'left')
		tag: 	'tbody'


[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBody class: self tableBodyCssClass;
		
		with: [self renderValuesOn: html.
			self isRunningCog
				ifTrue: [self renderCogValuesOn: html]]] in WAJitStatus(WAPharoStatusItem)>>renderContentOn:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		html: 	a WARenderCanvas
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


BlockClosure>>renderOn:
	Receiver: [self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBody class: self tableB...etc...
	Arguments and temporary variables: 
		aRenderer: 	a WARenderCanvas
	Receiver's instance variables: 
		outerContext: 	WAJitStatus(WAPharoStatusItem)>>renderContentOn:
		startpc: 	63
		numArgs: 	0


WARenderCanvas(WARenderer)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBo...etc...
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WARenderCanvas(WACanvas)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBo...etc...
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


[self before.
	canvas render: anObject.
	self after] in WATableTag(WATagBrush)>>with:
	Receiver: a WATableTag
	Arguments and temporary variables: 
		anObject: 	[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBo...etc...
	Receiver's instance variables: 
		canvas: 	a WARenderCanvas
		parent: 	nil
		closed: 	false
		attributes: 	nil


BlockClosure>>renderOn:
	Receiver: [self before.
	canvas render: anObject.
	self after]
	Arguments and temporary variables: 
		aRenderer: 	a WARenderCanvas
	Receiver's instance variables: 
		outerContext: 	WATableTag(WATagBrush)>>with:
		startpc: 	54
		numArgs: 	0


WARenderCanvas(WARenderer)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WARenderCanvas(WACanvas)>>render:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		anObject: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WARenderCanvas(WACanvas)>>nest:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		aBlock: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WATableTag(WABrush)>>with:
	Receiver: a WATableTag
	Arguments and temporary variables: 
		aBlock: 	[self before.
	canvas render: anObject.
	self after]
	Receiver's instance variables: 
		canvas: 	a WARenderCanvas
		parent: 	nil
		closed: 	false
		attributes: 	nil


WATableTag(WATagBrush)>>with:
	Receiver: a WATableTag
	Arguments and temporary variables: 
		anObject: 	[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBo...etc...
	Receiver's instance variables: 
		canvas: 	a WARenderCanvas
		parent: 	nil
		closed: 	false
		attributes: 	nil


WARenderCanvas(WAHtmlCanvas)>>table:
	Receiver: a WARenderCanvas
	Arguments and temporary variables: 
		aBlock: 	[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBody...etc...
	Receiver's instance variables: 
		context: 	a WARenderContext
		lastId: 	nil
		currentBrush: 	nil
		parentBrush: 	a WAGenericTag


WAJitStatus(WAPharoStatusItem)>>renderContentOn:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		html: 	a WARenderCanvas
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


WARenderVisitor>>visitPainter:
	Receiver: a WARenderVisitor
	Arguments and temporary variables: 
		aPainter: 	a WAJitStatus
		renderer: 	a WARenderCanvas
	Receiver's instance variables: 
		renderContext: 	a WARenderContext


WARenderVisitor(WAPainterVisitor)>>visitPresenter:
	Receiver: a WARenderVisitor
	Arguments and temporary variables: 
		aPresenter: 	a WAJitStatus
	Receiver's instance variables: 
		renderContext: 	a WARenderContext


WARenderVisitor(WAPainterVisitor)>>visitComponent:
	Receiver: a WARenderVisitor
	Arguments and temporary variables: 
		aComponent: 	a WAJitStatus
	Receiver's instance variables: 
		renderContext: 	a WARenderContext


WAJitStatus(WAComponent)>>accept:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		aVisitor: 	a WARenderVisitor
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


WARenderVisitor(WAVisitor)>>visit:
	Receiver: a WARenderVisitor
	Arguments and temporary variables: 
		anObject: 	a WAJitStatus
	Receiver's instance variables: 
		renderContext: 	a WARenderContext


WARenderingGuide(WAPresenterGuide)>>visitPainter:
	Receiver: a WARenderingGuide
	Arguments and temporary variables: 
		aPainter: 	a WAJitStatus
	Receiver's instance variables: 
		client: 	a WARenderVisitor


WARenderingGuide(WAPainterVisitor)>>visitPresenter:
	Receiver: a WARenderingGuide
	Arguments and temporary variables: 
		aPresenter: 	a WAJitStatus
	Receiver's instance variables: 
		client: 	a WARenderVisitor


WARenderingGuide(WAPainterVisitor)>>visitComponent:
	Receiver: a WARenderingGuide
	Arguments and temporary variables: 
		aComponent: 	a WAJitStatus
	Receiver's instance variables: 
		client: 	a WARenderVisitor


WAJitStatus(WAComponent)>>accept:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		aVisitor: 	a WARenderingGuide
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


WARenderingGuide(WAPainterVisitor)>>visitDecorationsOfComponent:
	Receiver: a WARenderingGuide
	Arguments and temporary variables: 
		aComponent: 	a WAJitStatus
	Receiver's instance variables: 
		client: 	a WARenderVisitor


WAJitStatus(WAComponent)>>acceptDecorated:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		aVisitor: 	a WARenderingGuide
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil


WARenderingGuide(WAPresenterGuide)>>visit:
	Receiver: a WARenderingGuide
	Arguments and temporary variables: 
		aPainter: 	a WAJitStatus
	Receiver's instance variables: 
		client: 	a WARenderVisitor


WAJitStatus(WAPainter)>>renderWithContext:
	Receiver: a WAJitStatus
	Arguments and temporary variables: 
		aRenderContext: 	a WARenderContext
	Receiver's instance variables: 
		decoration: 	a WAValueHolder contents: a WAJitStatus
		image: 	nil



--- The full stack ---
WAJitStatus(Object)>>subclassResponsibility
WAJitStatus(WAStatusItem)>>renderValuesOn:
[self renderValuesOn: html.
	self isRunningCog
		ifTrue: [self renderCogValuesOn: html]] in [self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBody class: self tableBodyCssClass;
		
		with: [self renderValuesOn: html.
			self isRunningCog
				ifTrue: [self renderCogValuesOn: html]]] in WAJitStatus(WAPharoStatusItem)>>renderContentOn:
BlockClosure>>renderOn:
WARenderCanvas(WARenderer)>>render:
WARenderCanvas(WACanvas)>>render:
[self before.
	canvas render: anObject.
	self after] in WAGenericTag(WATagBrush)>>with:
BlockClosure>>renderOn:
WARenderCanvas(WARenderer)>>render:
WARenderCanvas(WACanvas)>>render:
WARenderCanvas(WACanvas)>>nest:
WAGenericTag(WABrush)>>with:
WAGenericTag(WATagBrush)>>with:
[self renderHeaderOn: html.
	self renderFooterOn: html.
	html tableBody class: self tableBodyCssClass;
		
		with: [self renderValuesOn: html.
			self isRunningCog
				ifTrue: [self renderCogValuesOn: html]]] in WAJitStatus(WAPharoStatusItem)>>renderContentOn:
BlockClosure>>renderOn:
WARenderCanvas(WARenderer)>>render:
WARenderCanvas(WACanvas)>>render:
[self before.
	canvas render: anObject.
	self after] in WATableTag(WATagBrush)>>with:
BlockClosure>>renderOn:
WARenderCanvas(WARenderer)>>render:
WARenderCanvas(WACanvas)>>render:
WARenderCanvas(WACanvas)>>nest:
WATableTag(WABrush)>>with:
WATableTag(WATagBrush)>>with:
WARenderCanvas(WAHtmlCanvas)>>table:
WAJitStatus(WAPharoStatusItem)>>renderContentOn:
WARenderVisitor>>visitPainter:
WARenderVisitor(WAPainterVisitor)>>visitPresenter:
WARenderVisitor(WAPainterVisitor)>>visitComponent:
WAJitStatus(WAComponent)>>accept:
WARenderVisitor(WAVisitor)>>visit:
WARenderingGuide(WAPresenterGuide)>>visitPainter:
WARenderingGuide(WAPainterVisitor)>>visitPresenter:
WARenderingGuide(WAPainterVisitor)>>visitComponent:
WAJitStatus(WAComponent)>>accept:
WARenderingGuide(WAPainterVisitor)>>visitDecorationsOfComponent:
WAJitStatus(WAComponent)>>acceptDecorated:
WARenderingGuide(WAPresenterGuide)>>visit:
WAJitStatus(WAPainter)>>renderWithContext:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
WAJitStatus(WAPainter)>>renderOn:
WAHtmlCanvas(WARenderer)>>render:
WAHtmlCanvas(WACanvas)>>render:
WASimpleNavigation>>renderSelectionOn:
[self renderSelectionOn: html] in [html div class: 'navigation-options';
		
		with: [self renderOptionsOn: html].
	html div class: 'navigation-content';
		
		with: [self renderSelectionOn: html]] in WASimpleNavigation(WANavigation)>>renderContentOn:
BlockClosure>>renderOn:
WAHtmlCanvas(WARenderer)>>render:
WAHtmlCanvas(WACanvas)>>render:
[self before.
	canvas render: anObject.
	self after] in WADivTag(WATagBrush)>>with:
BlockClosure>>renderOn:
WAHtmlCanvas(WARenderer)>>render:
WAHtmlCanvas(WACanvas)>>render:
WAHtmlCanvas(WACanvas)>>nest:
WADivTag(WABrush)>>with:
WADivTag(WATagBrush)>>with:
[html div class: 'navigation-options';
		
		with: [self renderOptionsOn: html].
	html div class: 'navigation-content';
		
		with: [self renderSelectionOn: html]] in WASimpleNavigation(WANavigation)>>renderContentOn:
BlockClosure>>renderOn:
WAHtmlCanvas(WARenderer)>>render:
WAHtmlCanvas(WACanvas)>>render:
[self before.
	canvas render: anObject.
	self after] in WADivTag(WATagBrush)>>with:
BlockClosure>>renderOn:
WAHtmlCanvas(WARenderer)>>render:
WAHtmlCanvas(WACanvas)>>render:
WAHtmlCanvas(WACanvas)>>nest:
WADivTag(WABrush)>>with:
WADivTag(WATagBrush)>>with:
WASimpleNavigation(WANavigation)>>renderContentOn:
WARenderVisitor>>visitPainter:
WARenderVisitor(WAPainterVisitor)>>visitPresenter:
WARenderVisitor(WAPainterVisitor)>>visitComponent:
WASimpleNavigation(WAComponent)>>accept:
WARenderVisitor(WAVisitor)>>visit:
WARenderingGuide(WAPresenterGuide)>>visitPainter:
WARenderingGuide(WAPainterVisitor)>>visitPresenter:
WARenderingGuide(WAPainterVisitor)>>visitComponent:
WASimpleNavigation(WAComponent)>>accept:
WARenderingGuide(WAPainterVisitor)>>visitDecorationsOfComponent:
WASimpleNavigation(WAComponent)>>acceptDecorated:
WARenderingGuide(WAPresenterGuide)>>visit:
WASimpleNavigation(WAPainter)>>renderWithContext:
WASimpleNavigation(WAPainter)>>renderOn:
WARenderCanvas(WARenderer)>>render:
WARenderCanvas(WACanvas)>>render:
[:each | aRenderer render: each] in WAStatus(WAPresenter)>>renderContentOn:
[:each | each isNil
		ifFalse: [aBlock value: each]] in WAStatus(WAPresenter)>>childrenDo:
Array(SequenceableCollection)>>do:
WAStatus(WAPresenter)>>childrenDo:
WAStatus(WAPresenter)>>renderContentOn:
WARenderVisitor>>visitPainter:
WARenderVisitor(WAPainterVisitor)>>visitPresenter:
WARenderVisitor(WAPainterVisitor)>>visitComponent:
WAStatus(WAComponent)>>accept:
WARenderVisitor(WAVisitor)>>visit:
WARenderingGuide(WAPresenterGuide)>>visitPainter:
WARenderingGuide(WAPainterVisitor)>>visitPresenter:
WARenderingGuide(WAPainterVisitor)>>visitComponent:
WAStatus(WAComponent)>>accept:
WAStatus(WAPresenter)>>renderUndecoratedWithContext:
WAToolDecoration(WADecoration)>>renderNextOn:
WAToolDecoration>>renderChildOn:
WAToolDecoration>>renderContentOn:
WARenderVisitor>>visitPainter:
WARenderVisitor(WAPainterVisitor)>>visitPresenter:
WARenderVisitor(WAPainterVisitor)>>visitDecoration:
WAToolDecoration(WADecoration)>>accept:
WARenderVisitor(WAVisitor)>>visit:
WARenderingGuide(WAPresenterGuide)>>visitPainter:
WARenderingGuide(WAPainterVisitor)>>visitPresenter:
WARenderingGuide(WAPainterVisitor)>>visitDecoration:
WAToolDecoration(WADecoration)>>accept:
WARenderingGuide(WAPainterVisitor)>>visitDecorationsOfComponent:
WAStatus(WAComponent)>>acceptDecorated:
WARenderingGuide(WAPresenterGuide)>>visit:
WAStatus(WAPainter)>>renderWithContext:
WARenderPhaseContinuation>>processRendering:
[:response | self processRendering: response] in WARenderPhaseContinuation>>handleRequest
WARequestContext>>respond:
WARenderPhaseContinuation(WASessionContinuation)>>respond:
WARenderPhaseContinuation>>handleRequest
[self handleRequest] in WARenderPhaseContinuation(WASessionContinuation)>>basicValue
BlockClosure>>on:do:
WARenderPhaseContinuation(WASessionContinuation)>>withUnregisteredHandlerDo:
WARenderPhaseContinuation(WASessionContinuation)>>basicValue
WARenderPhaseContinuation(WASessionContinuation)>>value
WASession>>handleFiltered:
WATimingToolFilter(WARequestFilter)>>handleFiltered:
[super handleFiltered: aRequestContext] in WATimingToolFilter>>handleFiltered:
BlockClosure>>ensure:
WATimingToolFilter>>handleFiltered:
WADeprecatedToolFilter(WARequestFilter)>>handleFiltered:
[super handleFiltered: aRequestContext] in WADeprecatedToolFilter>>handleFiltered:
BlockClosure>>on:do:
WADeprecatedToolFilter>>handleFiltered:
WAMutualExclusionFilter(WARequestFilter)>>handleFiltered:
[super handleFiltered: aRequestContext] in WAMutualExclusionFilter>>handleFiltered:
BlockClosure>>ensure:
[owner := process.
	aBlock
		ensure: [owner := nil]] in WAMutex>>critical:
[caught := true.
	self wait.
	blockValue := mutuallyExcludedBlock value] in Semaphore>>critical:
BlockClosure>>ensure:
Semaphore>>critical:
WAMutex>>critical:
WAMutualExclusionFilter>>handleFiltered:
[self filter handleFiltered: aRequestContext] in WASession(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in WARequestContext>>push:during:
BlockClosure>>ensure:
WARequestContext>>push:during:
WASession(WARequestHandler)>>handle:
WAApplication(WARegistry)>>dispatch:to:
WAApplication(WARegistry)>>handleKeyed:with:
WAApplication(WARegistry)>>handleFiltered:
WAApplication>>handleFiltered:
WAExceptionFilter(WARequestFilter)>>handleFiltered:
[super handleFiltered: aRequestContext] in WAExceptionFilter>>handleFiltered:
BlockClosure>>on:do:
WAWalkbackErrorHandler(WAExceptionHandler)>>handleExceptionsDuring:
WAWalkbackErrorHandler class(WAExceptionHandler class)>>handleExceptionsDuring:context:
WAExceptionFilter>>handleFiltered:
[self filter handleFiltered: aRequestContext] in WAApplication(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in WARequestContext>>push:during:
BlockClosure>>ensure:
WARequestContext>>push:during:
WAApplication(WARequestHandler)>>handle:
WADispatcher>>handleFiltered:named:
WADispatcher>>handleFiltered:
[self filter handleFiltered: aRequestContext] in WADispatcher(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in WARequestContext>>push:during:
BlockClosure>>ensure:
WARequestContext>>push:during:
WADispatcher(WARequestHandler)>>handle:
[self requestHandler handle: aRequestContext] in WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
BlockClosure>>on:do:
WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
WAComancheAdaptor(WAServerAdaptor)>>handle:
[self handle: context;
		 responseFrom: context] in WAComancheAdaptor(WAServerAdaptor)>>process:
BlockClosure>>ensure:
WAComancheAdaptor(WAServerAdaptor)>>process:
WAComancheAdaptor>>processHttpRequest:
HttpService>>processHttpRequest:
[self target processHttpRequest: request] in HttpAdaptor>>dispatchRequest:
BlockClosure>>on:do:
HttpService>>handleDispatchErrorsIn:
HttpAdaptor>>dispatchRequest:
[[[request := self readRequest]
		on: Error
		do: [:ex | continue := false].
	continue
		ifTrue: [response := self dispatchRequest: request.
			self
				addConnectionHeaders: response
				request: request
				count: count.
			(self writeResponse: response for: request)
				ifFalse: [^ self].
			count := count + 1.
			continue := response isPersistent
						and: [count < limit]].
	continue] whileTrue.
	nil] in HttpAdaptor>>beginConversation
BlockClosure>>ensure:
HttpAdaptor>>beginConversation
HttpAdaptor class>>readAndWriteTo:service:
HttpAdaptor class>>readAndWriteToSocket:service:
HttpService>>serve:
[self serve: aSocket] in HttpService(TcpService)>>value:
[self value.
	Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------

