THERE_BE_DRAGONS_HERE
NonBooleanReceiver: proceed for truth.
19 April 2012 4:34:01.454 pm

VM: unix - i686 - linux-gnu - CoInterpreter VMMaker-oscog-EstebanLorenzano.155 uuid: c53d1f34-009e-425c-9f88-398f8d39c5e8 Apr 15 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.155 uuid: c53d1f34-009e-425c-9f88-398f8d39c5e8 Apr 15 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 043d256c0d39b78e04db8608c0ebfbf096223a3f Date: Sun Apr 15 14:18:12 2012 +0200 By: Guille <guillermopolito@gmail.com>
Image: Pharo1.4 [Latest update: #14438]

UndefinedObject(Object)>>mustBeBooleanIn:
	Receiver: nil
	Arguments and temporary variables: 
		context: 	RBConfigurableFormatter class>>periodsAsTerminators
		proceedValue: 	nil
	Receiver's instance variables: 
nil

UndefinedObject(Object)>>mustBeBoolean
	Receiver: nil
	Arguments and temporary variables: 

	Receiver's instance variables: 
nil

RBConfigurableFormatter class>>periodsAsTerminators
	Receiver: RBConfigurableFormatter
	Arguments and temporary variables: 

	Receiver's instance variables: 
		superclass: 	RBProgramNodeVisitor
		methodDict: 	a MethodDictionary(#acceptArrayNode:->(RBConfigurableFormatter>>#ac...etc...
		format: 	140
		instanceVariables: 	#('codeStream' 'indent' 'lookaheadCode' 'originalSource' 'li...etc...
		organization: 	('visitor-double dispatching' acceptArrayNode: acceptAssignmentNo...etc...
		subclasses: 	nil
		name: 	#RBConfigurableFormatter
		classPool: 	a Dictionary(#CascadedMessageInsideParentheses->nil #FormatCommentWi...etc...
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'AST-Core-Visitors'
		traitComposition: 	{}
		localSelectors: 	nil


SettingDeclaration>>realValue
	Receiver: a SettingDeclaration
	Arguments and temporary variables: 

	Receiver's instance variables: 
		precondition: 	[true]
		target: 	RBConfigurableFormatter
		targetSelector: 	nil
		name: 	#periodsAsTerminators
		label: 	'Periods as terminators'
		description: 	nil
		order: 	nil
		icon: 	nil
		ordering: 	nil
		dialog: 	nil
		allowedInStyle: 	nil
		getSelector: 	nil
		setSelector: 	nil
		type: 	nil
		default: 	nil
		ghostHelp: 	nil


SettingNode>>settingValue
	Receiver: Node(a SettingDeclaration)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		item: 	a SettingDeclaration
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#configurableFormatter
		pragma: 	<systemsettings>
		contents: 	nil


SettingNode>>contents
	Receiver: Node(a SettingDeclaration)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		item: 	a SettingDeclaration
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#configurableFormatter
		pragma: 	<systemsettings>
		contents: 	nil


SettingNode>>deeplyDetect:
	Receiver: Node(a SettingDeclaration)
	Arguments and temporary variables: 
		aBlock: 	[:n | n settingDeclaration = aSettingDeclaration]
	Receiver's instance variables: 
		item: 	a SettingDeclaration
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#configurableFormatter
		pragma: 	<systemsettings>
		contents: 	nil


[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingNode>>deeplyDetect:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aBlock: 	Node(a SettingDeclaration)
		sub: 	[:n | n settingDeclaration = aSettingDeclaration]
		found: 	nil
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#refactoring
		pragma: 	<systemsettings>
		contents: 	an OrderedCollection(Node(a SettingDeclaration) Node(a SettingDeclara...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(Node(a SettingDeclaration) Node(a SettingDeclaration) Node(a SettingD...etc...
	Arguments and temporary variables: 
		aBlock: 	[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]]
		index: 	19
	Receiver's instance variables: 
		array: 	an Array(Node(a SettingDeclaration) Node(a SettingDeclaration) Node(a Se...etc...
		firstIndex: 	1
		lastIndex: 	26


SettingNode>>deeplyDetect:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aBlock: 	[:n | n settingDeclaration = aSettingDeclaration]
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#refactoring
		pragma: 	<systemsettings>
		contents: 	an OrderedCollection(Node(a SettingDeclaration) Node(a SettingDeclara...etc...


[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingNode>>deeplyDetect:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aBlock: 	Node(a PragmaSetting)
		sub: 	[:n | n settingDeclaration = aSettingDeclaration]
		found: 	nil
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	nil
		pragma: 	<systemsettings>
		contents: 	an OrderedCollection(Node(a PragmaSetting) Node(a PickOneSettingDecla...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PickOneSettingDeclaration))
	Arguments and temporary variables: 
		aBlock: 	[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]]
		index: 	1
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PickOneSettingDeclaration) nil nil...etc...
		firstIndex: 	1
		lastIndex: 	2


SettingNode>>deeplyDetect:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aBlock: 	[:n | n settingDeclaration = aSettingDeclaration]
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	nil
		pragma: 	<systemsettings>
		contents: 	an OrderedCollection(Node(a PragmaSetting) Node(a PickOneSettingDecla...etc...


[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingTree>>deeplyDetect:
	Receiver: a SettingTree
	Arguments and temporary variables: 
		aBlock: 	Node(a PragmaSetting)
		sub: 	[:n | n settingDeclaration = aSettingDeclaration]
		found: 	nil
	Receiver's instance variables: 
		collector: 	a PragmaCollector
		nodeList: 	an OrderedCollection(Node(a PickOneSettingDeclaration) Node(a PragmaS...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
	Arguments and temporary variables: 
		aBlock: 	[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]]
		index: 	10
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSettin...etc...
		firstIndex: 	1
		lastIndex: 	12


SettingTree>>deeplyDetect:
	Receiver: a SettingTree
	Arguments and temporary variables: 
		aBlock: 	[:n | n settingDeclaration = aSettingDeclaration]
	Receiver's instance variables: 
		collector: 	a PragmaCollector
		nodeList: 	an OrderedCollection(Node(a PickOneSettingDeclaration) Node(a PragmaS...etc...


SettingBrowser>>settingNodeOfDeclaration:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aSettingDeclaration: 	a PragmaSetting
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


SettingBrowser>>viewedLabelOfSetting:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aSettingDeclaration: 	a PragmaSetting
		node: 	nil
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


PragmaSetting>>labelMorphFor:
	Receiver: a PragmaSetting
	Arguments and temporary variables: 
		aContainer: 	a MorphTreeMorph(523501568)
	Receiver's instance variables: 
		precondition: 	[true]
		target: 	StartupLoader
		targetSelector: 	nil
		name: 	#'Startup Preferences'
		label: 	'Startup Preferences'
		description: 	'Settings related to Startup Preferences'
		order: 	nil
		icon: 	nil
		ordering: 	nil
		dialog: 	nil
		allowedInStyle: 	nil


SettingNode>>labelMorphFor:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aContainer: 	a MorphTreeMorph(523501568)
		v: 	a PragmaSetting
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	nil
		pragma: 	<systemsettings>
		contents: 	nil


[:node :cont | node perform: self rowMorphGetSelector with: self container] in MorphTreeColumn>>rowMorphGetterBlock
	Receiver: a MorphTreeColumn
	Arguments and temporary variables: 
		node: 	Node(a PragmaSetting)
		cont: 	a MorphTreeMorph(523501568)
	Receiver's instance variables: 
		header: 	a Morph(24379392)
		container: 	a MorphTreeMorph(523501568)
		currentWidth: 	300
		rowMorphGetSelector: 	#labelMorphFor:
		shrinkWrap: 	nil
		color: 	nil
		isPotentialDropTarget: 	false
		resizable: 	true


MorphTreeColumn>>rowMorphFor:
	Receiver: a MorphTreeColumn
	Arguments and temporary variables: 
		aNode: 	Node(a PragmaSetting)
		rowMorph: 	nil
	Receiver's instance variables: 
		header: 	a Morph(24379392)
		container: 	a MorphTreeMorph(523501568)
		currentWidth: 	300
		rowMorphGetSelector: 	#labelMorphFor:
		shrinkWrap: 	nil
		color: 	nil
		isPotentialDropTarget: 	false
		resizable: 	true


[:col | 
| v |
v := col rowMorphFor: complexContents.
	controls add: v.
	col -> v] in MorphTreeNodeMorph>>buildRowMorph
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 
		col: 	a MorphTreeColumn
		v: 	nil
	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (904658944)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


OrderedCollection>>collect:
	Receiver: an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
	Arguments and temporary variables: 
		aBlock: 	[:col | 
| v |
v := col rowMorphFor: complexContents.
	controls add: v....etc...
		newCollection: 	an OrderedCollection()
		index: 	1
	Receiver's instance variables: 
		array: 	an Array(a MorphTreeColumn a MorphTreeColumn)
		firstIndex: 	1
		lastIndex: 	2


MorphTreeNodeMorph>>buildRowMorph
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 
		rowControls: 	nil
		colAndControls: 	nil
	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (904658944)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


MorphTreeNodeMorph>>initRow
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (904658944)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


MorphTreeNodeMorph>>initWithContents:prior:forList:indentLevel:
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 
		anObject: 	Node(a PragmaSetting)
		priorMorph: 	NodeMorph(Node(a PragmaSetting))
		hostList: 	a MorphTreeMorph(523501568)
		newLevel: 	0
	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (904658944)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


[:item :idx | 
priorMorph := self indentingItemClass new
				initWithContents: item
				prior: priorMorph
				forList: self
				indentLevel: newIndent.
	firstAddition
		ifNil: [firstAddition := priorMorph].
	morphList add: priorMorph.
	((item hasEquivalentIn: expandedItems)
			or: [priorMorph isExpanded])
		ifTrue: [priorMorph isExpanded: true.
			priorMorph
				addChildrenForList: self
				addingTo: morphList
				withExpandedItems: expandedItems]] in MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


OrderedCollection(SequenceableCollection)>>withIndexDo:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
	Arguments and temporary variables: 
		elementAndIndexBlock: 	[:item :idx | 
priorMorph := self indentingItemClass new
...etc...
		index: 	11
		indexLimiT: 	12
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSettin...etc...
		firstIndex: 	1
		lastIndex: 	12


OrderedCollection(SequenceableCollection)>>doWithIndex:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
	Arguments and temporary variables: 
		elementAndIndexBlock: 	[:item :idx | 
priorMorph := self indentingItemClass new
...etc...
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSettin...etc...
		firstIndex: 	1
		lastIndex: 	12


MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>addSubmorphsFromNodeList:previouslyExpanded:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
		aNodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
		expandedNodeList: 	an Array(Node(a PragmaSetting) Node(a SettingDeclaration) Nod...etc...
		morphList: 	an OrderedCollection(NodeMorph(Node(a PragmaSetting)) NodeMorph(Node...etc...
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>updateContentsWithPreviouslyExpanded:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
		aNodeList: 	an Array(Node(a PragmaSetting) Node(a SettingDeclaration) Node(a Set...etc...
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>updateList
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>update:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
		aSymbol: 	#rootNodes
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


[:aDependent | aDependent update: aParameter] in SettingBrowser(Object)>>changed:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aParameter: 	a MorphTreeMorph(523501568)
		aDependent: 	#rootNodes
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


DependentsArray>>do:
	Receiver: a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(523501568) a PluggableTextM...etc...
	Arguments and temporary variables: 
		aBlock: 	[:aDependent | aDependent update: aParameter]
		dep: 	a MorphTreeMorph(523501568)
		i: 	2
		iLimiT: 	8
	Receiver's instance variables: 
a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(523501568) a PluggableTextM...etc...

SettingBrowser(Object)>>changed:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aParameter: 	#rootNodes
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


SettingBrowser>>updateList
	Receiver: a SettingBrowser
	Arguments and temporary variables: 

	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree



--- The full stack ---
UndefinedObject(Object)>>mustBeBooleanIn:
UndefinedObject(Object)>>mustBeBoolean
RBConfigurableFormatter class>>periodsAsTerminators
SettingDeclaration>>realValue
SettingNode>>settingValue
SettingNode>>contents
SettingNode>>deeplyDetect:
[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingNode>>deeplyDetect:
OrderedCollection>>do:
SettingNode>>deeplyDetect:
[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingNode>>deeplyDetect:
OrderedCollection>>do:
SettingNode>>deeplyDetect:
[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingTree>>deeplyDetect:
OrderedCollection>>do:
SettingTree>>deeplyDetect:
SettingBrowser>>settingNodeOfDeclaration:
SettingBrowser>>viewedLabelOfSetting:
PragmaSetting>>labelMorphFor:
SettingNode>>labelMorphFor:
[:node :cont | node perform: self rowMorphGetSelector with: self container] in MorphTreeColumn>>rowMorphGetterBlock
MorphTreeColumn>>rowMorphFor:
[:col | 
| v |
v := col rowMorphFor: complexContents.
	controls add: v.
	col -> v] in MorphTreeNodeMorph>>buildRowMorph
OrderedCollection>>collect:
MorphTreeNodeMorph>>buildRowMorph
MorphTreeNodeMorph>>initRow
MorphTreeNodeMorph>>initWithContents:prior:forList:indentLevel:
[:item :idx | 
priorMorph := self indentingItemClass new
				initWithContents: item
				prior: priorMorph
				forList: self
				indentLevel: newIndent.
	firstAddition
		ifNil: [firstAddition := priorMorph].
	morphList add: priorMorph.
	((item hasEquivalentIn: expandedItems)
			or: [priorMorph isExpanded])
		ifTrue: [priorMorph isExpanded: true.
			priorMorph
				addChildrenForList: self
				addingTo: morphList
				withExpandedItems: expandedItems]] in MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
OrderedCollection(SequenceableCollection)>>withIndexDo:
OrderedCollection(SequenceableCollection)>>doWithIndex:
MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
MorphTreeMorph>>addSubmorphsFromNodeList:previouslyExpanded:
MorphTreeMorph>>updateContentsWithPreviouslyExpanded:
MorphTreeMorph>>updateList
MorphTreeMorph>>update:
[:aDependent | aDependent update: aParameter] in SettingBrowser(Object)>>changed:
DependentsArray>>do:
SettingBrowser(Object)>>changed:
SettingBrowser>>updateList
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
SettingBrowser>>treeChanged:
MessageSend>>value:
MessageSend>>cull:
MessageSend>>cull:cull:
[action cull: anAnnouncement cull: announcer] in AnnouncementSubscription>>deliver:
BlockClosure>>on:do:
[Processor terminateActive] in [:ex | 
| copy onDoCtx process handler bottom thisCtx |
onDoCtx := thisContext.
	thisCtx := onDoCtx home.
	[onDoCtx sender == thisCtx]
		whileFalse: [onDoCtx := onDoCtx sender.
			onDoCtx
				ifNil: [^ handlerAction cull: ex]].
	bottom := [Processor terminateActive] asContext.
	onDoCtx privSender: bottom.
	handler := [handlerAction cull: ex] asContext.
	handler privSender: thisContext sender.
	(Process forContext: handler priority: Processor activePriority) resume.
	thisContext privSender: thisCtx.
	nil] in BlockClosure>>on:fork:
-------------------------------------------------------------------------------

THERE_BE_DRAGONS_HERE
MessageNotUnderstood: receiver of "max:" is nil
19 April 2012 4:34:20.408 pm

VM: unix - i686 - linux-gnu - CoInterpreter VMMaker-oscog-EstebanLorenzano.155 uuid: c53d1f34-009e-425c-9f88-398f8d39c5e8 Apr 15 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.155 uuid: c53d1f34-009e-425c-9f88-398f8d39c5e8 Apr 15 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 043d256c0d39b78e04db8608c0ebfbf096223a3f Date: Sun Apr 15 14:18:12 2012 +0200 By: Guille <guillermopolito@gmail.com>
Image: Pharo1.4 [Latest update: #14438]

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

RBRefactoryChangeManager class>>undoSize:
	Receiver: RBRefactoryChangeManager
	Arguments and temporary variables: 
		anInteger: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#addUndo:->(RBRefactoryChangeManager>>#addUndo: ...etc...
		format: 	136
		instanceVariables: 	#('undo' 'redo' 'isPerformingRefactoring')
		organization: 	('public access' addUndo:)
('private' clearUndoRedoList)

		subclasses: 	nil
		name: 	#RBRefactoryChangeManager
		classPool: 	a Dictionary(#Instance->nil #UndoSize->nil )
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Refactoring-Changes'
		traitComposition: 	{}
		localSelectors: 	nil


SettingDeclaration>>realValue:
	Receiver: a SettingDeclaration
	Arguments and temporary variables: 
		anObject: 	nil
	Receiver's instance variables: 
		precondition: 	[true]
		target: 	RBRefactoryChangeManager
		targetSelector: 	nil
		name: 	#undoSize
		label: 	'Undo size'
		description: 	nil
		order: 	nil
		icon: 	nil
		ordering: 	nil
		dialog: 	nil
		allowedInStyle: 	nil
		getSelector: 	nil
		setSelector: 	nil
		type: 	nil
		default: 	nil
		ghostHelp: 	nil


SettingDeclaration>>setToDefault
	Receiver: a SettingDeclaration
	Arguments and temporary variables: 

	Receiver's instance variables: 
		precondition: 	[true]
		target: 	RBRefactoryChangeManager
		targetSelector: 	nil
		name: 	#undoSize
		label: 	'Undo size'
		description: 	nil
		order: 	nil
		icon: 	nil
		ordering: 	nil
		dialog: 	nil
		allowedInStyle: 	nil
		getSelector: 	nil
		setSelector: 	nil
		type: 	nil
		default: 	nil
		ghostHelp: 	nil


SettingDeclaration>>realValue
	Receiver: a SettingDeclaration
	Arguments and temporary variables: 

	Receiver's instance variables: 
		precondition: 	[true]
		target: 	RBRefactoryChangeManager
		targetSelector: 	nil
		name: 	#undoSize
		label: 	'Undo size'
		description: 	nil
		order: 	nil
		icon: 	nil
		ordering: 	nil
		dialog: 	nil
		allowedInStyle: 	nil
		getSelector: 	nil
		setSelector: 	nil
		type: 	nil
		default: 	nil
		ghostHelp: 	nil


SettingNode>>settingValue
	Receiver: Node(a SettingDeclaration)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		item: 	a SettingDeclaration
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#refactoring
		pragma: 	<systemsettings>
		contents: 	nil


SettingNode>>contents
	Receiver: Node(a SettingDeclaration)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		item: 	a SettingDeclaration
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#refactoring
		pragma: 	<systemsettings>
		contents: 	nil


SettingNode>>deeplyDetect:
	Receiver: Node(a SettingDeclaration)
	Arguments and temporary variables: 
		aBlock: 	[:n | n settingDeclaration = aSettingDeclaration]
	Receiver's instance variables: 
		item: 	a SettingDeclaration
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	#refactoring
		pragma: 	<systemsettings>
		contents: 	nil


[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingNode>>deeplyDetect:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aBlock: 	Node(a SettingDeclaration)
		sub: 	[:n | n settingDeclaration = aSettingDeclaration]
		found: 	nil
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	nil
		pragma: 	<systemsettings>
		contents: 	an OrderedCollection(Node(a PragmaSetting) Node(a PickOneSettingDecla...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PickOneSettingDeclaration) Node(a Settin...etc...
	Arguments and temporary variables: 
		aBlock: 	[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]]
		index: 	3
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PickOneSettingDeclaration) Node(a ...etc...
		firstIndex: 	1
		lastIndex: 	3


SettingNode>>deeplyDetect:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aBlock: 	[:n | n settingDeclaration = aSettingDeclaration]
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	nil
		pragma: 	<systemsettings>
		contents: 	an OrderedCollection(Node(a PragmaSetting) Node(a PickOneSettingDecla...etc...


[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingTree>>deeplyDetect:
	Receiver: a SettingTree
	Arguments and temporary variables: 
		aBlock: 	Node(a PragmaSetting)
		sub: 	[:n | n settingDeclaration = aSettingDeclaration]
		found: 	nil
	Receiver's instance variables: 
		collector: 	a PragmaCollector
		nodeList: 	an OrderedCollection(Node(a PickOneSettingDeclaration) Node(a PragmaS...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
	Arguments and temporary variables: 
		aBlock: 	[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]]
		index: 	10
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSettin...etc...
		firstIndex: 	1
		lastIndex: 	12


SettingTree>>deeplyDetect:
	Receiver: a SettingTree
	Arguments and temporary variables: 
		aBlock: 	[:n | n settingDeclaration = aSettingDeclaration]
	Receiver's instance variables: 
		collector: 	a PragmaCollector
		nodeList: 	an OrderedCollection(Node(a PickOneSettingDeclaration) Node(a PragmaS...etc...


SettingBrowser>>settingNodeOfDeclaration:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aSettingDeclaration: 	a PragmaSetting
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


SettingBrowser>>viewedLabelOfSetting:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aSettingDeclaration: 	a PragmaSetting
		node: 	nil
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


PragmaSetting>>labelMorphFor:
	Receiver: a PragmaSetting
	Arguments and temporary variables: 
		aContainer: 	a MorphTreeMorph(523501568)
	Receiver's instance variables: 
		precondition: 	[true]
		target: 	StartupLoader
		targetSelector: 	nil
		name: 	#'Startup Preferences'
		label: 	'Startup Preferences'
		description: 	'Settings related to Startup Preferences'
		order: 	nil
		icon: 	nil
		ordering: 	nil
		dialog: 	nil
		allowedInStyle: 	nil


SettingNode>>labelMorphFor:
	Receiver: Node(a PragmaSetting)
	Arguments and temporary variables: 
		aContainer: 	a MorphTreeMorph(523501568)
		v: 	a PragmaSetting
	Receiver's instance variables: 
		item: 	a PragmaSetting
		model: 	a SettingTree
		parentNode: 	nil
		parentName: 	nil
		pragma: 	<systemsettings>
		contents: 	nil


[:node :cont | node perform: self rowMorphGetSelector with: self container] in MorphTreeColumn>>rowMorphGetterBlock
	Receiver: a MorphTreeColumn
	Arguments and temporary variables: 
		node: 	Node(a PragmaSetting)
		cont: 	a MorphTreeMorph(523501568)
	Receiver's instance variables: 
		header: 	a Morph(24379392)
		container: 	a MorphTreeMorph(523501568)
		currentWidth: 	300
		rowMorphGetSelector: 	#labelMorphFor:
		shrinkWrap: 	nil
		color: 	nil
		isPotentialDropTarget: 	false
		resizable: 	true


MorphTreeColumn>>rowMorphFor:
	Receiver: a MorphTreeColumn
	Arguments and temporary variables: 
		aNode: 	Node(a PragmaSetting)
		rowMorph: 	nil
	Receiver's instance variables: 
		header: 	a Morph(24379392)
		container: 	a MorphTreeMorph(523501568)
		currentWidth: 	300
		rowMorphGetSelector: 	#labelMorphFor:
		shrinkWrap: 	nil
		color: 	nil
		isPotentialDropTarget: 	false
		resizable: 	true


[:col | 
| v |
v := col rowMorphFor: complexContents.
	controls add: v.
	col -> v] in MorphTreeNodeMorph>>buildRowMorph
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 
		col: 	a MorphTreeColumn
		v: 	nil
	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (581697536)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


OrderedCollection>>collect:
	Receiver: an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
	Arguments and temporary variables: 
		aBlock: 	[:col | 
| v |
v := col rowMorphFor: complexContents.
	controls add: v....etc...
		newCollection: 	an OrderedCollection()
		index: 	1
	Receiver's instance variables: 
		array: 	an Array(a MorphTreeColumn a MorphTreeColumn)
		firstIndex: 	1
		lastIndex: 	2


MorphTreeNodeMorph>>buildRowMorph
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 
		rowControls: 	nil
		colAndControls: 	nil
	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (581697536)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


MorphTreeNodeMorph>>initRow
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (581697536)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


MorphTreeNodeMorph>>initWithContents:prior:forList:indentLevel:
	Receiver: NodeMorph(Node(a PragmaSetting))
	Arguments and temporary variables: 
		anObject: 	Node(a PragmaSetting)
		priorMorph: 	NodeMorph(Node(a PragmaSetting))
		hostList: 	a MorphTreeMorph(523501568)
		newLevel: 	0
	Receiver's instance variables: 
		bounds: 	(0@0) corner: (50@40)
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color transparent
		extension: 	a MorphExtension (581697536)
		parent: 	nil
		index: 	nil
		indentLevel: 	0
		isExpanded: 	false
		complexContents: 	Node(a PragmaSetting)
		firstChild: 	nil
		container: 	a MorphTreeMorph(523501568)
		nextSibling: 	nil
		controls: 	an OrderedCollection()
		lineColor: 	nil
		selected: 	nil


[:item :idx | 
priorMorph := self indentingItemClass new
				initWithContents: item
				prior: priorMorph
				forList: self
				indentLevel: newIndent.
	firstAddition
		ifNil: [firstAddition := priorMorph].
	morphList add: priorMorph.
	((item hasEquivalentIn: expandedItems)
			or: [priorMorph isExpanded])
		ifTrue: [priorMorph isExpanded: true.
			priorMorph
				addChildrenForList: self
				addingTo: morphList
				withExpandedItems: expandedItems]] in MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


OrderedCollection(SequenceableCollection)>>withIndexDo:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
	Arguments and temporary variables: 
		elementAndIndexBlock: 	[:item :idx | 
priorMorph := self indentingItemClass new
...etc...
		index: 	11
		indexLimiT: 	12
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSettin...etc...
		firstIndex: 	1
		lastIndex: 	12


OrderedCollection(SequenceableCollection)>>doWithIndex:
	Receiver: an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
	Arguments and temporary variables: 
		elementAndIndexBlock: 	[:item :idx | 
priorMorph := self indentingItemClass new
...etc...
	Receiver's instance variables: 
		array: 	an Array(Node(a PragmaSetting) Node(a PragmaSetting) Node(a PragmaSettin...etc...
		firstIndex: 	1
		lastIndex: 	12


MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	(97@299) corner: (987@729)
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>addSubmorphsFromNodeList:previouslyExpanded:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
		aNodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Nod...etc...
		expandedNodeList: 	#()
		morphList: 	an OrderedCollection(NodeMorph(Node(a PragmaSetting)) NodeMorph(Node...etc...
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	(97@299) corner: (987@729)
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>updateContentsWithPreviouslyExpanded:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
		aNodeList: 	#()
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	(97@299) corner: (987@729)
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>updateList
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	(97@299) corner: (987@729)
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


MorphTreeMorph>>update:
	Receiver: a MorphTreeMorph(523501568)
	Arguments and temporary variables: 
		aSymbol: 	#rootNodes
	Receiver's instance variables: 
		bounds: 	(97.0@299.0) corner: (987.0@729.0)
		owner: 	a StandardWindow(584581120)
		submorphs: 	an Array(a ScrollBar(553123840) a MorphTreeResizerMorph(594542592) a...etc...
		fullBounds: 	(97@299) corner: (987@729)
		color: 	(Color r: 0.91 g: 0.905 b: 0.905)
		extension: 	a MorphExtension (1059323904) [locked]  [other:  (selectionColor -> ...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.745 g: 0.745 b: 0.745)
		model: 	a SettingBrowser
		open: 	false
		accessor: 	nil
		scrollBar: 	a ScrollBar(553123840)
		scroller: 	a MorphTreeTransformMorph(796917760)
		retractableScrollBar: 	false
		scrollBarOnLeft: 	false
		getMenuSelector: 	#menu:shifted:
		getMenuTitleSelector: 	nil
		hasFocus: 	false
		hScrollBar: 	a ScrollBar(683933696)
		columns: 	an OrderedCollection(a MorphTreeColumn a MorphTreeColumn)
		potentialDropMorph: 	nil
		rowInset: 	6
		columnInset: 	6
		columnResizers: 	an OrderedCollection(a MorphTreeResizerMorph(594542592))
		withHLines: 	false
		preferedPaneColor: 	(Color r: 0.91 g: 0.905 b: 0.905)
		indentGap: 	20
		expandedToggleImage: 	an ImageMorph(63700992)
		notExpandedToggleImage: 	an ImageMorph(223084544)
		resizerWidth: 	3
		gapAfterToggle: 	5
		hasToggleAtRoot: 	true
		topHeader: 	a Morph(167510016)
		topHeaderBackground: 	Color transparent
		unboundLastColumn: 	true
		columnDropUnabled: 	nil
		columnColors: 	{Color transparent. Color transparent}
		rowColors: 	{(Color r: 0.9410000000000001 g: 0.9410000000000001 b: 0.94100000000...etc...
		nodeList: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node...etc...
		iconBlock: 	nil
		treeLineWidth: 	0
		lineColorBlock: 	nil
		treeLineDashes: 	nil
		listManager: 	a MorphTreeListManager
		mouseOverAllowed: 	false
		maxNodeWidth: 	526


[:aDependent | aDependent update: aParameter] in SettingBrowser(Object)>>changed:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aParameter: 	a MorphTreeMorph(523501568)
		aDependent: 	#rootNodes
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


DependentsArray>>do:
	Receiver: a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(523501568) a PluggableTextM...etc...
	Arguments and temporary variables: 
		aBlock: 	[:aDependent | aDependent update: aParameter]
		dep: 	a MorphTreeMorph(523501568)
		i: 	2
		iLimiT: 	8
	Receiver's instance variables: 
a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(523501568) a PluggableTextM...etc...

SettingBrowser(Object)>>changed:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		aParameter: 	#rootNodes
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


SettingBrowser>>updateList
	Receiver: a SettingBrowser
	Arguments and temporary variables: 

	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


SettingBrowser>>treeChanged:
	Receiver: a SettingBrowser
	Arguments and temporary variables: 
		anAnnounce: 	a PragmaAdded
	Receiver's instance variables: 
		dependents: 	a DependentsArray(a StandardWindow(584581120) a MorphTreeMorph(5235...etc...
		selection: 	nil
		announcer: 	an Announcer
		rootItems: 	nil
		autoMultiSelection: 	nil
		headerLabel: 	nil
		multiSelection: 	nil
		wrapBlockOrSelector: 	nil
		isCheckList: 	nil
		viewedPackages: 	a Set()
		roots: 	an OrderedCollection(Node(a PragmaSetting) Node(a PragmaSetting) Node(a ...etc...
		status: 	a WriteStream
		searchedText: 	''
		treeHolder: 	a SettingTree


MessageSend>>value:
	Receiver: MessageSend(#treeChanged: -> a SettingBrowser)
	Arguments and temporary variables: 
		anObject: 	a PragmaAdded
	Receiver's instance variables: 
		receiver: 	a SettingBrowser
		selector: 	#treeChanged:
		arguments: 	#()



--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #max:
RBRefactoryChangeManager class>>undoSize:
SettingDeclaration>>realValue:
SettingDeclaration>>setToDefault
SettingDeclaration>>realValue
SettingNode>>settingValue
SettingNode>>contents
SettingNode>>deeplyDetect:
[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingNode>>deeplyDetect:
OrderedCollection>>do:
SettingNode>>deeplyDetect:
[:sub | (sub deeplyDetect: aBlock)
		ifNotNil: [:found | ^ found]] in SettingTree>>deeplyDetect:
OrderedCollection>>do:
SettingTree>>deeplyDetect:
SettingBrowser>>settingNodeOfDeclaration:
SettingBrowser>>viewedLabelOfSetting:
PragmaSetting>>labelMorphFor:
SettingNode>>labelMorphFor:
[:node :cont | node perform: self rowMorphGetSelector with: self container] in MorphTreeColumn>>rowMorphGetterBlock
MorphTreeColumn>>rowMorphFor:
[:col | 
| v |
v := col rowMorphFor: complexContents.
	controls add: v.
	col -> v] in MorphTreeNodeMorph>>buildRowMorph
OrderedCollection>>collect:
MorphTreeNodeMorph>>buildRowMorph
MorphTreeNodeMorph>>initRow
MorphTreeNodeMorph>>initWithContents:prior:forList:indentLevel:
[:item :idx | 
priorMorph := self indentingItemClass new
				initWithContents: item
				prior: priorMorph
				forList: self
				indentLevel: newIndent.
	firstAddition
		ifNil: [firstAddition := priorMorph].
	morphList add: priorMorph.
	((item hasEquivalentIn: expandedItems)
			or: [priorMorph isExpanded])
		ifTrue: [priorMorph isExpanded: true.
			priorMorph
				addChildrenForList: self
				addingTo: morphList
				withExpandedItems: expandedItems]] in MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
OrderedCollection(SequenceableCollection)>>withIndexDo:
OrderedCollection(SequenceableCollection)>>doWithIndex:
MorphTreeMorph>>addMorphsTo:from:withExpandedItems:atLevel:
MorphTreeMorph>>addSubmorphsFromNodeList:previouslyExpanded:
MorphTreeMorph>>updateContentsWithPreviouslyExpanded:
MorphTreeMorph>>updateList
MorphTreeMorph>>update:
[:aDependent | aDependent update: aParameter] in SettingBrowser(Object)>>changed:
DependentsArray>>do:
SettingBrowser(Object)>>changed:
SettingBrowser>>updateList
SettingBrowser>>treeChanged:
MessageSend>>value:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
MessageSend>>cull:
MessageSend>>cull:cull:
[action cull: anAnnouncement cull: announcer] in AnnouncementSubscription>>deliver:
BlockClosure>>on:do:
[Processor terminateActive] in [:ex | 
| copy onDoCtx process handler bottom thisCtx |
onDoCtx := thisContext.
	thisCtx := onDoCtx home.
	[onDoCtx sender == thisCtx]
		whileFalse: [onDoCtx := onDoCtx sender.
			onDoCtx
				ifNil: [^ handlerAction cull: ex]].
	bottom := [Processor terminateActive] asContext.
	onDoCtx privSender: bottom.
	handler := [handlerAction cull: ex] asContext.
	handler privSender: thisContext sender.
	(Process forContext: handler priority: Processor activePriority) resume.
	thisContext privSender: thisCtx.
	nil] in BlockClosure>>on:fork:
-------------------------------------------------------------------------------