Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.455.mcz==================== Summary ====================
Name: Tools-fbs.455
Author: fbs
Time: 8 March 2013, 8:55:00.072 am
UUID: 11653dfa-448e-4553-b05d-db5abdcafa8e
Ancestors: Tools-fbs.454
Clearly not my day for clean commits. This removes the made-into-cruft of Tools-fbs.451.
=============== Diff against Tools-fbs.454 ===============
Item was removed:
- ----- Method: ProcessBrowser>>asPrototypeInWindow (in category 'views') -----
- asPrototypeInWindow
- "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.
- window
- addMorph: aTextMorph
- frame: (0 @ 0.5 corner: 1 @ 1).
- window setLabel: 'Process Browser'.
- ^ window!