18 January 2012 1:57:38 am

VM: Mac OS - intel - 1058 - CoInterpreter VMMaker.oscog-eem.137 uuid: fbe64d98-6b1a-4c5b-b3f3-d2b1091406dc Nov  9 2011, StackToRegisterMappingCogit VMMaker.oscog-eem.135 uuid: 1c85e5ef-0fe8-4a1e-9421-ff0d53845fba Nov  9 2011, r2508 http://www.squeakvm.org/svn/squeak/branches/Cog
Image: Pharo1.4a [Latest update: #14284]

ByteSymbol(Object)>>doesNotUnderstand: #run:with:in:
	Receiver: #includesCategory:
	Arguments and temporary variables: 
		aMessage: 	run: #initialize with: #() in: a SystemUnknownAnnouncement
		exception: 	MessageNotUnderstood: ByteSymbol>>run:with:in:
		resumeValue: 	nil
	Receiver's instance variables: 
#includesCategory:

SystemUnknownAnnouncement class(Behavior)>>new
	Receiver: SystemUnknownAnnouncement
	Arguments and temporary variables: 

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

		subclasses: 	nil
		name: 	#SystemUnknownAnnouncement
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#SystemAnnouncements
		traitComposition: 	{}
		localSelectors: 	nil

SystemUnknownAnnouncement class(SystemAnnouncement class)>>new
	Receiver: SystemUnknownAnnouncement
	Arguments and temporary variables: 

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

		subclasses: 	nil
		name: 	#SystemUnknownAnnouncement
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#SystemAnnouncements
		traitComposition: 	{}
		localSelectors: 	nil

DoItEvent(AbstractEvent)>>asSystemAnnouncement
	Receiver: DoIt Event for item: 'self compactAll' of kind: #expression
	Arguments and temporary variables: 
		itemKindName: 	#expression
		eventKindName: 	'DoIt'
		announcementClassName: 	#SystemExpressionDoItAnnouncement
		announcementClass: 	nil
	Receiver's instance variables: 
		item: 	'self compactAll'
		itemKind: 	#expression
		environment: 	a Dictionary()
		context: 	nil

SystemAnnouncer class>>announceFromEvent:
	Receiver: SystemAnnouncer
	Arguments and temporary variables: 
		aChangeEvent: 	DoIt Event for item: 'self compactAll' of kind: #expression
		announcement: 	nil
	Receiver's instance variables: 
		superclass: 	Announcer
		methodDict: 	a MethodDictionary()
		format: 	132
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	{TestAnnouncer}
		name: 	#SystemAnnouncer
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#SystemAnnouncements
		traitComposition: 	{}
		localSelectors: 	nil
		announcer: 	an Announcer
		privateAnnouncer: 	an Announcer

WeakMessageSend>>valueWithArguments:
	Receiver: WeakMessageSend(#announceFromEvent: -> SystemAnnouncer)
	Arguments and temporary variables: 
		anArray: 	an Array(DoIt Event for item: 'self compactAll' of kind: #expression)
	Receiver's instance variables: 
		selector: 	#announceFromEvent:
		shouldBeNil: 	#()
		arguments: 	a WeakArray()

[answer := each valueWithArguments: anArray] in WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom:
	Receiver: #(WeakMessageSend(#event: -> Smalltalk)
WeakMessageSend(#event: -> RecentMessageList)
Weak...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
#(WeakMessageSend(#event: -> Smalltalk)
WeakMessageSend(#event: -> RecentMessageList)
Weak...etc...

BlockClosure>>on:do:
	Receiver: [answer := each valueWithArguments: anArray]
	Arguments and temporary variables: 
		exception: 	an ExceptionSet
		handlerAction: 	[:exc | 
self valueWithArguments: anArray startingFrom: index + ...etc...
		handlerActive: 	false
	Receiver's instance variables: 
		outerContext: 	WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom...etc...
		startpc: 	84
		numArgs: 	0

WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom:
	Receiver: #(WeakMessageSend(#event: -> Smalltalk)
WeakMessageSend(#event: -> RecentMessageList)
Weak...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
#(WeakMessageSend(#event: -> Smalltalk)
WeakMessageSend(#event: -> RecentMessageList)
Weak...etc...

WeakActionSequenceTrappingErrors>>valueWithArguments:
	Receiver: #(WeakMessageSend(#event: -> Smalltalk)
WeakMessageSend(#event: -> RecentMessageList)
Weak...etc...
	Arguments and temporary variables: 
		anArray: 	an Array(DoIt Event for item: 'self compactAll' of kind: #expression)
	Receiver's instance variables: 
#(WeakMessageSend(#event: -> Smalltalk)
WeakMessageSend(#event: -> RecentMessageList)
Weak...etc...

SystemEventManager(Object)>>triggerEvent:withArguments:
	Receiver: a SystemEventManager
	Arguments and temporary variables: 
		anEventSelector: 	'expressionDoItEvent:'
		anArgumentList: 	an Array(DoIt Event for item: 'self compactAll' of kind: #expre...etc...
	Receiver's instance variables: 
		actionMap: 	an IdentityDictionary(#categoryAddedEvent:->#(WeakMessageSend(#event...etc...

SystemEventManager(Object)>>triggerEvent:with:
	Receiver: a SystemEventManager
	Arguments and temporary variables: 
		anEventSelector: 	'expressionDoItEvent:'
		anObject: 	DoIt Event for item: 'self compactAll' of kind: #expression
	Receiver's instance variables: 
		actionMap: 	an IdentityDictionary(#categoryAddedEvent:->#(WeakMessageSend(#event...etc...

DoItEvent(AbstractEvent)>>trigger:
	Receiver: DoIt Event for item: 'self compactAll' of kind: #expression
	Arguments and temporary variables: 
		anEventManager: 	a SystemEventManager
	Receiver's instance variables: 
		item: 	'self compactAll'
		itemKind: 	#expression
		environment: 	a Dictionary()
		context: 	nil

SystemChangeNotifier>>trigger:
	Receiver: a SystemChangeNotifier
	Arguments and temporary variables: 
		event: 	DoIt Event for item: 'self compactAll' of kind: #expression
	Receiver's instance variables: 
		eventSource: 	a SystemEventManager
		silenceLevel: 	0

SystemChangeNotifier>>evaluated:context:
	Receiver: a SystemChangeNotifier
	Arguments and temporary variables: 
		expression: 	'self compactAll'
		aContext: 	nil
	Receiver's instance variables: 
		eventSource: 	a SystemEventManager
		silenceLevel: 	0

Compiler>>evaluate:in:to:notifying:ifFail:logged:
	Receiver: a Compiler
	Arguments and temporary variables: 
		textOrStream: 	a ReadWriteStream
		aContext: 	nil
		receiver: 	HashedCollection
		aRequestor: 	a TextMorphForEditView(442236928)
		failBlock: 	[self morph flash.
	^ nil]
		logFlag: 	true
		methodNode: 	DoIt
	^ self compactAll
		method: 	(HashedCollection class>>#DoIt "a CompiledMethod(1020526592)")
		value: 	HashedCollection
		toLog: 	'self compactAll'
		itsSelection: 	a Text for 'self compactAll'
		itsSelectionString: 	'self compactAll'
	Receiver's instance variables: 
		sourceStream: 	a ReadWriteStream
		requestor: 	a TextMorphForEditView(442236928)
		class: 	HashedCollection 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: 	HashedCollection
		ctxt: 	nil
	Receiver's instance variables: 
		morph: 	a TextMorphForEditView(442236928)
		selectionShowing: 	true
		model: 	a FlatMessageListBrowser
		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: 	110
		numArgs: 	0

SmalltalkEditor>>evaluateSelectionAndDo:
	Receiver: a SmalltalkEditor
	Arguments and temporary variables: 
		aBlock: 	[:result | result]
		result: 	nil
		rcvr: 	HashedCollection
		ctxt: 	nil
	Receiver's instance variables: 
		morph: 	a TextMorphForEditView(442236928)
		selectionShowing: 	true
		model: 	a FlatMessageListBrowser
		editingState: 	a SmalltalkEditingState

SmalltalkEditor>>evaluateSelection
	Receiver: a SmalltalkEditor
	Arguments and temporary variables: 

	Receiver's instance variables: 
		morph: 	a TextMorphForEditView(442236928)
		selectionShowing: 	true
		model: 	a FlatMessageListBrowser
		editingState: 	a SmalltalkEditingState

[textMorph editor evaluateSelection] in PluggableTextMorph>>doIt
	Receiver: a PluggableTextMorph(964427776)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	(344.0@398.0) corner: (741.0@592.0)
		owner: 	a StandardWindow(473694208)
		submorphs: 	an Array(a TransformMorph(262406144))
		fullBounds: 	(344@398) corner: (741@592)
		color: 	Color white
		extension: 	a MorphExtension (436994048) [locked] 
		borderWidth: 	1
		borderColor: 	(Color r: 0.706 g: 0.706 b: 0.706)
		model: 	a FlatMessageListBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(971505664)
		scroller: 	a TransformMorph(262406144)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#msgPaneMenu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(502530048)
		textMorph: 	a TextMorphForEditView(442236928)
		getTextSelector: 	#textToDisplay
		setTextSelector: 	#compileMethod:notifying:
		getSelectionSelector: 	#highlightSearchedString
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	(94 to: 108)
		hasEditingConflicts: 	false
		acceptAction: 	nil
		getColorSelector: 	nil
		unstyledAcceptText: 	nil
		styler: 	a SHTextStylerST80
		autoAccept: 	nil
		enabled: 	true
		getEnabledSelector: 	nil
		highlights: 	an OrderedCollection()
		acceptOnFocusChange: 	nil
		selectionColor: 	nil
		alwaysAccept: 	nil
		changedAction: 	nil

[result := editBlock value] in PluggableTextMorph>>handleEdit:
	Receiver: a PluggableTextMorph(964427776)
	Arguments and temporary variables: 
		editBlock: 	[textMorph editor evaluateSelection]
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	(344.0@398.0) corner: (741.0@592.0)
		owner: 	a StandardWindow(473694208)
		submorphs: 	an Array(a TransformMorph(262406144))
		fullBounds: 	(344@398) corner: (741@592)
		color: 	Color white
		extension: 	a MorphExtension (436994048) [locked] 
		borderWidth: 	1
		borderColor: 	(Color r: 0.706 g: 0.706 b: 0.706)
		model: 	a FlatMessageListBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(971505664)
		scroller: 	a TransformMorph(262406144)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#msgPaneMenu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(502530048)
		textMorph: 	a TextMorphForEditView(442236928)
		getTextSelector: 	#textToDisplay
		setTextSelector: 	#compileMethod:notifying:
		getSelectionSelector: 	#highlightSearchedString
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	(94 to: 108)
		hasEditingConflicts: 	false
		acceptAction: 	nil
		getColorSelector: 	nil
		unstyledAcceptText: 	nil
		styler: 	a SHTextStylerST80
		autoAccept: 	nil
		enabled: 	true
		getEnabledSelector: 	nil
		highlights: 	an OrderedCollection()
		acceptOnFocusChange: 	nil
		selectionColor: 	nil
		alwaysAccept: 	nil
		changedAction: 	nil

TextMorphForEditView(TextMorph)>>handleEdit:
	Receiver: a TextMorphForEditView(442236928)
	Arguments and temporary variables: 
		editBlock: 	[result := editBlock value]
	Receiver's instance variables: 
		bounds: 	(0@0) corner: (389@82)
		owner: 	a TransformMorph(262406144)
		submorphs: 	#()
		fullBounds: 	(0@0) corner: (389@82)
		color: 	Color black
		extension: 	a MorphExtension (462159872) [other:  (myDependents -> a DependentsA...etc...
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Bitmap DejaVu Sans 9
		text: 	a Text for 'cleanUp: aggressive
	"Rehash all instances when cleaning aggr...etc...
		wrapFlag: 	true
		paragraph: 	a Paragraph
		editor: 	a SmalltalkEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	nil
		margins: 	nil
		editView: 	a PluggableTextMorph(964427776)
		acceptOnCR: 	false
		autoAccept: 	false
		acceptOnFocusChange: 	false
		selectionColor: 	nil

PluggableTextMorph>>handleEdit:
	Receiver: a PluggableTextMorph(964427776)
	Arguments and temporary variables: 
		editBlock: 	[textMorph editor evaluateSelection]
		result: 	#(nil)
	Receiver's instance variables: 
		bounds: 	(344.0@398.0) corner: (741.0@592.0)
		owner: 	a StandardWindow(473694208)
		submorphs: 	an Array(a TransformMorph(262406144))
		fullBounds: 	(344@398) corner: (741@592)
		color: 	Color white
		extension: 	a MorphExtension (436994048) [locked] 
		borderWidth: 	1
		borderColor: 	(Color r: 0.706 g: 0.706 b: 0.706)
		model: 	a FlatMessageListBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(971505664)
		scroller: 	a TransformMorph(262406144)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#msgPaneMenu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(502530048)
		textMorph: 	a TextMorphForEditView(442236928)
		getTextSelector: 	#textToDisplay
		setTextSelector: 	#compileMethod:notifying:
		getSelectionSelector: 	#highlightSearchedString
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	(94 to: 108)
		hasEditingConflicts: 	false
		acceptAction: 	nil
		getColorSelector: 	nil
		unstyledAcceptText: 	nil
		styler: 	a SHTextStylerST80
		autoAccept: 	nil
		enabled: 	true
		getEnabledSelector: 	nil
		highlights: 	an OrderedCollection()
		acceptOnFocusChange: 	nil
		selectionColor: 	nil
		alwaysAccept: 	nil
		changedAction: 	nil

PluggableTextMorph>>doIt
	Receiver: a PluggableTextMorph(964427776)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	(344.0@398.0) corner: (741.0@592.0)
		owner: 	a StandardWindow(473694208)
		submorphs: 	an Array(a TransformMorph(262406144))
		fullBounds: 	(344@398) corner: (741@592)
		color: 	Color white
		extension: 	a MorphExtension (436994048) [locked] 
		borderWidth: 	1
		borderColor: 	(Color r: 0.706 g: 0.706 b: 0.706)
		model: 	a FlatMessageListBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(971505664)
		scroller: 	a TransformMorph(262406144)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#msgPaneMenu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(502530048)
		textMorph: 	a TextMorphForEditView(442236928)
		getTextSelector: 	#textToDisplay
		setTextSelector: 	#compileMethod:notifying:
		getSelectionSelector: 	#highlightSearchedString
		hasUnacceptedEdits: 	false
		askBeforeDiscardingEdits: 	true
		selectionInterval: 	(94 to: 108)
		hasEditingConflicts: 	false
		acceptAction: 	nil
		getColorSelector: 	nil
		unstyledAcceptText: 	nil
		styler: 	a SHTextStylerST80
		autoAccept: 	nil
		enabled: 	true
		getEnabledSelector: 	nil
		highlights: 	an OrderedCollection()
		acceptOnFocusChange: 	nil
		selectionColor: 	nil
		alwaysAccept: 	nil
		changedAction: 	nil

FlatMessageListBrowser(Object)>>perform:orSendTo:
	Receiver: a FlatMessageListBrowser
	Arguments and temporary variables: 
		selector: 	#doIt
		otherTarget: 	a PluggableTextMorph(964427776)
	Receiver's instance variables: 
		model: 	a MessageList
		textArea: 	a PluggableTextMorph(964427776)
		preference: 	'Source'
		selectedItem: 	HashedCollection class>>cleanUp:
		forceAlphabeticalOrder: 	true
		title: 	'Implementors of cleanUp: [9]'
		searchedString: 	#cleanUp:
		list: 	a SortedCollection(Behavior>>cleanUp: ChangeSet class>>cleanUp: ClassOrga...etc...
		bindings: 	a Dictionary(Behavior>>cleanUp:->#(#Behavior 'cleanUp:') ChangeSet cl...etc...

[| selArgCount |
(selArgCount := selector numArgs) = 0
		ifTrue: [target perform: selector]
		ifFalse: [selArgCount = arguments size
				ifTrue: [target perform: selector withArguments: arguments]
				ifFalse: [target
						perform: selector
						withArguments: (arguments copyWith: evt)]].
	self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
	Receiver: a ToggleMenuItemMorph(903348224)'do it (d)'
	Arguments and temporary variables: 
		evt: 	[(545@567) mouseUp 14525 nil]
		selArgCount: 	2
	Receiver's instance variables: 
		bounds: 	(517.0@559.0) corner: (666.0@573.0)
		owner: 	a MenuMorph(582483968)
		submorphs: 	#()
		fullBounds: 	(517.0@559.0) corner: (666.0@573.0)
		color: 	Color black
		extension: 	a MorphExtension (905707520)
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'do it (d)'
		hasFocus: 	false
		isEnabled: 	true
		subMenu: 	nil
		isSelected: 	false
		target: 	a FlatMessageListBrowser
		selector: 	#perform:orSendTo:
		arguments: 	an Array(#doIt a PluggableTextMorph(964427776))
		icon: 	nil
		getStateSelector: 	nil
		enablementSelector: 	nil
		keyText: 	nil

BlockClosure>>ensure:
	Receiver: [| selArgCount |
(selArgCount := selector numArgs) = 0
		ifTrue: [target perform: selector...etc...
	Arguments and temporary variables: 
		aBlock: 	[oldcursor show]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
		startpc: 	160
		numArgs: 	0

CursorWithMask(Cursor)>>showWhile:
	Receiver: ((CursorWithMask
	extent: (16@16)
	depth: 1
	fromArray: #(
		2r0
		2r100000000000000000000...etc...
	Arguments and temporary variables: 
		aBlock: 	[| selArgCount |
(selArgCount := selector numArgs) = 0
		ifTrue: [targe...etc...
		oldcursor: 	((CursorWithMask
	extent: (16@16)
	depth: 1
	fromArray: #(
		2r0
		2...etc...
	Receiver's instance variables: 
		bits: 	a Bitmap of length 16
		width: 	16
		height: 	16
		depth: 	1
		offset: 	(-1@ -1)
		maskForm: 	Form(16x16x1)

ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
	Receiver: a ToggleMenuItemMorph(903348224)'do it (d)'
	Arguments and temporary variables: 
		evt: 	[(545@567) mouseUp 14525 nil]
		w: 	a PasteUpMorph(425197568) [world]
	Receiver's instance variables: 
		bounds: 	(517.0@559.0) corner: (666.0@573.0)
		owner: 	a MenuMorph(582483968)
		submorphs: 	#()
		fullBounds: 	(517.0@559.0) corner: (666.0@573.0)
		color: 	Color black
		extension: 	a MorphExtension (905707520)
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'do it (d)'
		hasFocus: 	false
		isEnabled: 	true
		subMenu: 	nil
		isSelected: 	false
		target: 	a FlatMessageListBrowser
		selector: 	#perform:orSendTo:
		arguments: 	an Array(#doIt a PluggableTextMorph(964427776))
		icon: 	nil
		getStateSelector: 	nil
		enablementSelector: 	nil
		keyText: 	nil

ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
	Receiver: a ToggleMenuItemMorph(903348224)'do it (d)'
	Arguments and temporary variables: 
		evt: 	[(545@567) mouseUp 14525 nil]
	Receiver's instance variables: 
		bounds: 	(517.0@559.0) corner: (666.0@573.0)
		owner: 	a MenuMorph(582483968)
		submorphs: 	#()
		fullBounds: 	(517.0@559.0) corner: (666.0@573.0)
		color: 	Color black
		extension: 	a MorphExtension (905707520)
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'do it (d)'
		hasFocus: 	false
		isEnabled: 	true
		subMenu: 	nil
		isSelected: 	false
		target: 	a FlatMessageListBrowser
		selector: 	#perform:orSendTo:
		arguments: 	an Array(#doIt a PluggableTextMorph(964427776))
		icon: 	nil
		getStateSelector: 	nil
		enablementSelector: 	nil
		keyText: 	nil

ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
	Receiver: a ToggleMenuItemMorph(903348224)'do it (d)'
	Arguments and temporary variables: 
		anEvent: 	[(545@567) mouseUp 14525 nil]
	Receiver's instance variables: 
		bounds: 	(517.0@559.0) corner: (666.0@573.0)
		owner: 	a MenuMorph(582483968)
		submorphs: 	#()
		fullBounds: 	(517.0@559.0) corner: (666.0@573.0)
		color: 	Color black
		extension: 	a MorphExtension (905707520)
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'do it (d)'
		hasFocus: 	false
		isEnabled: 	true
		subMenu: 	nil
		isSelected: 	false
		target: 	a FlatMessageListBrowser
		selector: 	#perform:orSendTo:
		arguments: 	an Array(#doIt a PluggableTextMorph(964427776))
		icon: 	nil
		getStateSelector: 	nil
		enablementSelector: 	nil
		keyText: 	nil

MouseButtonEvent>>sentTo:
	Receiver: [(545@567) mouseUp 14525 nil]
	Arguments and temporary variables: 
		anObject: 	a ToggleMenuItemMorph(903348224)'do it (d)'
	Receiver's instance variables: 
		timeStamp: 	14525
		source: 	a HandMorph(843055104)
		windowIndex: 	nil
		type: 	#mouseUp
		buttons: 	0
		position: 	(545@567)
		handler: 	nil
		wasHandled: 	true
		whichButton: 	4

ToggleMenuItemMorph(Morph)>>handleEvent:
	Receiver: a ToggleMenuItemMorph(903348224)'do it (d)'
	Arguments and temporary variables: 
		anEvent: 	[(545@567) mouseUp 14525 nil]
	Receiver's instance variables: 
		bounds: 	(517.0@559.0) corner: (666.0@573.0)
		owner: 	a MenuMorph(582483968)
		submorphs: 	#()
		fullBounds: 	(517.0@559.0) corner: (666.0@573.0)
		color: 	Color black
		extension: 	a MorphExtension (905707520)
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'do it (d)'
		hasFocus: 	false
		isEnabled: 	true
		subMenu: 	nil
		isSelected: 	false
		target: 	a FlatMessageListBrowser
		selector: 	#perform:orSendTo:
		arguments: 	an Array(#doIt a PluggableTextMorph(964427776))
		icon: 	nil
		getStateSelector: 	nil
		enablementSelector: 	nil
		keyText: 	nil

MorphicEventDispatcher>>dispatchDefault:with:
	Receiver: a MorphicEventDispatcher
	Arguments and temporary variables: 
		anEvent: 	[(545@567) mouseUp 14525 nil]
		aMorph: 	a ToggleMenuItemMorph(903348224)'do it (d)'
		localEvt: 	nil
		index: 	1
		child: 	nil
		morphs: 	#()
		inside: 	true
	Receiver's instance variables: 
		lastType: 	#mouseUp
		lastDispatch: 	#dispatchDefault:with:

MorphicEventDispatcher>>dispatchEvent:with:
	Receiver: a MorphicEventDispatcher
	Arguments and temporary variables: 
		anEvent: 	[(545@567) mouseUp 14525 nil]
		aMorph: 	a ToggleMenuItemMorph(903348224)'do it (d)'
	Receiver's instance variables: 
		lastType: 	#mouseUp
		lastDispatch: 	#dispatchDefault:with:

ToggleMenuItemMorph(Morph)>>processEvent:using:
	Receiver: a ToggleMenuItemMorph(903348224)'do it (d)'
	Arguments and temporary variables: 
		anEvent: 	[(545@567) mouseUp 14525 nil]
		defaultDispatcher: 	a MorphicEventDispatcher
	Receiver's instance variables: 
		bounds: 	(517.0@559.0) corner: (666.0@573.0)
		owner: 	a MenuMorph(582483968)
		submorphs: 	#()
		fullBounds: 	(517.0@559.0) corner: (666.0@573.0)
		color: 	Color black
		extension: 	a MorphExtension (905707520)
		font: 	a StrikeFont(Bitmap DejaVu Sans 9 14)
		emphasis: 	0
		contents: 	'do it (d)'
		hasFocus: 	false
		isEnabled: 	true
		subMenu: 	nil
		isSelected: 	false
		target: 	a FlatMessageListBrowser
		selector: 	#perform:orSendTo:
		arguments: 	an Array(#doIt a PluggableTextMorph(964427776))
		icon: 	nil
		getStateSelector: 	nil
		enablementSelector: 	nil
		keyText: 	nil

MorphicEventDispatcher>>dispatchDefault:with:
	Receiver: a MorphicEventDispatcher
	Arguments and temporary variables: 
		anEvent: 	[(545@567) mouseUp 14525 nil]
		aMorph: 	a MenuMorph(582483968)
		localEvt: 	[(545@567) mouseUp 14525 nil]
		index: 	13
		child: 	a ToggleMenuItemMorph(903348224)'do it (d)'
		morphs: 	an Array(a ToggleMenuItemMorph(697040896)'find...(f)' a ToggleMenuItemM...etc...
		inside: 	false
	Receiver's instance variables: 
		lastType: 	#mouseUp
		lastDispatch: 	#dispatchDefault:with:

MorphicEventDispatcher>>dispatchEvent:with:
	Receiver: a MorphicEventDispatcher
	Arguments and temporary variables: 
		anEvent: 	[(545@567) mouseUp 14525 nil]
		aMorph: 	a MenuMorph(582483968)
	Receiver's instance variables: 
		lastType: 	#mouseUp
		lastDispatch: 	#dispatchDefault:with:


--- The full stack ---
ByteSymbol(Object)>>doesNotUnderstand: #run:with:in:
SystemUnknownAnnouncement class(Behavior)>>new
SystemUnknownAnnouncement class(SystemAnnouncement class)>>new
DoItEvent(AbstractEvent)>>asSystemAnnouncement
SystemAnnouncer class>>announceFromEvent:
WeakMessageSend>>valueWithArguments:
[answer := each valueWithArguments: anArray] in WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom:
BlockClosure>>on:do:
WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom:
WeakActionSequenceTrappingErrors>>valueWithArguments:
SystemEventManager(Object)>>triggerEvent:withArguments:
SystemEventManager(Object)>>triggerEvent:with:
DoItEvent(AbstractEvent)>>trigger:
SystemChangeNotifier>>trigger:
SystemChangeNotifier>>evaluated:context:
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:
SmalltalkEditor>>evaluateSelection
[textMorph editor evaluateSelection] in PluggableTextMorph>>doIt
[result := editBlock value] in PluggableTextMorph>>handleEdit:
TextMorphForEditView(TextMorph)>>handleEdit:
PluggableTextMorph>>handleEdit:
PluggableTextMorph>>doIt
FlatMessageListBrowser(Object)>>perform:orSendTo:
[| selArgCount |
(selArgCount := selector numArgs) = 0
		ifTrue: [target perform: selector]
		ifFalse: [selArgCount = arguments size
				ifTrue: [target perform: selector withArguments: arguments]
				ifFalse: [target
						perform: selector
						withArguments: (arguments copyWith: evt)]].
	self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
ToggleMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>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:
WorldState>>doOneSubCycleFor:
PasteUpMorph>>doOneSubCycle
MenuMorph>>invokeModalAt:in:allowKeyboard:
MenuMorph>>invokeModal:
MenuMorph>>invokeModal
PluggableTextMorph>>yellowButtonActivity:
TextMorphForEditView>>mouseDown:
TextMorphForEditView(Morph)>>handleMouseDown:
MouseButtonEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
TextMorphForEditView(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
TransformMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PluggableTextMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
StandardWindow(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PasteUpMorph(Morph)>>processEvent:using:
PasteUpMorph>>processEvent:using:
PasteUpMorph(Morph)>>processEvent:
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 MorphicUIManager>>spawnNewProcess
[self value.
	Processor terminateActive] in BlockClosure>>newProcess