David T. Lewis uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-dtl.175.mcz

==================== Summary ====================

Name: Tools-dtl.175
Author: dtl
Time: 9 February 2010, 11:20:17.043 pm
UUID: fa9b1128-e756-42aa-b98e-0f0bda1eb400
Ancestors: Tools-nice.174

Remove #openAsMVC and #openAsMorph from ProcessBrowser and resolve related dependency in CPUWatcher. ProcessBrowser now uses ToolBuilder and no longer requires these methods.


=============== Diff against Tools-nice.174 ===============

Item was changed:
  ----- Method: CPUWatcher>>openMVCWindowForSuspendedProcess: (in category 'porcine capture') -----
  openMVCWindowForSuspendedProcess: aProcess
+ 	ProcessBrowser open!
- 	ProcessBrowser new openAsMVC.!

Item was removed:
- ----- Method: ProcessBrowser>>openAsMVC (in category 'views') -----
- openAsMVC
- 	"Create a pluggable version of me, answer a window"
- 	| window processListView stackListView methodTextView |
- 	window := StandardSystemView new model: self controller: StandardSystemController new.
- 	window borderWidth: 1.
- 	processListView := PluggableListView
- 				on: self
- 				list: #processNameList
- 				selected: #processListIndex
- 				changeSelected: #processListIndex:
- 				menu: #processListMenu:
- 				keystroke: #processListKey:from:.
- 	processListView
- 		window: (0 @ 0 extent: 300 @ 200).
- 	window addSubView: processListView.
- 	stackListView := PluggableListView
- 				on: self
- 				list: #stackNameList
- 				selected: #stackListIndex
- 				changeSelected: #stackListIndex:
- 				menu: #stackListMenu:
- 				keystroke: #stackListKey:from:.
- 	stackListView
- 		window: (300 @ 0 extent: 300 @ 200).
- 	window addSubView: stackListView toRightOf: processListView.
- 	methodTextView := PluggableTextView
- 				on: self
- 				text: #selectedMethod
- 				accept: nil
- 				readSelection: nil
- 				menu: nil.
- 	methodTextView askBeforeDiscardingEdits: false.
- 	methodTextView
- 		window: (0 @ 200 corner: 600 @ 400).
- 	window addSubView: methodTextView below: processListView.
- 	window setUpdatablePanesFrom: #(#processNameList #stackNameList ).
- 	window label: 'Process Browser'.
- 	window minimumSize: 300 @ 200.
- 	window subViews
- 		do: [:each | each controller].
- 	window controller open.
- 	startedCPUWatcher ifTrue: [ self setUpdateCallbackAfter: 7 ].
- 	^ window!

Item was removed:
- ----- Method: ProcessBrowser>>openAsMorph (in category 'views') -----
- openAsMorph
- 	"Create a pluggable version of me, answer a window"
- 	| window aTextMorph |
- 	window := (SystemWindow labelled: 'later')
- 				model: self.
- 
- 	window
- 		addMorph: ((PluggableListMorph
- 				on: self
- 				list: #processNameList
- 				selected: #processListIndex
- 				changeSelected: #processListIndex:
- 				menu: #processListMenu:
- 				keystroke: #processListKey:from:)
- 				enableDragNDrop: false)
- 		frame: (0 @ 0 extent: 0.5 @ 0.5).
- 	window
- 		addMorph: ((PluggableListMorph
- 				on: self
- 				list: #stackNameList
- 				selected: #stackListIndex
- 				changeSelected: #stackListIndex:
- 				menu: #stackListMenu:
- 				keystroke: #stackListKey:from:)
- 				enableDragNDrop: false)
- 		frame: (0.5 @ 0.0 extent: 0.5 @ 0.5).
- 	aTextMorph := PluggableTextMorph
- 				on: self
- 				text: #selectedMethod
- 				accept: nil
- 				readSelection: nil
- 				menu: nil.
- 	aTextMorph askBeforeDiscardingEdits: false.
- 	window
- 		addMorph: aTextMorph
- 		frame: (0 @ 0.5 corner: 1 @ 1).
- 	window setUpdatablePanesFrom: #(#processNameList #stackNameList ).
- 	(window setLabel: 'Process Browser') openInWorld.
- 	startedCPUWatcher ifTrue: [ self setUpdateCallbackAfter: 7 ].
- 	^ window!