The Trunk: Tools-dtl.175.mcz

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!